Page 1 of 1

Imprimir Documento PDF

PostPosted: Tue Feb 26, 2013 12:50 pm
by Luisão PITBULL
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

Re: Imprimir Documento PDF

PostPosted: Tue Feb 26, 2013 3:04 pm
by Sistem
WinExec(seuArqPDF..) vai abrir o PDF com o programa de PDF padrao
ShellExecute tambem abre

Re: Imprimir Documento PDF

PostPosted: Tue Feb 26, 2013 9:05 pm
by Luisão PITBULL
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

Re: Imprimir Documento PDF

PostPosted: Wed Feb 27, 2013 2:16 pm
by Daniel Segura
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

Re: Imprimir Documento PDF

PostPosted: Wed Feb 27, 2013 5:21 pm
by Luisão PITBULL
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