Quick report displaying or printing a report incorrectly with windows font size setting is: (125%,150%) or dpi larger then 96 (120,144)

Question

This problem is well known, but I've yet to find a solution.

Whenever the fon-size in windows is set to higher then the normal size

the report shrinks relative to the paper size,

and gets anchored to the top left corner of the page like so:

Swiching the "scaled" property on or off anywhere doesn't effect this.

As is messing with PixelsPerInch.

The only solution offered from those I've seen, that actually does something,

and can be found in quickreport forum, in this link right here:

QrPreview with UseDpiScaling under Windows7 ,

involves creating a new project manifest resource, adding the following lines to it:

<application xmlns="urn:schemas-microsoft-com:asm.v3">
    <windowsSettings>
      <dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
    </windowsSettings>
  </application>
</assembly>

However the only thing this does is make the text in the report larger,

while the report stays within the same boundries, as illustrated below:

What can be done about that?

I need the report to fit the size of the paper,

to display and print the same way it was designed, regardless of windows font-size

Answer 1

I found a working solution! Patch for QRPrntr.pas:

  procedure TQRPrinter.CreateMetafileCanvas;

  function scaleToNativeDeskRes(pVal: Integer): Integer;
  var
   tTemp: HDC;
  begin
    tTemp := GetDC(0);
    try
      Result := Round((pVal * GetDeviceCaps(tTemp, VERTRES)) / GetDeviceCaps(tTemp, DESKTOPVERTRES));
    finally
      ReleaseDC(0, tTemp);
    end;
  end;

begin
...
  FMetafile.Width := scaleToNativeDeskRes(XSize(PaperWidthValue));
  FMetafile.Height := scaleToNativeDeskRes(YSize(PaperLengthValue));
  FCanvas := TMetafileCanvas.Create(FMetafile, 0);
  FCanvas.Font.PixelsPerInch := MetafileDPI;
...
end;