DUVIDA AO SALVAR CRYSTAL EM PDF - VB6
Olá.
Criei um modulo de Relatorios que imprime via crystal report , porem estou com a necessidade de salva-los tambem na maquina em que foram gerados , ai minha dificuldade
proucurei aqui nos Googles da vida mas nao fui capaz de encontrar uma soluçao em que eu obtivesse sucesso , dai a duvida...
é possivel após / ou ate mesmo antes de que eu faça a impressao do arquivo , tambem salva-lo, em PDF ,em uma pasta na propria maquina ?
Obrigado.
Criei um modulo de Relatorios que imprime via crystal report , porem estou com a necessidade de salva-los tambem na maquina em que foram gerados , ai minha dificuldade
proucurei aqui nos Googles da vida mas nao fui capaz de encontrar uma soluçao em que eu obtivesse sucesso , dai a duvida...
é possivel após / ou ate mesmo antes de que eu faça a impressao do arquivo , tambem salva-lo, em PDF ,em uma pasta na propria maquina ?
Obrigado.
Da sim, segue como fazer, vai no evento ExportButtonClicked do crviewer
Private Sub CRViewer91_ExportButtonClicked(UseDefault As Boolean)
UseDefault = False [ô]Cancela a exportação
CrpEmissaoPedido2.ExportOptions.FormatType = crEFTPortableDocFormat [ô] Define o tipo de arquivo a exportar como pdf
CrpEmissaoPedido2.ExportOptions.DestinationType = crEDTDiskFile [ô]Define o Destino HD
CrpEmissaoPedido2.ExportOptions.PDFExportAllPages = True [ô]Todas as páginas
CrpEmissaoPedido2.ExportOptions.ExchangeFolderPath = App.Path [ô]A pasta onde o arquivo vai ser salvo[Ô]
CrpEmissaoPedido2.ExportOptions.DiskFileName = [Ô]Pedido Cliente [Ô] & TxtCodCliente.Text & [Ô] N.[Ô] & CodPedido & [Ô].pdf[Ô] [ô]O nome do arquivo
CrpEmissaoPedido2.Export False [ô] o False é para evitar a exibição das caixas de diálogo.
end sub
O CrpEmissaoPedido2 é o nome do meu relat no crystal
Qqer dúvida posta ai, más acho que é isso que vc quer
Private Sub CRViewer91_ExportButtonClicked(UseDefault As Boolean)
UseDefault = False [ô]Cancela a exportação
CrpEmissaoPedido2.ExportOptions.FormatType = crEFTPortableDocFormat [ô] Define o tipo de arquivo a exportar como pdf
CrpEmissaoPedido2.ExportOptions.DestinationType = crEDTDiskFile [ô]Define o Destino HD
CrpEmissaoPedido2.ExportOptions.PDFExportAllPages = True [ô]Todas as páginas
CrpEmissaoPedido2.ExportOptions.ExchangeFolderPath = App.Path [ô]A pasta onde o arquivo vai ser salvo[Ô]
CrpEmissaoPedido2.ExportOptions.DiskFileName = [Ô]Pedido Cliente [Ô] & TxtCodCliente.Text & [Ô] N.[Ô] & CodPedido & [Ô].pdf[Ô] [ô]O nome do arquivo
CrpEmissaoPedido2.Export False [ô] o False é para evitar a exibição das caixas de diálogo.
end sub
O CrpEmissaoPedido2 é o nome do meu relat no crystal
Qqer dúvida posta ai, más acho que é isso que vc quer
Fantastico cara! Obrigado!
Blz ñ esquece de encerrar depois o tópico, caso a dúvida tenha sido sanada, senão pode perguntar
qual versão do crystal ?, preciso fazer isso na 8.5, da certo também ?, meus rpts são externos e uso a ocx.
Citação::
Blz ñ esquece de encerrar depois o tópico, caso a dúvida tenha sido sanada, senão pode perguntar
Na minha opiniao , eu acharia melhor deixar o topico para duvidas futuras , esses dias mesmo fui proucurar uma resposta ja dada aqui no forum e o topico nao existia mais, acho que os moderadores podiam rever melhor esta regra.
LIZA é melhor vc a abrir um tópico com sua dúvida, pois assim podemos te dr um suporte maior
BADJECO encerra o tópico, caso a minha idéia tenha te ajudado
BADJECO encerra o tópico, caso a minha idéia tenha te ajudado
Tópico encerrado , respostas não são mais permitidas