SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: acanalis en Martes 13 de Mayo de 2003, 08:52
-
TENGO UN INFORME QUE UNA VEZ VISUALIZADO EN EL CRViewer ME GUSTARÍA IMPRIMIRLO AUTOMÁTICAMENTE.
AHORA EL CÓDIGO ES:
frmLISTA.CRViewer1.ReportSource = CR_Seguimiento
frmLISTA.CRViewer1.ViewReport
frmLISTA.CRViewer1.Refresh
frmLISTA.CRViewer1.PrintReport
PERO ME DÁ UN ERROR EN EL METODO REFRESH Y DESPUÉS EN EL PRINTREPORT DICIENDO QUE SE ESTA DESCARGANDO DATOS.
HELP!!!
-
El método refresh vuelve a leer la BD, y como estás mostrando ya el report, viewreport, por eso te da el error. Para que envíe directamente a la impresora el report, una vez terminado de cargar es, en el evento DonwloadFinished, el código sería:
Private Sub CRViewer1_DownloadFinished(ByVal loadingType As CRVIEWERLibCtl.CRLoadingType)
If loadingType = crLoadingTotaller Then
CRViewer1.PrintReport
End If
:suerte:
-
oK muchas gracias pero ahora lo que pasa es que pueden ser hasta 8 o 9 listados que se mandan autamáticamente y se machacan unos a otros es decir que si tienen de dalir 3 listados diferentes pasa de todo y solo saca el último creo que es por no poder parar cuando lo manda a la impresora...
-
:question:Como puedo hacer para que cuando mande imprimir se queda esperando respuesta en vez de cerrar la pantalla de impresión?????????
-
La siguiente orden te muestra el estado del report cuando se ha enviado a la impresora:
Report.PrintingStatus.Progress
Si el valor es crPrintingCompleted es que está terminado, es decir
If Report.PrintingStatus.Progress=
crPrintingCompleted then
msgbox "TERMINADO DE IMPRIMIR"
End If
:suerte: