Exportar a pdf
Publicado por Jhonny Kahwati (11 intervenciones) el 10/10/2009 20:59:59
Compañeros colegas, necesito que me ayuden ya que soy nuevo con el crystal reports 8.5, tengo un boton para imprimir un reporte desde crystal y me funciona muy bien con el codigo que anexo a continuación pero necesito agregarle a este mismo codigo las lineas para que me exporte a PDF luego lo anexe al correo lotus notes para enviarlo por correo.
Ustedes son muy buenos y espero que me ayuden compañeros colegas.
Private Sub imprimir_Click()
CrystalReport1.Connect = "DSN=BD_Proveedores;UID=sa;PWD=;"
CrystalReport1.SQLQuery = "SELECT * From RP_Proveedores WHERE FldCaso = '" & caso.Text & "'"
CrystalReport1.ReportFileName = App.Path & "\" & sFichero & "Reporte a Proveedor.rpt"
CrystalReport1.CopiesToPrinter = 1 'número de Copias
CrystalReport1.PrinterSelect
CrystalReport1.Destination = crptToWindow
CrystalReport1.Action = 1
End Sub
Ustedes son muy buenos y espero que me ayuden compañeros colegas.
Private Sub imprimir_Click()
CrystalReport1.Connect = "DSN=BD_Proveedores;UID=sa;PWD=;"
CrystalReport1.SQLQuery = "SELECT * From RP_Proveedores WHERE FldCaso = '" & caso.Text & "'"
CrystalReport1.ReportFileName = App.Path & "\" & sFichero & "Reporte a Proveedor.rpt"
CrystalReport1.CopiesToPrinter = 1 'número de Copias
CrystalReport1.PrinterSelect
CrystalReport1.Destination = crptToWindow
CrystalReport1.Action = 1
End Sub
Valora esta pregunta
0