Artigos Delphi 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. 1 OpenDialog
  2. 2 Button (BtnImprimir e BtnAbrir)
  3. 1 Edit ( EdtCaminho)

Obs : Precisamos dar uses em ShellAPI.

WesleyImprimirDelphi01

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