Drucken

[samso]

Zitat von Brainshock:

Zitat von samso:

Delphi-Quellcode:

  Result.Right := trunc((PhysicalPage.X-Offset.X-PrintablePage.X)*XResolution+0.5);
  Result.Bottom := trunc((PhysicalPage.Y-Offset.Y-PrintablePage.Y)*YResolution+0.5);

Beim Microsoft PDF Printer kommt bei mir 2x Null raus.

Ja, das kann sein. Hier wird nicht die Seitengröße berechnet, sondern die Breite der Seitenränder (also der Bereich des Blattes der nicht bedruckt werden kann). D.h. Result.Right=0 heißt, dass der rechte Seitenrand eine Breite von 0 hat. Entsprechend hat bei Result.Bottom=0 der untere Seitenrand eine Höhe von 0. Das ist bei einem PDF-Drucker eigentlich auch zu erwarten. Die Seitengrößen stehen in PrintablePage und PhysicalPage. Der Quelltext soll lediglich zeigen, wie man verschiedene Kennwerte eines Druckerdokuments ermittelt. Vielleicht wäre es schlauer gewesen an dieser Stelle nicht TRect zu vergewaltigen, sondern statt dessen ein eigenes Record zu erfinden. Also so:

Delphi-Quellcode:

type
  TMarginSizes = record
    Left, Top, Right, Bottom: Integer;
  end;

function GetDefaultMinMargins: TMarginSizes;
var
  XResolution, YResolution: Extended;
  PhysicalPage: TSize;
  PrintablePage: TSize;
  Offset: TPoint;
begin
  XResolution := 1/GetDeviceCaps(Printer.Handle, LOGPIXELSX)*1000;
  YResolution := 1/GetDeviceCaps(Printer.Handle, LOGPIXELSY)*1000;
  PhysicalPage.cx := GetDeviceCaps(Printer.Handle, PHYSICALWIDTH);
  PhysicalPage.cy := GetDeviceCaps(Printer.Handle, PHYSICALHEIGHT);
  PrintablePage.cx := GetDeviceCaps(Printer.Handle, HORZRES);
  PrintablePage.cy := GetDeviceCaps(Printer.Handle, VERTRES);
  Offset.X := GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX);
  Offset.Y := GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY);
  Result.Left := trunc(Offset.X*XResolution+0.5);
  Result.Top := trunc(Offset.Y*YResolution+0.5);
  Result.Right := trunc((PhysicalPage.cx-Offset.X-PrintablePage.cx)*XResolution+0.5);
  Result.Bottom := trunc((PhysicalPage.cy-Offset.Y-PrintablePage.cy)*YResolution+0.5);
end;