Sí, ya he probado con PrintScale, y no me soluciona nada. También he probado este apaño: guardar el formulario en un wmf, y después mandar a imprimir ese archivo, pero surge el mismo problema al usar el GetFormImage. Lo que hago es simplemente:
procedure TFormPrincipal.PagImprimirClick(Sender: TObject);
begin
FormImpresion.PrintScale:=poPrintToFit;
FormImpresion.Print;
end;
|