Ausdruck auf halbe Seite begrenzen

[McReier]

Hallo zusammen,
ich möchte die Datei "result.jpg" auf Druckerbreite und halbe DIN A4 Seite drucken.
Ich habe bei meinem Quelltext noch das Problem mit der Umrechnung der Pixel (Ergebnis wird auf jeden Drucker anders ausgedruckt).
Unter http://www.delphi-treff.de/tutorials/ob ... n-systeme/ findet man

Code: Alles auswählen

SetMapMode(Printer.Canvas.Handle, MM_LOMETRIC);

Aber wie binde ich diesen Quelltext richtig ein?
Dieser schaut momentan folgendermaßen aus:

Code: Alles auswählen

procedure TForm1.DruckenClick(Sender: TObject);
    var b:Tbitmap;
 begin
 If PrintDialog1.Execute then
   begin
     Printer.BeginDoc;
     b:= Tbitmap.create;
     b.loadfromfile('result.jpg');
     Printer.canvas.stretchdraw(rect(0,0,printer.pagewidth,3294),b);
     Printer.enddoc
   end;
end;    

Eine alternative zu SetMapMode wäre "pageheight/2" anstatt dem Wert 3294 aber das geht ja leider nicht

Wie würdet Ihr mein Problem am besten lösen?
Danke!

[theo]

Eine alternative zu SetMapMode wäre "pageheight/2" anstatt dem Wert 3294 aber das geht ja leider nicht

Warum nicht?

[McReier]

Eine alternative zu SetMapMode wäre "pageheight/2" anstatt dem Wert 3294 aber das geht ja leider nicht

Warum nicht?

Die Fehlermeldung lautet:

Code: Alles auswählen

unit1.pas(1776,70) Error: Identifier not found "pageheight"

[theo]

Wie wäre es mit Printer.PageHeight, analog zur Printer.PageWidth?

[McReier]

Wie wäre es mit Printer.PageHeight, analog zur Printer.PageWidth?

Nun klappts

[theo]

Nun klappts

Ich sage jetzt mal lieber nichts. Advent - Zeit der Stille.