unit PrinterInfoUnit;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    plPrev1: TplPrev;
    procedure Button1Click(Sender: TObject);
    procedure plPrev1PrinterSetupDialog(Sender: TObject);
  private
    { Private 宣言 }
    PrnInfoFile : String;
    procedure HogeHoge;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

//=============================================================================
//  逐次表示方式のコード
//
//  (1) まずプリンタの設定をファイルから読出す
//  (2) 描画用クラスメソッドを作成する(ここではHogeHogeという名前)
//  (3) このメソッド名をProcNameプロパティに指定する．
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  //プリンタの設定値の保存パス名を定義
  PrnInfoFile := ExtractFilePath(Application.ExeName) + 'PrinterInfo1.plv';

  //ファイルがあればそのplSetPrinterの設定内容を読出す
  plPrev1.plSetPrinter.LoadFromFile(PrnInfoFile);

  //逐次表示方式では[プリンタ・用紙]のボタンが使用可能
  plPrev1.BtnOptions := plPrev1.BtnOptions + [boPrinterSetBtn];

  //逐次表示方式のProcNameプロパティ設定後のプリンタ設定は無効なので注意
  plPrev1.ProcName := HogeHoge;

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

//-----------------------------------------------------------------------------
//  実際の描画メソッド
//  このメソッド内に本コンポーネントのCanvasを使用したコードを記述． 　　
//  複数頁の場合は，頁番号によって処理を分岐する．
//-----------------------------------------------------------------------------
procedure TForm1.HogeHoge;
begin
  plPrev1.FontHeight (120);
  plPrev1.TextOut(250, 300, '[プリンタの設定]の保存と読出しテスト');
end;

//=============================================================================
//  プリンタの設定ダイアログを[OK]で終了した時のイベント
//=============================================================================
procedure TForm1.plPrev1PrinterSetupDialog(Sender: TObject);
begin
  //plSetPrinter1の情報を保存
  plPrev1.plSetPrinter.SaveToFile(PrnInfoFile);
end;

end.