Noch nicht perfekt.aber ein Codeschnipsel der helfen dürfte!
Delphi-Quellcode:
with JvPreviewControl1 do begin
BeginUpdate;
try
DeviceInfo.PhysicalWidth:=Printer.PageWidth;
DeviceInfo.PageWidth:=Printer.PageWidth;
DeviceInfo.PageHeight:=Printer.PageHeight;
DeviceInfo.PhysicalHeight:=Printer.PageHeight;
DeviceInfo.LogPixelsX:=GetDeviceCaps(Printer.Handle, LOGPIXELSX);
DeviceInfo.LogPixelsY:=GetDeviceCaps(Printer.Handle, LOGPIXELSY);
DeviceInfo.OffsetLeft:=GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX);
DeviceInfo.OffsetTop:=GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY);