Imprimir Documento PDF

[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

[Sistem]

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

[Luisão PITBULL]

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]

Bom Dia Luiz Fernando,

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

Code: Select all  Expand view  RUN

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]

Bom Dia Luiz Fernando,

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

Code: Select all  Expand view  RUN

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