Formular Drucken. Genaue Angaben der Fläche

[Checkitout]

Ich habe Probleme mit den Angaben der Fläche des Formulars.
Hier der Quelltext:

Code:

procedure TForm1.Drucken1Click(Sender: TObject); 
var Printer:TPrinter; 
begin 
Printer:=TPrinter.Create; 
with Printer do 
  begin 
    Orientation:=poLandscape; 
    BeginDoc; 
    Refresh; 
    Canvas.CopyMode:=cmSrcCopy; 
    Canvas.CopyRect(Rect(0,0,round(PageWidth*4/5),PageHeight), 
                    Zeichenfenster.Canvas, 
                    Rect(0,0,560,450)); 
    Canvas.CopyRect(Rect(round(PageWidth*4/5),0,round(PageWidth*9/10),PageHeight), 
                    PaintBox1.Canvas, 
                    Rect(0,0,15,100)); 
    EndDoc; 
    Destroy; 
  end; 
end;

Was soll genau bei rect stehen? Bei diesen Angaben wird das Programm zu sehr vergrößert. Ich hoffe ihr könnt mir helfen