Saludos a todos y muchos exitos!!!
Publicado por daco (6 intervenciones) el 09/06/2004 19:19:28
Hola programadores, muchos saludos y exitos en su busqueda de ser un mejor profesional.
1- Uso Visual Basic 6.0 y Cristal Report 8.5
2- Quiero imprimir en papel mis informes.
3- Utilizo el siguiente codigo.
Private Sub CRViewer1_PrintButtonClicked(UseDefault As Boolean)
UseDefault = False
On Error GoTo Cancel:
Report7.DisplayProgressDialog = True
Report7.PaperSize = crPaperLetter
Report7.PrinterSetup Me.hWnd
Report7.PrintOut False
Exit Sub
Cancel:
MsgBox "Impresion cancelada"
End Sub
Problema:
Necesito especificar el numero de paginas que quiero imprimir... ya sea si el reporte tiene 3 paginas, poder configurar e imprimir solo la primera si deseo, por ejemplo.
Alguen me podra mostrar o decir si me falta algo en el codigo, o si me pueden dar un ejemplo de como lo harian ustedes. Como sabran el PrinterSetup no muestra opciones para especificar las paginas a imprimir.
Tambien pudiera ser que me mostraran si no es molestia... como se haría con un commondialog, puesto que no he logrado que trabaje... me captura los datos pero no me los imprime...
1- Uso Visual Basic 6.0 y Cristal Report 8.5
2- Quiero imprimir en papel mis informes.
3- Utilizo el siguiente codigo.
Private Sub CRViewer1_PrintButtonClicked(UseDefault As Boolean)
UseDefault = False
On Error GoTo Cancel:
Report7.DisplayProgressDialog = True
Report7.PaperSize = crPaperLetter
Report7.PrinterSetup Me.hWnd
Report7.PrintOut False
Exit Sub
Cancel:
MsgBox "Impresion cancelada"
End Sub
Problema:
Necesito especificar el numero de paginas que quiero imprimir... ya sea si el reporte tiene 3 paginas, poder configurar e imprimir solo la primera si deseo, por ejemplo.
Alguen me podra mostrar o decir si me falta algo en el codigo, o si me pueden dar un ejemplo de como lo harian ustedes. Como sabran el PrinterSetup no muestra opciones para especificar las paginas a imprimir.
Tambien pudiera ser que me mostraran si no es molestia... como se haría con un commondialog, puesto que no he logrado que trabaje... me captura los datos pero no me los imprime...
Valora esta pregunta
0