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