Fórum Imprimir arquivos (.pdf) pelo Delphi #163105
28/05/2003
0
[u:15c8b7ddad]Como eu faço para imprimir um arquivo do Acrobat pelo Delphi?
Detalhe: Mas que seja transparente para o usuário.[/u:15c8b7ddad]
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.
A quem souber e puder me ajudar, desde já agradeço.
Jairo Norenberg
Detalhe: Mas que seja transparente para o usuário.[/u:15c8b7ddad]
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.
A 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 :)