[Drucken]: Größenanpassung

[atreju2oo0]

Delphi-Quellcode:

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;

So mach ich das...