Imprimindo Documento PDF de forma transparente ao usuário
Segue:
uses
ShellApi
procedure ImprimePdf;
var
Pdir: Pchar;
begin
GetMem(pDir,256);
StrPCopy(pDir, ´c:\documento.pdf´); //caminho completo mais nome do arquivo
ShellExecute(0, ´print´, ´c:\documento.pdf´, nil, Pdir, SW_ShowNA);
FreeMem(pdir,256);
end;
uses
ShellApi
procedure ImprimePdf;
var
Pdir: Pchar;
begin
GetMem(pDir,256);
StrPCopy(pDir, ´c:\documento.pdf´); //caminho completo mais nome do arquivo
ShellExecute(0, ´print´, ´c:\documento.pdf´, nil, Pdir, SW_ShowNA);
FreeMem(pdir,256);
end;
Amjorge
Curtidas 0
Respostas
Amjorge
27/12/2005
Na verdade ela abre a aplicação, não é transparente 100¬ aom usuário. Alguém sabe como fechar ? Obrigado.
GOSTEI 0