GERAR A DANFE DA NF-e em PDF VIA CÓDIGO-FONTE

Olá, amigos!!

Para aqueles que já adquiriram o pacote da DANFE aqui comigo, eis aqui mais um quitute para ser acrescentado ao código-fonte da mesma: A geração da DANFE no formato PDF via código-fonte!


Para quem já possui o projeto, basta adicionar as linhas abaixo para que o próprio Crystal Reports realize a geração de uma cópia da DANFE no formato em PDF via código-fonte quando a DANFE está sendo processada.

O código abaixo cria uma cópia da DANFE gerada salvando-a na pasta indicada
no formato PDF, evitando assim qualquer interação do usuário para que uma cópia em PDF da DANFE seja criada - basta acessar a pasta de trabalho que uma cópia da DANFE gerada estará lá no formato em PDF, prontinha para ser enviada aos clientes ou fornecedores!!!



Agora, em que posição colocar este código deixo por conta dos desenvolvedores!!


'Data: 29/09/2010 10:30h
'Geração da DANFE em formato PDF
Dim cryRpt As New ReportDocument
Dim CrExportOptions As ExportOptions
Dim CrDiskFileDestinationOptions As New _
DiskFileDestinationOptions()
Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()
CrDiskFileDestinationOptions.DiskFileName = "c:\Nfe\NotaNfe.pdf"
'CrExportOptions = cryRpt.ExportOptions
CrExportOptions = myRelatorio.ExportOptions

With CrExportOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
.DestinationOptions = CrDiskFileDestinationOptions
.FormatOptions = CrFormatTypeOptions
End With
myRelatorio.Export()



Sucesso a todos em 2010!!


By
Leonardo Metelys