Canvas an Drucker senden und drucken

[atreju2oo0]

Delphi-Quellcode:

var Printer:TPrinter;
begin
Printer:=TPrinter.Create;
with Printer do
  begin
    Orientation:=poLandscape;
    BeginDoc;
    Refresh;
    Canvas.CopyMode:=cmSrcCopy;
    Canvas.CopyRect(Rect(0,0,PageWidth,PageHeight),
                    Zeichenfenster.Canvas,
                    Rect(0,0,560,450));
    EndDoc;
    Destroy;
  end;
end;

Das funktioniert auf das ganze Blatt passend...