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.
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