Quick Tip : Imprimir qualquer arquivo direto do Delphi

Ol� galera, nesta Quick Tips, irei mostrar como imprimir qualquer tipo de arquivo direto pelo Delphi, seja um DOC, PDF, XLS, ou qualquer formato.

Vamos ao exemplo

Adicione

1 OpenDialog
2 Button (BtnImprimir e BtnAbrir)
1 Edit ( EdtCaminho)

Obs : Precisamos dar uses em ShellAPI.

No onClick do BtnAbrir

procedure TFrmPrincipal.BtnAbrirClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
     EdtCaminho.Text := OpenDialog1.FileName;
end;

No onClick do BtnImprimir - Enviamos um comando atrav�s do Delphi enviando o arquivo direto pra impressora padr�o do Windows.

procedure TFrmPrincipal.BtnImprimirClick(Sender: TObject);
begin
   ShellExecute(Handle, 'print',
   PChar(OpenDialog1.FileName ),
   nil, nil, SW_HIDE) ;
end;
end.

Fico por aqui ate � pr�xima Quick Tips.

Um abraço

Wesley Y

Quick Tip : Imprimir qualquer arquivo direto do Delphi

Veja nesta Quick como imprimir um arquivo diretamente pelo Delphi.

Artigos relacionados