1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure DruckerraenderFestlegen;
var
    PixelsPerInch, PhysPageSize, OffsetStart, PageRes: TPoint;
begin
    Printer.PrinterIndex := Printer.Printers.IndexOf(druckername);
    PixelsPerInch.y := GetDeviceCaps(Printer.Handle, LOGPIXELSY);
    PixelsPerInch.x := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
    Escape(Printer.Handle, GETPHYSPAGESIZE, 0, nil, @PhysPageSize);
    Escape(Printer.Handle, GETPRINTINGOFFSET, 0, nil, @OffsetStart);
    PageRes.y := GetDeviceCaps(Printer.Handle, VERTRES);
    PageRes.x := GetDeviceCaps(Printer.Handle, HORZRES);
    drucker_oberer_rand := OffsetStart.y / PixelsPerInch.y * 2.54;
    drucker_linker_rand := OffsetStart.x / PixelsPerInch.x * 2.54;
    //drucker_unterer_rand := ((PhysPageSize.y - PageRes.y) / PixelsPerInch.y) - (OffsetStart.y / PixelsPerInch.y) * 2.54;
    //drucker_rechter_rand := ((PhysPageSize.x - PageRes.x) / PixelsPerInch.x) - (OffsetStart.x / PixelsPerInch.x) * 2.54;
end;                    

1:
2:
3:
4:

{$WARNINGS OFF}
Escape ...
Escape ...
{$WARNINGS ON}                    

1:
2:
3:

            {$WARN UNSAFE_CODE OFF}     // Disable Unsafe Code Warning Messages.
            {$WARN UNSAFE_TYPE OFF}     // Disable Unsafe Type Warning Messages.
            {$WARN UNSAFE_CAST OFF}     // Disable Unsafe TypeCast Warning Messages.                    

1:
2:

// Include the Compiler Version and Options Settings
{$I 'Omorphia.config.inc'}