unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, plPrev;

type
  TForm1 = class(TForm)
    Button1: TButton;
    plPrev1: TplPrev;
    procedure Button1Click(Sender: TObject);
    procedure plPrev1BeforeView(Sender: TObject; Page: Integer);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  Printers,
  Unit2;

{$R *.DFM}

//=============================================================================
//  専用のプレビューフォーム以外の使用
//
//  10分頁を作成して表示
//  ここではテストなのでこのコードを作成する段階で頁数はわかっている
//  実際のアプリでは不明なこともある
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
   LPageStr : string;
   i        : Integer;
begin
  //プレビューするフォームを指定
  //このサンプルの場合はusesにunit2(Form2のユニット)を追加している
  plPrev1.Form := Form2;

  //プリンタの設定
  //poLandscape等の定数名の使用にはusesにPrintersが必要
  plPrev1.plSetPrinter.PrinterNumber := DMPAPER_A4;
  plPrev1.plSetPrinter.Orientation   := poPortrait;

  plPrev1.BeginDoc;
  try
    //文字のサイズ
    plPrev1.FontSize(40);
    //9回改頁を繰り返す
    i:=1;
    while True do begin
      //頁番号の文字列を作成
      LPageStr := IntToStr(plPrev1.PageNumber) + ' 頁目';
      //文字列を描画
      plPrev1.TextOut(450, 300, LPageStr);
      i := i + 1;
      if i > 10 then break;

      //改頁
      plPrev1.NewPage;
    end;
  finally
    plPrev1.EndDoc;
  end;

  //プレビュー開始
  plPrev1.ShowModal;
end;

//=============================================================================
//  TplPrevのOnBeforeViewイベント処理
//  OnBeforeViewイベントではCanvasに描画できる
//  このコードは印刷時にも実行される
//  (OnBeforeViewイベントは逐次表示方式では無効)
//=============================================================================
procedure TForm1.plPrev1BeforeView(Sender: TObject; Page: Integer);
var
  LPageStr : string;
begin
  //文字のサイズ
  plPrev1.FontSize(100);

  //頁番号の文字列を作成
  LPageStr := IntToStr(Page) + '/' + IntToStr(plPrev1.PageCount);
  //X=105.0mm,Y=270.0mmに位置に文字列を描画
  plPrev1.TextOutCC(1050, 2600, LPageStr);
end;

end.

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm2 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    PrintDialog1: TPrintDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private 宣言 }
    FPrevPage : Integer;
  public
    { Public 宣言 }
  end;

var
  Form2: TForm2;

implementation

uses
  plPrev,
  Unit1;

{$R *.DFM}

//=============================================================================
//  FormNameで指定したこのForm2のOnActivateイベント
//  このForm2上のImage1に2頁目のメタファイルを表示
//=============================================================================
procedure TForm2.FormActivate(Sender: TObject);
begin
  FPrevPage := 2;
  Image1.Height := Trunc(Image1.Width * Form1.plPrev1.PaperRatio);
  Image1.Canvas.StretchDraw(Image1.ClientRect,
                            Form1.plPrev1.GetMetaImage(FPrevPage));
  OnActivate := nil;
end;

//=============================================================================
//  [印刷]ボタンをクリックすると4,5頁を印刷
//=============================================================================
procedure TForm2.Button1Click(Sender: TObject);
begin
  if PrintDialog1.Execute then begin
    Form1.plPrev1.PrintFromPage := 4;
    Form1.plPrev1.PrintToPage   := 5;
    Form1.plPrev1.Print;
  end;
end;

//=============================================================================
//  前の頁を表示
//=============================================================================
procedure TForm2.Button2Click(Sender: TObject);
begin
  if FPrevPage > 1 then begin
    Dec(FPrevPage);
    Image1.Canvas.StretchDraw(Image1.ClientRect,
                              Form1.plPrev1.GetMetaImage(FPrevPage));
  end;
end;

//=============================================================================
//  次頁を表示
//=============================================================================
procedure TForm2.Button3Click(Sender: TObject);
begin
  if FPrevPage < Form1.plPrev1.PageCount then begin
    Inc(FPrevPage);
    Image1.Canvas.StretchDraw(Image1.ClientRect,
                              Form1.plPrev1.GetMetaImage(FPrevPage));
  end;
end;

end.