[Drucken]: Größenanpassung

[mytar]

Schaffs mit der TPrinter-Klasse aus der Unit Printers mein
gewünschte Image zu drucken, allerdings sehr klein.
Die Zeichnung nimmt nur 1/5 des A4-Blattes an,
obwohl das Image eigentlich größer ist?

Was kann ich dagegen tun?

Ich hab mal waß noch PixelsPerInch gehört?

Danke

[mytar]

*push* :-D

[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...

[mytar]

Bei mir wird das ganze irgendwie komisch gedruckt.

Kann mir das nicht erklären.

Könnte ich dass nicht irgendwie anders lösen?

Danke :-D