unit BasicUnit;

interface

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

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    plSetPrinter1: TplSetPrinter;
    plSetPrinter2: TplSetPrinter;
    PrinterSetupDialog1: TPrinterSetupDialog;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  Printers;

{$R *.DFM}

//=============================================================================
//  plSetPrinter1のプリンタとプロパティの設定
//=============================================================================
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  plSetPrinter1.ShowSetupDialog;
end;
//=============================================================================
//  plSetPrinter2のプリンタとプロパティの設定
//=============================================================================
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  plSetPrinter2.ShowSetupDialog;
end;

//=============================================================================
//  プログラムの実行
//  Printer.Canvasに出力する
//  現実に接続してあるプリンタでテストのこと
//  CallSetttingsはプリンタ設定コンポを1つしか使用しない場合は必要ない
//=============================================================================
procedure TForm1.BitBtn3Click(Sender: TObject);
var
  LText1 : string;
  LText2 : string;
begin
  LText1 := 'plSetPrinter1の設定による印刷';
  LText2 := 'plSetPrinter2の設定による印刷';

  //plSetPrinter1の設定内容でプリンタの設定を行う
  plSetPrinter1.CallSetting;

  Printer.Title := '印刷のテスト';
  Printer.BeginDoc;
  try
    Printer.Title := '印刷のテスト';
    Printer.Canvas.Font.Name  := 'ＭＳ Ｐ明朝';
    Printer.Canvas.Font.Color := clRed;
    Printer.Canvas.Font.Size  := 20;
    Printer.Canvas.TextOut(200, 200, LText1);

    //線を引く
    Printer.Canvas.Pen.Width := 10;
    Printer.Canvas.MoveTo(200, 400);
    Printer.Canvas.LineTo(1800, 400);
  finally
    Printer.EndDoc;
  end;

  //plSetPrinter2の設定内容でプリンタの設定を行う
  plSetPrinter2.CallSetting;

  //文字列S2を印刷
  Printer.BeginDoc;
  try
    Printer.Canvas.Font.Name  := 'ＭＳ Ｐ明朝';
    Printer.Canvas.Font.Color := clBlack;
    Printer.Canvas.Font.Size  := 20;
    Printer.Canvas.TextOut(200, 200, LText2);

    //線を引く
    Printer.Canvas.Pen.Width := 10;
    Printer.Canvas.MoveTo(200, 400);
    Printer.Canvas.LineTo(1800, 400);
  finally
    Printer.EndDoc;
  end;
end;

end.