Imprimir Documento PDF

Imprimir Documento PDF

Postby Luisão PITBULL » 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
Luisão PITBULL
 
Posts: 22
Joined: Fri May 04, 2012 3:26 pm

Re: Imprimir Documento PDF

Postby Sistem » Tue Feb 26, 2013 3:04 pm

WinExec(seuArqPDF..) vai abrir o PDF com o programa de PDF padrao
ShellExecute tambem abre
FWH2008 | xHarbour | BCC74 | SQLRDD
User avatar
Sistem
 
Posts: 226
Joined: Sun May 13, 2012 7:52 am

Re: Imprimir Documento PDF

Postby Luisão PITBULL » Tue Feb 26, 2013 9: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
Luisão PITBULL
 
Posts: 22
Joined: Fri May 04, 2012 3:26 pm

Re: Imprimir Documento PDF

Postby Daniel Segura » Wed Feb 27, 2013 2:16 pm

Bom Dia Luiz Fernando,

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

Code: Select all  Expand view

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
Daniel Segura
 
Posts: 7
Joined: Thu Sep 14, 2006 12:32 am
Location: Brasil - São Paulo - Mairinque

Re: Imprimir Documento PDF

Postby Luisão PITBULL » Wed Feb 27, 2013 5: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: Select all  Expand view

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
Luisão PITBULL
 
Posts: 22
Joined: Fri May 04, 2012 3:26 pm


Return to All products support

Who is online

Users browsing this forum: No registered users and 10 guests