Postada em 09/11/2004 07:16 hs
uso o crystal para imprimir notas ficais, e tambem na parte de consultas, para mostrar o corpo da nota em video, qdo mando para o video, percebi que demora mais pra montar a nota, pois se tenho uma tabela de notas com 40.000 registros, e a nota em questão tem 30 registros, ele aparece o contador na tela, e demora pra montar a mesma, teria uma maneira de ser mais rapido, como no sql, que se o campo em questão for indexado, o retorno é instantaneo, abaixo como chamo o rpt para impressão direto na impressora, o qual ja demora um pouco, e o mesmo esquema é usao para o video, só mudando o direcionamento, o qual fica bem mais lento., ( uso vb6 + access97 + crystal 8.5 )
dpl.WindowState = crptMaximized
dpl.WindowControlBox = True
dpl.DiscardSavedData = True
dpl.ReportFileName = App.Path & "ota.rpt"
dpl.Connect = ";PWD=SENHA"
dpl.SelectionFormula = "{notas.pedido} = '" & txtped.Text & "'"
dpl.Formulas(0) = "MENSA = '" & txtmensa.Text & "'"
dpl.SortFields(0) = "+{notas.nota}"
dpl.SortFields(1) = "+{itens_nota.produto}"
dpl.PrinterName = "LPT2"
dpl.PrinterPort = "lpt2"
dpl.PrinterDriver = "winspool"
dpl.Destination = 1
dpl.WindowShowPrintSetupBtn = True
dpl.ProgressDialog = False
dpl.Action = 1
dpl.Reset
|
