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

Anúncios

Uma resposta em “Imprimir qualquer arquivo direto do Delphi

  1. Boa tarde..

    Dessa forma ele abre a janela do windows para escolha da impressora.

    Tem como imprimir em um impressora específica?

    Não quero imprimir na padrão, preciso imprimir em uma específica.

    obrigado

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s