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