diff --git a/components/lazreport/source/lr_prntr.pas b/components/lazreport/source/lr_prntr.pas index 6b4103dd76..fbb30e7c32 100644 --- a/components/lazreport/source/lr_prntr.pas +++ b/components/lazreport/source/lr_prntr.pas @@ -801,11 +801,14 @@ begin {$Endif} try - PaperWidth:=fPrinter.PageWidth; - PaperHeight:=fPrinter.PageHeight; - finally + // update paper size in std pt units + PaperWidth := round(fPrinter.PaperSize.Width * 72 / fPrinter.XDPI); + PaperHeight := round(fPrinter.PaperSize.Height * 72 / fPrinter.YDPI); + except PaperWidth:=1; PaperHeight:=1; + // let it as it was .... + raise end; end; {$ifdef DbgPrinter}