select CustNo,Company,Zip,Addr1,Phone from customer

unit EnvelopeUnit;

interface

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

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    Query1: TQuery;
    Panel1: TPanel;
    BitBtn2: TBitBtn;
    Query1CustNo: TFloatField;
    Query1Company: TStringField;
    Query1Zip: TStringField;
    Query1Addr1: TStringField;
    Query1Phone: TStringField;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    plTackPrev1: TplTackPrev;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure plTackPrev1FormShow(Sender: TObject);
    procedure plTackPrev1BeforePageDraw(Sneder: TObject; DataNo,
      Page: Integer);
  private
    { Private 宣言 }
    FPaperWidth  : Integer;
    FPaperHeight : Integer;
    LPaperName   : string;
    FLeftOffset  : Integer;
    FTopOffset   : Integer;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  Printers;

{$R *.DFM}

//=============================================================================
//  プレビュー開始
//  クエリーの結果のデータを封筒に印刷
//  長形4号封筒の横方向の印刷
//
//  使用するプリンタドライバで，プリントサーバに登録されている全ての用紙が
//  使用可能とは限らないこと注意
//  ここではユーザ定義用紙を作成して対処する
//
//  Query1のSQL文は以下の通り
//  select CustNo,Company,Zip,Addr1,Phone from customer
//=============================================================================
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  //封筒のサイズ(長形3型)の用紙作成．印刷の方向は横
  FPaperWidth  := 1200;
  FPaperHeight := 2350;
  LPaperName   := '長形3型 ';

  plTackPrev1.plSetPrinter.SetUserPaper(LPaperName, FPaperWidth, FPaperHeight);
  plTackPrev1.plSetPrinter.Orientation := poLandscape;

  plTackPrev1.Title := '封筒印刷のテスト';
  //単票形式での印刷とする
  plTackPrev1.SealType := stNoCut;
  plTackPrev1.Preview;
end;

//=============================================================================
//  ユーザ定義用紙を削除してプログラム終了
//  プリントサーバに登録しても，削除はしないプリンタドライバもある
//=============================================================================
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  plTackPrev1.plSetPrinter.DeleteUserPaper(LPaperName);
  Close;
end;

//=============================================================================
//  TplTackPrevのOnFormShowイベント
//  プレビュー開始したら説明文字列をステータスバーに表示
//=============================================================================
procedure TForm1.plTackPrev1FormShow(Sender: TObject);
begin
  plTackPrev1.StatusBarText := '  封筒 長形３型 (120×235mm) ';

  //郵便番号と枠の印刷位置微調整値
  FLeftOffset := SpinEdit1.Value;
  FTopOffset  := SpinEdit2.Value;

  //逆方向からの印刷フラグの設定
  //封筒のフラップ側(プレビューでは右)がプリンタへの挿入側の場合，挿入が困難な
  //ことがある，逆方向からの印刷にすると挿入しやすい
  plTackPrev1.InversePrint := CheckBox2.Checked;
end;

//=============================================================================
//  TplTackPrevのOnBeforePageDrawイベント
//  印刷コードは全てここで処理(項目エディタでは設定していない)
//
//  Query1のSQL文は以下の通り
//  select  CustNo,Company,Zip,Addr1,Phone from customer
//=============================================================================
procedure TForm1.plTackPrev1BeforePageDraw(Sneder: TObject; DataNo,
  Page: Integer);
var
  LText    : string;
  LZipText : string;
begin
  //住所の印刷
  LText := plTackPrev1.DataSet.FieldByName('Addr1').AsString;
  plTackPrev1.FontSize (18);
  plTackPrev1.TextOutLT(500, 230, LText);

  //宛先施設の印刷
  LText := plTackPrev1.DataSet.FieldByName('Company').AsString;
  plTackPrev1.FontSize(20);
  plTackPrev1.TextOutLT(500, 550, LText);

  //郵便番号と郵便番号枠の印刷
  LZipText := plTackPrev1.DataSet.FieldByName('Zip').AsString;
  plTackPrev1.FontSize(25);
  plTackPrev1.ZipOut(LZipText, FLeftOffset, FTopOffset, CheckBox1.Checked, 0);
end;

end.

  //日本のハガキサイズの用紙番号
  DMPAPER_JAPANESE_POSTCARD
  DMPAPER_JENV_CHOU4_ROTATED

  //日本の長形4号封筒サイズの用紙番号
  DMPAPER_JENV_CHOU4
  DMPAPER_JENV_CHOU4_ROTATED