Bild beim Ausdrucken kommt klein raus?

[taktaky]

Hallo,

im Code finde ich nichts von zoom oder ?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
  DestRect:TRect;
Begin
 Printer.BeginDoc;

 DestRect.Left:=Printer.Canvas.ClipRect.Left + (Printer.Canvas.ClipRect.Right - Form1.Width) div 1;
 DestRect.Right:=DestRect.Left + Form1.Width;
 DestRect.Top:=Printer.Canvas.ClipRect.Top + (Printer.Canvas.ClipRect.Bottom - Form1.Height) div 1;
 DestRect.Bottom:=DestRect.Top + Form1.Height;
 Printer.Canvas.CopyRect( DestRect, Form1.Canvas, Form1.ClientRect);
 Printer.EndDoc;
end;

Das Bild im Druckvorschau kommt sehr klein raus !!!