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

markieren

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

Problem hat sich erledigt

Zitat:

Problem hat sich erledigt

Das hilft jemand mit dem gleichen Problem nicht. Schreib doch noch bitte, WIE du es jetzt gelöst hast.