exportar crystal report a pdf
Hola a todos.
Necesito poder averiguar como poder convertir automáticamente un informe diseñado en crystal report a formato pdf.
Igualmente, también necesito poder darle el nombre y ubicación por código.
Muchas gracias de antemano.
Necesito poder averiguar como poder convertir automáticamente un informe diseñado en crystal report a formato pdf.
Igualmente, también necesito poder darle el nombre y ubicación por código.
Muchas gracias de antemano.
Utilza una impresora vitrual para hacerlo. Yo utilizo CutePDF Printer.
Lo único que tienes que hacer por código es esto:
Dim impresoraPorDefecto As String
impresoraPorDefecto = ActivePrinter
ActivePrinter = "CutePDF Printer on NE04"
' Aquí imprimes tu informe normalmente como si fuera a salir por la impresora
.................
' Volvemos a poner la impresora por defecto como estaba
ActivePrinter = impresoraPorDefecto
Saludos
sdemingo
Lo único que tienes que hacer por código es esto:
Dim impresoraPorDefecto As String
impresoraPorDefecto = ActivePrinter
ActivePrinter = "CutePDF Printer on NE04"
' Aquí imprimes tu informe normalmente como si fuera a salir por la impresora
.................
' Volvemos a poner la impresora por defecto como estaba
ActivePrinter = impresoraPorDefecto
Saludos
sdemingo
Este es el código que he incluido, pero no me hace nada. Simplemente me abre el informe en el visor de crystal, no me graba nada.
Además, cómo puedo darle el nombre y ubiciación?
Dim impresoraPorDefecto As String
impresoraPorDefecto = ActivePrinter
ActivePrinter = "CutePDF Printer"
CrystalReport1.SelectionFormula = "{InformesDatosInstaladores.NUM_INST}='1111111111'"
CrystalReport1.ReportFileName = "C:borrador.rpt"
CrystalReport1.PrintReport
ActivePrinter = impresoraPorDefecto
Además, cómo puedo darle el nombre y ubiciación?
Dim impresoraPorDefecto As String
impresoraPorDefecto = ActivePrinter
ActivePrinter = "CutePDF Printer"
CrystalReport1.SelectionFormula = "{InformesDatosInstaladores.NUM_INST}='1111111111'"
CrystalReport1.ReportFileName = "C:borrador.rpt"
CrystalReport1.PrintReport
ActivePrinter = impresoraPorDefecto