Quick Tip : Imprimir o Form todo pelo Delphi

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Veja nesta Quick como imprimir todo o form direto pelo Delphi.

Olá galera, nesta Quick Tips, irei mostrar como imprimir todo o formulário de forma bem simples, sem precisar usar outro recurso, direto pelo Delphi.

Desenvolvi uma aplicação com uma imagem e um BitBtn, mas você pode usar seu formulário de cadastro, ou um simples projeto de calculadora. O que a rotina irá fazer é imprimir todo e qualquer conteúdo dentro do formulário.

Layout do Form Exemplo

Figura 1. Layout do Form Exemplo.

Listagem 1: No OnClick do BitBtn

procedure TFrmPrincipal.BtnImprimirClick(Sender: TObject);
begin
  PrintScale := poProportional;
  {OU}
  //PrintScale := poNone;
  {OU}
  //PrintScale := poPrintToFit;
  Print;
end;
 

Fico por aqui ate à próxima Quick Tips.

Um abraço

Wesley Y

wyamazack@lithic.com.br

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?