GERAR PDF - PDFCREATOR
Caros Colegas,
Estou tentando gerar pdf usando o pdfcreator, segue abaixo rotina:
Dim cPDFCreator As PDFCREATOR.clsPDFCreator
Set cPDFCreator = New clsPDFCreator
Set cPDFCreatorOptions = New clsPDFCreatorOptions
Set SD = New clsPDFCreatorOptions
Set cPDFCreator.cOptions = cPDFCreatorOptions
[ô]Am storing default printer to restore it later
strDefaultPrinter = Printer.DeviceName
If cPDFCreator.cStart([Ô]/NoProcessingAtStartup[Ô]) = False Then
MsgBox [Ô]Can[ô]t initialize PDFCreator.[Ô], vbCritical + _
vbOKOnly, [Ô]Error![Ô]
Exit Sub
End If
With cPDFCreator
.cOption([Ô]UseAutosave[Ô]) = 1
.cOption([Ô]UseAutosaveDirectory[Ô]) = 1
.cOption([Ô]AutosaveDirectory[Ô]) = [Ô]C:\LAMSOFT\PDF[Ô]
.cOption([Ô]AutosaveFilename[Ô]) = [Ô]DACTE[Ô] & ListView1.SelectedItem.ListSubItems(2).Text & [Ô].pdf[Ô]
.cOption([Ô]AutosaveFormat[Ô]) = 0 [ô] 0 = PDF
.cSaveOptions
.cClearCache
.cPrinterStop = False
.cDefaultPrinter = [Ô]PDFCreator[Ô]
.cPrintFile [Ô]C:\LAMSOFT\CT-e - 09-2012 - Final\Relatorios\DACTE.RPT[Ô]
End With
Printer.Print
Set cPDFCreator = Nothing
Set cPDFCreatorOptions = Nothing
Estou colocando esta rotina após as linhas
CrystalReport1.ReportFileName = App.Path + [Ô]elatorios\dacte.rpt[Ô]
CrystalReport1.Action = 1
------a rotina acima entra aqui-----------
mas está gerando o pdf em branco, alguém pode me ajudar, onde estou errando?
Desde já agradeço a todos pela atenção.
Abraços.
Estou tentando gerar pdf usando o pdfcreator, segue abaixo rotina:
Dim cPDFCreator As PDFCREATOR.clsPDFCreator
Set cPDFCreator = New clsPDFCreator
Set cPDFCreatorOptions = New clsPDFCreatorOptions
Set SD = New clsPDFCreatorOptions
Set cPDFCreator.cOptions = cPDFCreatorOptions
[ô]Am storing default printer to restore it later
strDefaultPrinter = Printer.DeviceName
If cPDFCreator.cStart([Ô]/NoProcessingAtStartup[Ô]) = False Then
MsgBox [Ô]Can[ô]t initialize PDFCreator.[Ô], vbCritical + _
vbOKOnly, [Ô]Error![Ô]
Exit Sub
End If
With cPDFCreator
.cOption([Ô]UseAutosave[Ô]) = 1
.cOption([Ô]UseAutosaveDirectory[Ô]) = 1
.cOption([Ô]AutosaveDirectory[Ô]) = [Ô]C:\LAMSOFT\PDF[Ô]
.cOption([Ô]AutosaveFilename[Ô]) = [Ô]DACTE[Ô] & ListView1.SelectedItem.ListSubItems(2).Text & [Ô].pdf[Ô]
.cOption([Ô]AutosaveFormat[Ô]) = 0 [ô] 0 = PDF
.cSaveOptions
.cClearCache
.cPrinterStop = False
.cDefaultPrinter = [Ô]PDFCreator[Ô]
.cPrintFile [Ô]C:\LAMSOFT\CT-e - 09-2012 - Final\Relatorios\DACTE.RPT[Ô]
End With
Printer.Print
Set cPDFCreator = Nothing
Set cPDFCreatorOptions = Nothing
Estou colocando esta rotina após as linhas
CrystalReport1.ReportFileName = App.Path + [Ô]elatorios\dacte.rpt[Ô]
CrystalReport1.Action = 1
------a rotina acima entra aqui-----------
mas está gerando o pdf em branco, alguém pode me ajudar, onde estou errando?
Desde já agradeço a todos pela atenção.
Abraços.
já que esta usando o Crystal reposts.. porque não usa o exportar para PDF do proprio crystal reports?
Maxcim,
Seria esta rotina ou voce conhece outra?
[ô]Dim crxReport As CRAXDRT.Report
[ô]Dim CRXAPPLICATION As New CRAXDRT.Application
[ô]Set crxReport = CRXAPPLICATION.OpenReport(App.Path + [Ô]elatorios\dACTE.rpt[Ô], 1)
[ô]crxReport.DiscardSavedData[ô]
[ô]With crxReport
[ô].PaperSize = crDefaultPaperSize
[ô].PaperOrientation = crPortrait
[ô].LeftMargin = 0
[ô].TopMargin = 0
[ô]End With
[ô]EXPORTA PARA PDF
[ô]With crxReport
[ô].ExportOptions.DiskFileName = [Ô]c: este.pdf[Ô]
[ô].ExportOptions.DestinationType = crEDTDiskFile
[ô].ExportOptions.PDFExportAllPages = True
[ô]ESCOLHE O TIPO DE DOCUMENTO, SE é PDF OU OUTROS
[ô].ExportOptions.FormatType = crEFTPortableDocFormat
[ô]ESCONDE A JANELA DE EXPORTAR
[ô].Export False
[ô]End With
Desde já agradeço pela atenção.
Seria esta rotina ou voce conhece outra?
[ô]Dim crxReport As CRAXDRT.Report
[ô]Dim CRXAPPLICATION As New CRAXDRT.Application
[ô]Set crxReport = CRXAPPLICATION.OpenReport(App.Path + [Ô]elatorios\dACTE.rpt[Ô], 1)
[ô]crxReport.DiscardSavedData[ô]
[ô]With crxReport
[ô].PaperSize = crDefaultPaperSize
[ô].PaperOrientation = crPortrait
[ô].LeftMargin = 0
[ô].TopMargin = 0
[ô]End With
[ô]EXPORTA PARA PDF
[ô]With crxReport
[ô].ExportOptions.DiskFileName = [Ô]c: este.pdf[Ô]
[ô].ExportOptions.DestinationType = crEDTDiskFile
[ô].ExportOptions.PDFExportAllPages = True
[ô]ESCOLHE O TIPO DE DOCUMENTO, SE é PDF OU OUTROS
[ô].ExportOptions.FormatType = crEFTPortableDocFormat
[ô]ESCONDE A JANELA DE EXPORTAR
[ô].Export False
[ô]End With
Desde já agradeço pela atenção.
Tambem me interesso pelo assunto.
Se conseguir encontrar uma solução, compartilhe conosco ERLANMG?
Se conseguir encontrar uma solução, compartilhe conosco ERLANMG?
Bom dia!
A rotina de exportar do crystal report acima mencionado, fiz alguns testes e vai me atender, mas como faço para usar formulas no CRAXDRT, pois no crystalreport normal uso assim CrystalReport1.Formulas(51) = [Ô]SERIE=[ô][Ô] & rs!serie & [Ô] [ô][Ô] como ficaria esta mesma linha na rotina acima, ou melhor usando o CRAXDRT.
Grato.
A rotina de exportar do crystal report acima mencionado, fiz alguns testes e vai me atender, mas como faço para usar formulas no CRAXDRT, pois no crystalreport normal uso assim CrystalReport1.Formulas(51) = [Ô]SERIE=[ô][Ô] & rs!serie & [Ô] [ô][Ô] como ficaria esta mesma linha na rotina acima, ou melhor usando o CRAXDRT.
Grato.
ERLANMG, qual a versao do Crystal que voce usa?
FBGSYSTEMS, boa tarde!
Estou usando a versão 8.5 do Crystal Report.
Estou usando a versão 8.5 do Crystal Report.
Hmm eu uso a versao 8. e nele ainda nao tem a opção para exportar para PDF.
Prezados Colegas,
Estou usando a função abaixo para gerar o arquivo PDF, esta funcionado perfeitamente.
Mas uso uma fonte para o código de barras e ai quando envio o arquivo por e-mail para o cliente, e que nem sempre terá a fonte do código de barras instalada.
Sendo assim o arquivo exibi a chave de acesso que seria em código de barras em números normais, ou melhor ele altera para uma fonte qualquer.
Como poderia solucionar este tipo de problema???
Alguém tem uma solução????
Abraços e até mais.
Dim CRXReport As CRAXDRT.Report
Dim CRXAPPLICATION As New CRAXDRT.Application
Dim CRXFormulaFields As CRAXDRT.FormulaFieldDefinitions
Dim CRXFormulaField As CRAXDRT.FormulaFieldDefinition
Set CRXReport = CRXAPPLICATION.OpenReport(App.Path + [Ô]elatorios\dacte.rpt[Ô], 1)
Set CRXFormulaFields = CRXReport.FormulaFields
CRXReport.DiscardSavedData [ô]
For Each CRXFormulaField In CRXFormulaFields
If CRXFormulaField.Name = [Ô]{@NUMERO}[Ô] Then
CRXFormulaField.Text = [Ô][ô][Ô] & Left(rs!numero, 3) & [Ô].[Ô] & _
Mid(rs!numero, 4, 3) & [Ô].[Ô] & _
Mid(rs!numero, 7, 3) & [Ô][ô][Ô]
End If
If CRXFormulaField.Name = [Ô]{@SERIE}[Ô] Then
CRXFormulaField.Text = [Ô][ô][Ô] & rs!serie & [Ô][ô][Ô]
End If
Next
With CRXReport
[ô].PaperSize = crDefaultPaperSize
.PaperSize = crPaperA4
.PaperOrientation = crPortrait
.LeftMargin = 150
.TopMargin = 190
End With
[ô]CRViewer1.ReportSource = CRXReport
[ô]CRViewer1.ViewReport
[ô]EXPORTA PARA PDF
With CRXReport
.ExportOptions.DiskFileName = [Ô]C:\CT-e_PDF\[Ô] & [Ô]CTE[Ô] & rs!numero & [Ô].pdf[Ô]
.ExportOptions.DestinationType = crEDTDiskFile
.ExportOptions.PDFExportAllPages = True
[ô]ESCOLHE O TIPO DE DOCUMENTO, SE é PDF OU OUTROS
.ExportOptions.FormatType = crEFTPortableDocFormat
[ô]ESCONDE A JANELA DE EXPORTAR
.Export False
End With
Estou usando a função abaixo para gerar o arquivo PDF, esta funcionado perfeitamente.
Mas uso uma fonte para o código de barras e ai quando envio o arquivo por e-mail para o cliente, e que nem sempre terá a fonte do código de barras instalada.
Sendo assim o arquivo exibi a chave de acesso que seria em código de barras em números normais, ou melhor ele altera para uma fonte qualquer.
Como poderia solucionar este tipo de problema???
Alguém tem uma solução????
Abraços e até mais.
Dim CRXReport As CRAXDRT.Report
Dim CRXAPPLICATION As New CRAXDRT.Application
Dim CRXFormulaFields As CRAXDRT.FormulaFieldDefinitions
Dim CRXFormulaField As CRAXDRT.FormulaFieldDefinition
Set CRXReport = CRXAPPLICATION.OpenReport(App.Path + [Ô]elatorios\dacte.rpt[Ô], 1)
Set CRXFormulaFields = CRXReport.FormulaFields
CRXReport.DiscardSavedData [ô]
For Each CRXFormulaField In CRXFormulaFields
If CRXFormulaField.Name = [Ô]{@NUMERO}[Ô] Then
CRXFormulaField.Text = [Ô][ô][Ô] & Left(rs!numero, 3) & [Ô].[Ô] & _
Mid(rs!numero, 4, 3) & [Ô].[Ô] & _
Mid(rs!numero, 7, 3) & [Ô][ô][Ô]
End If
If CRXFormulaField.Name = [Ô]{@SERIE}[Ô] Then
CRXFormulaField.Text = [Ô][ô][Ô] & rs!serie & [Ô][ô][Ô]
End If
Next
With CRXReport
[ô].PaperSize = crDefaultPaperSize
.PaperSize = crPaperA4
.PaperOrientation = crPortrait
.LeftMargin = 150
.TopMargin = 190
End With
[ô]CRViewer1.ReportSource = CRXReport
[ô]CRViewer1.ViewReport
[ô]EXPORTA PARA PDF
With CRXReport
.ExportOptions.DiskFileName = [Ô]C:\CT-e_PDF\[Ô] & [Ô]CTE[Ô] & rs!numero & [Ô].pdf[Ô]
.ExportOptions.DestinationType = crEDTDiskFile
.ExportOptions.PDFExportAllPages = True
[ô]ESCOLHE O TIPO DE DOCUMENTO, SE é PDF OU OUTROS
.ExportOptions.FormatType = crEFTPortableDocFormat
[ô]ESCONDE A JANELA DE EXPORTAR
.Export False
End With
Amigos, vejam bem, o PDF Creator, é tipo uma impressora, só que ao invés dele imprimir no papel ele vai gerar um PDF, nesse caso é só mandar ele imprimir no PDF Creator r não na impressora, ele gera o PDF automaticamente, lembrando que o mesmo deve estar configurado, qualquer coisa posta aÃ.
Tópico encerrado , respostas não são mais permitidas