喫茶XRAYトップページ

[スレッド全体
]

[1041] Re:タックシール印刷について返信 削除
2006/12/13 (水) 20:30:01 Mr.XRAY
▼ palさん,こんにちは

テストプログラムのStartLabelですね.
印刷の時の印刷頁関係を修正した時にチェックしていなかったようです.
修正します.しばらく時間を下さい.
[1033]のスレッドのAndyさんの質問もバグですのでいっしょに調査します.
マイッタ!!

とりあえず,以下の様に逃げていただけますか.

procedure TForm1.plTackPrev1FormShow(Sender: TObject);
begin
  plTackPrev1.PageNumber:=1;
//  plTackPrev1.Display(1);
end;

あるいは,

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
     with plTackPrev1 do begin
       PageNumber:=1;          //ここに表示開始頁を記述
       //印刷開始ラベルを指定
       StartRow:=StrToInt(Trim(Edit1.Text));
       StartCol:=StrToInt(Trim(Edit2.Text));
       //印刷ずれの調整用変数をセット
       PrintOffsetX:=StrToInt(Trim(Edit3.Text));
       PrintOffsetY:=StrToInt(Trim(Edit4.Text));
       Title:='ヒサゴ GB1985の例';
       //プレビュー開始
       Preview;
     end;
end;


[1043] Re2:タックシール印刷について返信 削除
2006/12/14 (木) 12:35:11 pal
▼ Mr.XRAYさん
ご指摘のように対処しました、OKです。

> とりあえず,以下の様に逃げていただけますか.
>
> procedure TForm1.plTackPrev1FormShow(Sender: TObject);
> begin
>   plTackPrev1.PageNumber:=1;
> //  plTackPrev1.Display(1);
> end;
>
> あるいは,


こちら下記を採用しました、ありがとうございます。
> procedure TForm1.BitBtn1Click(Sender: TObject);
> begin
>      with plTackPrev1 do begin
>        PageNumber:=1;          //ここに表示開始頁を記述
>        //印刷開始ラベルを指定
>        StartRow:=StrToInt(Trim(Edit1.Text));
>        StartCol:=StrToInt(Trim(Edit2.Text));
>        //印刷ずれの調整用変数をセット
>        PrintOffsetX:=StrToInt(Trim(Edit3.Text));
>        PrintOffsetY:=StrToInt(Trim(Edit4.Text));
>        Title:='ヒサゴ GB1985の例';
>        //プレビュー開始
>        Preview;
>      end;
> end;


[▼次のスレッド]
INCM/CMT
Cyclamen v3.82