reporte crystal imprimir
Publicado por paco (1 intervención) el 06/06/2007 18:08:17
Hola tengo creado un reporte echo en crystal 9 en el que conecto de la siguiente manera
Set CrxReport = crxApplication.OpenReport(App.path & "\Informes\" & "clientes.rpt", 1)
'Pasarle la localizacion de la DB
CrxReport.Database.Tables.Item(1).Location = VariableGlobal
CrxReport.RecordSelectionFormula = "{Clientes.NomFiscal}>='" & ClientesImpresion.Text3 & "' and {Clientes.NomFiscal} <='" & ClientesImpresion.Text4 & "'"
CRViewer.ReportSource = CrxReport
CRViewer.ViewReport
'CRViewer.Zoom 100
While CRViewer.IsBusy
DoEvents
Wend
CRViewer.Refresh
el problema es que a si los veo sin problema pero deseo imprimirlos directamente sin necesidad de entrar y ver el reporte
Set CrxReport = crxApplication.OpenReport(App.path & "\Informes\" & "clientes.rpt", 1)
'Pasarle la localizacion de la DB
CrxReport.Database.Tables.Item(1).Location = VariableGlobal
CrxReport.RecordSelectionFormula = "{Clientes.NomFiscal}>='" & ClientesImpresion.Text3 & "' and {Clientes.NomFiscal} <='" & ClientesImpresion.Text4 & "'"
CRViewer.ReportSource = CrxReport
CRViewer.ViewReport
'CRViewer.Zoom 100
While CRViewer.IsBusy
DoEvents
Wend
CRViewer.Refresh
el problema es que a si los veo sin problema pero deseo imprimirlos directamente sin necesidad de entrar y ver el reporte
Valora esta pregunta
0