THPDFPage ページサイズデモプロジェクト

Delphi の PageSetup フォルダーでは、ページサイズの例を実用的な出力サイズごとに分けています:

LargeSize では、QuadA0、DoubA0、A0、A1、A2、B0+、B0、B1、B2、ANSI-C/D/E、ARCH-C/D/E1/E、日本の用紙サイズ、大型写真サイズ、および 1024 x 768 mm の UserDefined(ユーザー定義)ページを示します。

NormalSize では、A3、Tabloid(タブロイド)、Ledger(レジャー)、A4、Letter(レター)、A5、B3、B4、B5、中型写真サイズ、ANSI-A/B、および ARCH-A/B を示します。

SmallSize では、A6-A10、B6-B10、名刺サイズ、ISO 7810 ID/パスポートサイズ、証明写真サイズ、および小型写真プリントサイズを示します。

既存の psXXX という名前は、互換性のあるエイリアスとして残ります。新しいコードでは、標準サイズとして A0、A2、B2、B3、Tabloid、Ledger、ANSIC、ARCHD、USBC、および P8R などのプレフィックスのないページサイズ列挙値を使用することを推奨します。UserDefined は、事前定義されていない寸法にのみ使用してください。

Tabloid は 11 x 17 インチです。Ledger は横向きの 17 x 11 インチサイズです。Ledger を縦向きの Tabloid の別名として扱わないでください。

実際の仕様が数字で始まる場合、写真サイズの列挙名には P プレフィックスが使用されます。たとえば、P5R は、ユーザー向けの 5R 写真サイズを表します。

Bシリーズの値は既存の HotPDF B4 / B5 の規則に従い、JIS B 寸法を使用します。psB4 および psB5 は引き続きサポートされるエイリアスです。

例:

program NormalSize;

{$APPTYPE CONSOLE}

uses

SysUtils,

HPDFDoc;

 

var

  HPDF: THotPDF;

 

begin

   HPDF:= THotPDF.Create( nil );

   try

       HPDF.AutoLaunch := true;                // PDF file will be shown automatically

       HPDF.File名前 := 'NormalSize.pdf';  

       HPDF.PageLayout := plOneColumn; // Set one column viewer mode

 

       HPDF.BeginDoc;                              // Create PDF file

 

       HPDF.CurrentPage.Size := A3;                        // Prefer predefined standard sizes

       HPDF.CurrentPage.TextOut(10, 10, 0, 'A3 Size'); // Print text

 

       HPDF.AddPage;                                          // Add new page

       HPDF.CurrentPage.Size := B3;                        // JIS B3 page size

       HPDF.CurrentPage.TextOut(10, 10, 0, 'B3 Size'); // Print text

 

       HPDF.AddPage;                                                        // Add new page

       HPDF.CurrentPage.Size := P8R;                      // 8 x 10 inch photo page

       HPDF.CurrentPage.TextOut(10, 10, 0, '8R Photo Size'); // Print text

 

       HPDF.AddPage;                                                     // Add new page

       HPDF.CurrentPage.Size := Tabloid;                  // 11 x 17 inch Tabloid page size

       HPDF.CurrentPage.TextOut(10, 10, 0, 'Tabloid Size'); // Print text

 

       HPDF.AddPage;                                                     // Add new page

       HPDF.CurrentPage.Size := Ledger;                   // 17 x 11 inch Ledger page size

       HPDF.CurrentPage.TextOut(10, 10, 0, 'Ledger Size'); // Print text

 

       HPDF.EndDoc;                                                       // Close PDF file

   finally

       HPDF.Free;

   end;

end.