Printer.PageWidth, Printer.PageHeight og papirets størrelse

http://www.swissdelphicenter.ch/torry/showcode.php?id=1039

hejhej -> Det ser jo meget rigtigt ud, jeg vil lige teste det :-)

Ja, det var bare det der skulle til :-)
Hvis du lægger et svar, kan jeg lukke spørgsmålet :-)
Da det i min kode er nemmest at få tallene som "printer-pixels", er jeg nu endt med følgende kode:

type
  TMargins = record
    Left,
    Top,
    Right,
    Bottom: Real;
  end;

procedure GetPrinterMargins(var Margins: TMargins);
var
  PhysPageSize: TPoint;
  OffsetStart: TPoint;
  PageRes: TPoint;
begin
  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);
  // Top Margin
  Margins.Top := OffsetStart.y;
  // Left Margin
  Margins.Left := OffsetStart.x;
  // Bottom Margin
  Margins.Bottom := PhysPageSize.y - PageRes.y - OffsetStart.y;
  // Right Margin
  Margins.Right := PhysPageSize.x - PageRes.x - OffsetStart.x;
end;

Svar :-)

Takker for point :-)

hejhej -> Det er vist forbeholdt mig at sige tak :-)
(Et svar er altid mere værd end de points svarer får, og så er det lige meget om det er 30, 200 eller 2000 points)

Skal nok lade være med at gøre det igen ;-)