Code Example

program MultiSize;
{$APPTYPE CONSOLE}
uses
  SysUtils,
  Graphics,
  Classes,
  HPDFDoc;

var
   HPDF: THotPDF;

begin
    HPDF:= THotPDF.Create(  nil  );
    try
        HPDF.AutoLaunch := true;                // PDF file will be shown automatically
        HPDF.FileName := '\MultiSize.pdf';   // Set PDF filename
        HPDF.PageLayout := plOneColumn;  // Set one column viewer mode 

        HPDF.BeginDoc;                              // Create PDF file

        HPDF.CurrentPage.Size := psA3;                      // Set A3 page size
        HPDF.CurrentPage.TextOut(10, 10, 0, 'A3 Size'); // Print text

        HPDF.AddPage;                                          // Add new page
        HPDF.CurrentPage.Width := 600;                  // Set Page Width
        HPDF.CurrentPage.Height := 400;                 // Set Page Height
        HPDF.CurrentPage.TextOut(10, 10, 0, '600 X 400 Page size'); // Print text

        HPDF.AddPage;                                                        // Add new page
        HPDF.CurrentPage.Size := ps8x11;                            // Set 8x11 page size
        HPDF.CurrentPage.Orientation := poLandscape;          // Set landscape page orientation
        HPDF.CurrentPage.TextOut(10, 10, 0, '8x11 Size');      // Print text

        HPDF.AddPage;                                                     // Add new page
        HPDF.CurrentPage.Size := psA4;                            // Set A4 page size
        HPDF.CurrentPage.TextOut(10, 10, 0, 'Letter Size');  // Print text

        HPDF.EndDoc;                                                       // Close PDF file
    finally
        HPDF.Free;
    end;
end.