Como imprimir arquivos .pdf pelo Delphi?
29/05/2003
0
Olá pessoal.
Alguem sabe como imprimir um arquivo do Acrobat (.pdf) pelo Delphi?
Detalhe: Mas que seja transparente para o usuário.
Ja tentei isto:
begin
................
ExecutePrograma(´print´,´C:\Arquivos de programas\Adobe\Acrobat 5.0\Reader\AcroRd32.exe´, ´AJ009003.pdf´);
................
end;
procedure TForm1.ExecutePrograma(Operacao, Programa, Arquivo: string);
Var
VOperacao:Array[0..1024] of Char;
VPrograma: Array[0..1024] of Char;
VArquivo: Array[0..1024] of Char;
begin
StrPCopy (VOperacao,Operacao);
StrPCopy (VPrograma, Programa);
StrPCopy (VArquivo, Arquivo);
ShellExecute (0, VOperacao, VPrograma, VArquivo, Nil, SW_ShowNA);
end;
Mas, não funcionou. Não dá erro e não imprime nada.
Quem souber e puder me ajudar, desde já agradeço.
Jairo Norenberg
Alguem sabe como imprimir um arquivo do Acrobat (.pdf) pelo Delphi?
Detalhe: Mas que seja transparente para o usuário.
Ja tentei isto:
begin
................
ExecutePrograma(´print´,´C:\Arquivos de programas\Adobe\Acrobat 5.0\Reader\AcroRd32.exe´, ´AJ009003.pdf´);
................
end;
procedure TForm1.ExecutePrograma(Operacao, Programa, Arquivo: string);
Var
VOperacao:Array[0..1024] of Char;
VPrograma: Array[0..1024] of Char;
VArquivo: Array[0..1024] of Char;
begin
StrPCopy (VOperacao,Operacao);
StrPCopy (VPrograma, Programa);
StrPCopy (VArquivo, Arquivo);
ShellExecute (0, VOperacao, VPrograma, VArquivo, Nil, SW_ShowNA);
end;
Mas, não funcionou. Não dá erro e não imprime nada.
Quem souber e puder me ajudar, desde já agradeço.
Jairo Norenberg
Jairo Norenberg
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)