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

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