multisize.dpr

来自「生成PDF文档的控件」· DPR 代码 · 共 53 行

{*******************************************************}
{                                                       }
{       This unit is part of the VISPDF VCL library.    }
{       Written by R.Husske - ALL RIGHTS RESERVED.      }
{                                                       }
{       Copyright (C) 2000-2008, www.vispdf.com         }
{                                                       }
{       e-mail: [e-mail]                      }
{       http://www.vispdf.com                           }
{                                                       }
{*******************************************************}

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

var
   VPDF: TVPDF;

begin
    VPDF:= TVPDF.Create(nil);
    try
        VPDF.AutoLaunch := true;                // PDF file will be shown automatically
        VPDF.FileName := '.\MultiSize.pdf';     // Set PDF filename
        VPDF.PageLayout := plOneColumn;         // Set one column viewer mode
        VPDF.BeginDoc;
        VPDF.CurrentPage.Size := psA3;                  // Set A3 page size
        VPDF.CurrentPage.TextOut(10, 10, 0, 'A3 Size'); // Print text

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

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

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

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