喫茶XRAYトップページ

[1039] タックシール印刷について返信　削除
2006/12/13 (水) 13:47:11 pal
こんちわ

タックシール印刷コンポについて質問があります
テストプログラムにある「印刷開始ラベルの指定」で
１．ＥＸＥ起動
２．プレビュー実行
３．最終ページを指定表示・・６／６が表示されています
４．プレビューを閉じて
５．再度プレビュー実行
６．何故か６／６ページが表示される？？
　　　ここで１ページ目から表示する方法にはどうすればよろしいでしょうか？

以前のバージョンでは
procedure TForm1.plTackPrev1FormShow(Sender: TObject);
begin
  plTackPrev1.Display(1);
end;
これでよかったようですが.....
ご教授ください。
[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さん
ご指摘のように対処しました、ＯＫです。

> とりあえず，以下の様に逃げていただけますか．
>
> 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