mORMot Open Source

//...
xPDFGDI := TPdfDocumentGDI.Create(False, 0, True, nil); //With PDF/A
try
  xPDFGDI.ScreenLogPixels := 72;
  for i := 0 to PagesCount - 1 do
  begin
    //Get the width and height with resolution 72 dpi.
    xWidth := MulDiv(Round(xPageWidth), 72, Screen.PixelsPerInch);
    xHeight := MulDiv(Round(xPageHeight), 72, Screen.PixelsPerInch);

    //The width and height properties must be set before to call AddPage.
    xPDFGDI.DefaultPageWidth := xWidth;
    xPDFGDI.DefaultPageHeight := xHeight;

    //Adjust the resolution from 96 dpi to 72 dpi
    xLeft := MulDiv(xLeft, 72, Screen.PixelsPerInch);
    xTop := MulDiv(xTop, 72, Screen.PixelsPerInch);

    xRight := MulDiv(xRight, 72, Screen.PixelsPerInch);
    xBottom := MulDiv(xBottom, 72, Screen.PixelsPerInch);

    //Calculates de printable area
    xWidth := xWidth - (xLeft + xRight);
    xHeight := xHeight - (xTop + xBottom);

    //Calculate the final coordinates
    xRight := xLeft + xWidth;
    xBottom := xTop + xHeight;

    //Add a new page to PDF
    xPDFGDI.AddPage;

    //Render the metafile on PDF canvas with StretchDraw.
    xPDFGDI.VCLCanvas.StretchDraw(Rect(xLeft, xTop, xRight, xBottom), Pages[i].Meta); 
  end;
  //Saves the PDF/A file in the disk.
  xPDFGDI.SaveToFile(aFileName);
finally
  xPDFGDI.Free;
end;