Du kannst dir einfach das Canvas vom Fomular holen.
z.B. so:
Delphi-Quellcode:
const P: Integer=5;
begin
Printer.BeginDoc;
Printer.Canvas.CopyRect(Rect(0,0,Form1.Canvas.ClipRect.Right*P,Form1.Canvas.ClipRect.Bottom*P),Form1.Canvas,Form1.Canvas.ClipRect);
Printer.EndDoc;