Blattbreite u -Höhe außerhalb außerhalb v BeginDoc in 1/10mm

[SirThornberry]

Hallo, um eine Druckvorschau zu realisieren brauch ich die Breite und Höhe des Blattes (nicht in Pixeln).
Mein erster Gedanke war mit
SetMapMode(Printer.Canvas.Handle, MM_LOMETRIC);
die einheit maßeinheit zu setzen und danach mit printer.pagewith oder ähnlichem die Breite des Blattes abzufragen.
Das Problem ist aber das
SetMapMode(Printer.Canvas.Handle, MM_LOMETRIC);
nicht vor printer.BeginDoc stehen darf. Was gibts noch für Möglichkeiten die Breite rauszufinden?? (Blattränder sind mir egal)

[Gollum]

Hallo,

mit GetDeviceCaps kannst Du die erforderlichen Info's abfragen.

Code:

  Breite:=GetDeviceCaps(Printer.Handle, HORZSIZE); // Breite in mm
  Hoehe:=GetDeviceCaps(Printer.Handle, VWERTSIZE); // Höhe in mm

[SirThornberry]

hab en Lösung gefunden:

Delphi-Quellcode:

[...]
breite := getdevicecaps(printer.Handle, HORZSIZE) * 10;
[...]

hatte es vorher mit
breite := getdevicecaps(printer.canvas.Handle, HORZSIZE) * 10;
versucht aber zugriff auf canvas ist ja erst nach begindoc möglich.