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

seu programa....cRun_Pdf := "relato.pdf /p"executa_pdf().....return nilFunction executa_pdf()   //? cRun_Pdf   If file(cRun_Pdf)      Shellexecute(,"open",cRun_Pdf)      ShellExecute( NIL,;                      "open",;                      cRun_Pdf  ,;                      NIL   ,;                      "c:\cialoja" ,;                      NIL   ,;                      SW_FORCEMINIMIZE )   EndIfReturn .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

seu programa....cRun_Pdf := "relato.pdf /p"executa_pdf().....return nilFunction executa_pdf()   //? cRun_Pdf   If file(cRun_Pdf)      Shellexecute(,"open",cRun_Pdf)      ShellExecute( NIL,;                      "open",;                      cRun_Pdf  ,;                      NIL   ,;                      "c:\cialoja" ,;                      NIL   ,;                      SW_FORCEMINIMIZE )   EndIfReturn .T. 

Boa sorte

Vlw Daniel muito obrigado mesmo pela ajuda...


Abraços

Luiz Fernando