procedure TForm1.Button2Click(Sender: TObject);
begin
  plPrev1.PrintFromPage := 1;
  plPrev1.PrintToPage   := plPrev1.PageCount;
  plPrev1.Print;
end;

//=============================================================================
//  DesignedPaperSizeのテストコード
//  設計時のコードはA3横で行い，実際の印刷はA4横で行う
//  オブジェクトインスペクタでの用紙設定はA4横
//
//  一種の拡大・縮小印刷機能
//
//  以下は逐次表示方式の場合のコード
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  //逐次表示方式では[プリンタ・用紙]のボタンが使用可能
  plPrev1.BtnOptions := plPrev1.BtnOptions + [boPrinterSetBtn];

  //3頁分
  plPrev1.PageCount := 3;

  //DesignedPaperSizeでA3を指定するのでA3用紙に設定
  plPrev1.plSetPrinter.PaperNumber := DMPAPER_A3;
  //印刷方向は横
  plPrev1.plSetPrinter.Orientation := poLandscape;
  //第1引数は，設定した用紙の横幅，第2引数は縦幅
  //ここではDMPAPER_A3の値
  plPrev1.DesignedPaperSize(2970, 4200);

  plPrev1.ProcName := HogeHoge;

  //プレビュー開始．逐次表示方式にはShowメソッドはない
  plPrev1.ShowModal;
end;