topic-25733

Posts: 22

Joined: Fri May 04, 2012 03:26 PM

Imprimir Documento PDF
Posted: Tue Feb 26, 2013 12:50 PM

Colegas alguém saberia me dizer como faço para imprimir um arquivo PDF direto de dentro do sistema, tipo tenho o PDF na maquina queria imprimir este arquivo de dentro do sistema.

Obrigado

Luiz Fernando

fwh1104

Sistem

Posts: 226

Joined: Sun May 13, 2012 07:52 AM

Re: Imprimir Documento PDF
Posted: Tue Feb 26, 2013 03:04 PM

WinExec(seuArqPDF..) vai abrir o PDF com o programa de PDF padrao
ShellExecute tambem abre

FWH2008 | xHarbour | BCC74 | SQLRDD

Luisão PITBULL

Posts: 22

Joined: Fri May 04, 2012 03:26 PM

Re: Imprimir Documento PDF
Posted: Tue Feb 26, 2013 09:05 PM

Sistem wrote:WinExec(seuArqPDF..) vai abrir o PDF com o programa de PDF padrao
ShellExecute tambem abre

Colega obrigado pela resposta, o que precisava seria imprimir o PDF direto, sem abrir o visualizador de PDF, mais acho que nao tem como....

Luiz Fernando

Daniel Segura

Posts: 7

Joined: Thu Sep 14, 2006 12:32 AM

Re: Imprimir Documento PDF
Posted: Wed Feb 27, 2013 02:16 PM

Bom Dia Luiz Fernando,

Quando voce informar o nome do arquivo para abrir coloque um espaço e /p

Code (fw): Select all Collapse

seu programa
....
cRun_Pdf := "relato.pdf /p"
executa_pdf()
.....
return nil

Function executa_pdf()
   //? cRun_Pdf
   If file(cRun_Pdf)
      Shellexecute(,"open",cRun_Pdf)
      ShellExecute( NIL,;
                      "open",;
                      cRun_Pdf  ,;
                      NIL   ,;
                      "c:\cialoja" ,;
                      NIL   ,;
                      SW_FORCEMINIMIZE )
   EndIf
Return .T.

Boa sorte

Luisão PITBULL

Posts: 22

Joined: Fri May 04, 2012 03:26 PM

Re: Imprimir Documento PDF
Posted: Wed Feb 27, 2013 05:21 PM

Daniel Segura wrote:Bom Dia Luiz Fernando,

Quando voce informar o nome do arquivo para abrir coloque um espaço e /p

Code (fw): Select all Collapse

seu programa
....
cRun_Pdf := "relato.pdf /p"
executa_pdf()
.....
return nil

Function executa_pdf()
   //? cRun_Pdf
   If file(cRun_Pdf)
      Shellexecute(,"open",cRun_Pdf)
      ShellExecute( NIL,;
                      "open",;
                      cRun_Pdf  ,;
                      NIL   ,;
                      "c:\cialoja" ,;
                      NIL   ,;
                      SW_FORCEMINIMIZE )
   EndIf
Return .T.

Boa sorte

Vlw Daniel muito obrigado mesmo pela ajuda...

Abraços

Luiz Fernando

FiveTech Support Forums

Continue the discussion