Programación General > Visual Basic 6.0 e inferiores

 Re: IMPRESIÓN DIRECTA A PRINTER CRViewer

(1/1)

acanalis:
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:
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:

acanalis:
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:
:question:Como puedo hacer para que cuando mande imprimir se queda esperando respuesta en vez de cerrar la pantalla de impresión?????????

angelescj:
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:

Navegación

[0] Índice de Mensajes