Imprimir qualquer arquivo direto do Delphi

Por Wesley Y


Vamos mostrar como imprimir qualquer tipo de arquivo direto pelo Delphi, seja um Doc, txt, 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.


Take care