Autor Tema: Re: IMPRESIÓN DIRECTA A PRINTER CRViewer (Leído 2546 veces)

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!!!

angelescj · « **Respuesta #1 en:** Martes 13 de Mayo de 2003, 09:23 »

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

acanalis · « **Respuesta #2 en:** Martes 13 de Mayo de 2003, 11:03 »

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...

acanalis · « **Respuesta #3 en:** Martes 13 de Mayo de 2003, 16:22 »

:question:Como puedo hacer para que cuando mande imprimir se queda esperando respuesta en vez de cerrar la pantalla de impresión?????????

angelescj · « **Respuesta #4 en:** Martes 13 de Mayo de 2003, 17:31 »

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