eevaldo Posted August 22, 2012 Report Share Posted August 22, 2012 Bom dia amigos , alguem tem uma rotina para transformar um relatorio em formato PDF e grava-lo em algum diretorio para posterior impressão? Sera que e possivel desenvolver sem usar programas de terceiros ? Obrigado. Evaldo Wagner FiveWin9.07 xHarbour 1.21,BCC55, Pelles C xDev,xHarbour for Linux(console) evaldowl@hotmail.com Editado por - eevaldo on 22/08/2012 10:49:34 Quote Link to comment Share on other sites More sharing options...
eevaldo Posted August 22, 2012 Author Report Share Posted August 22, 2012 Bom dia amigos , alguem tem uma rotina para transformar um relatorio em formato PDF e grava-lo em algum diretorio para posterior impressão? Sera que e possivel desenvolver sem usar programas de terceiros ? Obrigado. Evaldo Wagner FiveWin9.07 xHarbour 1.21,BCC55, Pelles C xDev,xHarbour for Linux(console) evaldowl@hotmail.com Editado por - eevaldo on 22/08/2012 10:49:34 Quote Link to comment Share on other sites More sharing options...
oribeiro Posted August 22, 2012 Report Share Posted August 22, 2012 Uso o nConvert.exe (gratuÃto): *------------------------------------------------------------* FUNCTION BuildPDF( aFiles ) // OASyS USA NCONVERT.EXE para transformar EMF em PDF *------------------------------------------------------------* Local x Local cTexto := "" Local cTxtFile := "" Local cDestino := oaNetName("_","PDF") Local cPastaPDF:= iif(Right(pDado,1)="\", pDado, pDado+"\") + "PDF" if !lIsDir( cPastaPDF ) // se não existir a pasta cria primeiro a pasta \PDF if DirMake( cPastaPDF ) != 0 cPastaPDF := pDado endif endif cPastaPDF := iif(Right(cPastaPDF,1)="\", cPastaPDF, cPastaPDF+"\") cDestino := cPastaPDF + Right(cDestino, Len(cDestino)-AT("_",cDestino)+1) cTxtFile := Left(cDestino,Len(cDestino)-3) + "TXT" If Len(aFiles) = 1 cString:="nConvert -o " + cDestino + " -quiet -out pdf -c 4 " + aFiles[1] Else For x=1 To Len(aFiles) cTexto := cTexto + aFiles[x] + CRLF Next MemoWrit(cTxtFile, cTexto) cString:="nConvert -multi -o " + cDestino + " -quiet -out pdf -c 4 -l "+cTxtFile Endif MsgRun("Aguarde a conversão da listagem num arquivo PDF !","Estou criando o arquivo: "+cDestino, {|| WAITRUN(cString,0 ) } ) FnErase(cTxtFile) Return(cDestino) Oscar Ribeiroid=size4> OASyS Informáticaid=blue>id=size4> Fwh+xHb1.0.0+BCC55+WorkShopid=size1> Quote Link to comment Share on other sites More sharing options...
oribeiro Posted August 22, 2012 Report Share Posted August 22, 2012 Formatado fica mais bonito!! (risos) *----------------------------------------------------------* FUNCTION BuildPDF( aFiles ) // NCONVERT.EXE para transformar EMF em PDF *----------------------------------------------------------* Local x Local cTexto := "" Local cTxtFile := "" Local cDestino := oaNetName("_","PDF") Local cPastaPDF:= iif(Right(pDado,1)="\", pDado, pDado+"\") + "PDF" if !lIsDir( cPastaPDF ) // se não existir a pasta cria primeiro a pasta \PDF if DirMake( cPastaPDF ) != 0 cPastaPDF := pDado endif endif cPastaPDF := iif(Right(cPastaPDF,1)="\", cPastaPDF, cPastaPDF+"\") cDestino := cPastaPDF + Right(cDestino, Len(cDestino)-AT("_",cDestino)+1) cTxtFile := Left(cDestino,Len(cDestino)-3) + "TXT" If Len(aFiles) = 1 cString:="nConvert -o " + cDestino + " -quiet -out pdf -c 4 " + aFiles[1] Else For x=1 To Len(aFiles) cTexto := cTexto + aFiles[x] + CRLF Next MemoWrit(cTxtFile, cTexto) cString:="nConvert -multi -o " + cDestino + " -quiet -out pdf -c 4 -l "+cTxtFile Endif MsgRun("Aguarde a conversão da listagem num arquivo PDF !","Estou criando o arquivo: "+cDestino, {|| WAITRUN(cString,0 ) } ) FnErase(cTxtFile) Return(cDestino) id=code>id=code>Oscar Ribeiroid=size4> OASyS Informáticaid=blue>id=size4> Fwh+xHb1.0.0+BCC55+WorkShopid=size1> Quote Link to comment Share on other sites More sharing options...
joaosolution Posted August 22, 2012 Report Share Posted August 22, 2012 Evaldo Na nova versão da FWH 12.06 no preview já têm opção para salvar em PDF e WORD direto pela FiveWin sem usar nenhuma ferramenta externa. Att João Bosco Contagem/MG FWH 10.6b xHb 1.2.1 WorkShop 4.5 PellesC SQLLIB SQLRDD UltraEdit xDev MySql MS-Sql Quote Link to comment Share on other sites More sharing options...
oribeiro Posted August 22, 2012 Report Share Posted August 22, 2012 João, Boa tarde! Como o povo nunca está totalmente contente, vão dizer: - Só falta gerar em Excel (risos). Obrigado. Oscar Ribeiroid=size4> OASyS Informáticaid=blue>id=size4> Fwh+xHb1.0.0+BCC55+WorkShopid=size1> Quote Link to comment Share on other sites More sharing options...
eevaldo Posted August 23, 2012 Author Report Share Posted August 23, 2012 Agradecço as respostas, mas minha real nescessidade é gerar o arquivo em pdf ou converte-lo e gravar en um diretorio para posterior impressão, com o preview teria que gravar um a um, e seria um processo muito demorado. Obrigado. Evaldo Wagner FiveWin9.07 xHarbour 1.21,BCC55, Pelles C xDev,xHarbour for Linux(console) evaldowl@hotmail.com Quote Link to comment Share on other sites More sharing options...
joaosolution Posted August 23, 2012 Report Share Posted August 23, 2012 Evaldo Mas o preview é opcional, você pode gerar relatórios diretamente para a impressora. E já está disponÃvel na nova versão a função FWSavePreviewToPDF para gerar os arquivos. É só atualizar e adaptar a geração dos arquivos a sua necessidade. Att João Bosco Contagem/MG FWH 10.6b xHb 1.2.1 WorkShop 4.5 PellesC SQLLIB SQLRDD UltraEdit xDev MySql MS-Sql Quote Link to comment Share on other sites More sharing options...
marceloCR Posted August 23, 2012 Report Share Posted August 23, 2012 Joao Como fica a qualidade do arquivo PDF gerado nessa nova versao no FWH? Relatorios em formato gráfico, desenhandos, tipo bloquetos ou duplicatas, o resultado do PDF fica igual ao preview? MarceloCampos Quote Link to comment Share on other sites More sharing options...
marceloCR Posted August 23, 2012 Report Share Posted August 23, 2012 *desenhados Quote Link to comment Share on other sites More sharing options...
eevaldo Posted August 23, 2012 Author Report Share Posted August 23, 2012 Obrigado Joao, sim sei que o previw e opcional mas no caso ele imprimi direto que nao e o meu caso mas desconhecia essa função FWSavePreviewToPDF, que me atende perfeitamente. Obrigado. Evaldo Wagner FiveWin9.07 xHarbour 1.21,BCC55, Pelles C xDev,xHarbour for Linux(console) evaldowl@hotmail.com Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 23, 2012 Report Share Posted August 23, 2012 citação:Formatado fica mais bonito!! (risos) *----------------------------------------------------------* FUNCTION BuildPDF( aFiles ) // NCONVERT.EXE para transformar EMF em PDF *----------------------------------------------------------* Local x Local cTexto := "" Local cTxtFile := "" Local cDestino := oaNetName("_","PDF") Local cPastaPDF:= iif(Right(pDado,1)="\", pDado, pDado+"\") + "PDF" if !lIsDir( cPastaPDF ) // se não existir a pasta cria primeiro a pasta \PDF if DirMake( cPastaPDF ) != 0 cPastaPDF := pDado endif endif cPastaPDF := iif(Right(cPastaPDF,1)="\", cPastaPDF, cPastaPDF+"\") cDestino := cPastaPDF + Right(cDestino, Len(cDestino)-AT("_",cDestino)+1) cTxtFile := Left(cDestino,Len(cDestino)-3) + "TXT" If Len(aFiles) = 1 cString:="nConvert -o " + cDestino + " -quiet -out pdf -c 4 " + aFiles[1] Else For x=1 To Len(aFiles) cTexto := cTexto + aFiles[x] + CRLF Next MemoWrit(cTxtFile, cTexto) cString:="nConvert -multi -o " + cDestino + " -quiet -out pdf -c 4 -l "+cTxtFile Endif MsgRun("Aguarde a conversão da listagem num arquivo PDF !","Estou criando o arquivo: "+cDestino, {|| WAITRUN(cString,0 ) } ) FnErase(cTxtFile) Return(cDestino) id=code>id=code>Oscar Ribeiroid=size4> OASyS Informáticaid=blue>id=size4> Fwh+xHb1.0.0+BCC55+WorkShopid=size1> id=quote>id=quote>Bom diaid=size4> OScar... Vc pederia me dizer como aplicar isso em um PRG ? onde encontro e como usar esse tar de nConvert.exe ? Obrigado .. Abraços.. \o/ Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Quote Link to comment Share on other sites More sharing options...
joaosolution Posted August 23, 2012 Report Share Posted August 23, 2012 Respondendo ao marcelo: http://www.solutionbh.com.br/teste.pdf Foi só um teste com um report pequeno, mas dá pra ter uma noção. Ainda vou migrar outros relatórios mais complexos para a nova versão. Att João Bosco Contagem/MG FWH 10.6b xHb 1.2.1 WorkShop 4.5 PellesC SQLLIB SQLRDD UltraEdit xDev MySql MS-Sql Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted October 10, 2012 Report Share Posted October 10, 2012 Ainda no aguardo... ZZZZZZZZZZZZZZzzz zzz Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 10, 2012 Report Share Posted October 10, 2012 citação:Ainda no aguardo... ZZZZZZZZZZZZZZzzz zzz Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. id=quote>id=quote>Luiz, o que você quer gerar em PDF? Eu uso uma impressora VIRTUAL, PDFCREATOR.EXE Explique o que queres fazer... Abs, João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
IMATECH Posted October 12, 2012 Report Share Posted October 12, 2012 Olá ! . . . MR-Print : PDF Printer ( Harbour Print System ) . . . GitHub CVS ( repository ): https://github.com/MRonaldo/MR-Tools/downloads . . . On this forum: http://forums.fivetechsupport.com/viewtopic.php?f=3&t=25004#p135958 . . . Sucesso... M., Ronaldo by: IMATECH IMATION TECNOLOGIA Quote Link to comment Share on other sites More sharing options...
oribeiro Posted October 16, 2012 Report Share Posted October 16, 2012 Luiz, Desculpe a demora. O NConvert.exe é gratuÃto e pode ser baixado no site: http://www.xnview.com/en/download_nc.html Pegue apenas o executável: nconvert.exe e deixe-o na pasta onde está a sua aplicação e depois faça a chamada conforme a função que eu postei acima. Eu pego todas as imagens geradas pelo Fivewin do relatório e transformo-as num único PDF com esse utilitário. Um abraço, Oscar Ribeiroid=size4> OASyS Informáticaid=blue>id=size4> Fwh+xHb1.0.0+BCC55+WorkShopid=size1> Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.