alberto
27 de Enero del 2004

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.

sdemingo
27 de Enero del 2004

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

alberto
27 de Enero del 2004

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