mORMot Open Source

procedure TForm1.FormActivate(Sender: TObject);
var
    i: Integer;
    Pdf: TPdfDocument;
    Pages: TList;
    MyMetafile: TMetafile;
    Gdi: TPdfDocumentGDI;
    MFPrinter: TMetaFilePrinter;
begin
    // 1. Using TPdfDocument and Viewer.MakePagedMetaFiles
    Pdf := TPdfDocument.Create;
    try
        Pdf.DefaultPaperSize := psA4;
        Pages := Viewer.MakePagedMetaFiles(Trunc(Pdf.DefaultPageWidth * 1.30), Trunc(Pdf.DefaultPageHeight * 1.30)); // Not very elegant...
        for i := 0 to Pages.Count - 1 do
        begin
            Pdf.AddPage;
            MyMetafile := TMetafile.Create;
            with TMetafileCanvas.Create(MyMetafile, 0) do
            try
                Draw(51, 18, TMetafile(Pages[i])); // To center metafile on page create new metafile...
            finally
                Free;
            end;
            Pdf.Canvas.RenderMetaFile(MyMetafile);
            TMetafile(Pages[i]).Free;
            MyMetafile.Free;
        end;
        Pages.Free;
        Pdf.SaveToFile('c:\temp\output.pdf');
    finally
        Pdf.Free;
    end;
    // 2. Using TPdfDocumentGDI
    Gdi := TPdfDocumentGDI.Create;
    try
        Printer.Orientation := poPortrait;
        MFPrinter := TMetaFilePrinter.Create(nil);
        Viewer.PrintPreview(MFPrinter);
        Gdi.DefaultPageWidth := Trunc(MFPrinter.PaperWidth / MFPrinter.PixelsPerInchX * PixelsPerInch); // This is not A4 but should be
        Gdi.DefaultPageHeight := Trunc(MFPrinter.PaperHeight / MFPrinter.PixelsPerInchY * PixelsPerInch);
        for i := 0 to MFPrinter.LastAvailablePage - 1 do
        begin
            Gdi.AddPage;
            SetMapMode(Gdi.VCLCanvas.Handle, MM_ANISOTROPIC);
            SetWindowExtEx(Gdi.VCLCanvas.Handle, MFPrinter.PaperWidth, MFPrinter.PaperHeight, nil);
            SetViewportExtEx(Gdi.VCLCanvas.Handle, Trunc(Gdi.DefaultPageWidth * 2.86), Trunc(Gdi.DefaultPageHeight * 2.86), nil);
            SetWindowOrgEx(Gdi.VCLCanvas.Handle, 0, 0, nil);
            Gdi.VCLCanvas.Draw(-10, 0, MFPrinter.MetaFiles[i]);
        end;
        MFPrinter.Free;
        Gdi.SaveToFile('c:\temp\gdioutput.pdf');
    finally
        Gdi.Free;
    end;
end;