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

unit StartLabelUnit;

interface

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

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    Query1: TQuery;
    Query1CustNo: TFloatField;
    Query1Company: TStringField;
    Query1Zip: TStringField;
    Query1Addr1: TStringField;
    Query1Phone: TStringField;
    Panel5: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    UpDown2: TUpDown;
    UpDown3: TUpDown;
    UpDown4: TUpDown;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    UpDown1: TUpDown;
    Panel1: TPanel;
    plTackPrev1: TplTackPrev;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

//=============================================================================
//  フォーム表示開始時に入力用Editの最大値を設定
//
//  plTackPrev1のオブジェクトインスペクタでの設定は
//  StartRow := 2;
//  startCol := 2;
//=============================================================================
procedure TForm1.FormShow(Sender: TObject);
begin
  UpDown1.Max := plTackPrev1.LabelRowCnt;
  UpDown2.Max := plTackPrev1.LabelColCnt;

  Edit1.Text  := IntToStr(plTackPrev1.StartRow);
  Edit2.Text  := IntToStr(plTackPrev1.StartCol);
end;

//=============================================================================
//  クエリの結果をタックシールに印刷
//  印刷開始ラベル行と列位置はメインフォームのEditで入力しておく
//=============================================================================
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  //印刷開始ラベルを指定
  plTackPrev1.StartRow := StrToInt(Trim(Edit1.Text));
  plTackPrev1.StartCol := StrToInt(Trim(Edit2.Text));

  //印刷ずれの調整用変数をセット
  plTackPrev1.PrintOffsetX := StrToInt(Trim(Edit3.Text));
  plTackPrev1.PrintOffsetY := StrToInt(Trim(Edit4.Text));
  plTackPrev1.Title        := 'ヒサゴ GB1985の例';

  //プレビュー開始
  plTackPrev1.Preview;
end;

end.