喫茶XRAYトップページ

[スレッド全体]
[172] Re4:plTackPrevでの改頁方法返信　削除
2005/3/5 (土) 02:24:54 yumapa
▼ Mr.XRAYさん
ご面倒をお掛けしておりますm(_ _)m
 
はがき宛名印刷のテストプログラムでは、「用紙のタイプ」をstSealと
されいますが、はがき１頁をラベル１枚として設定されていると思います。
私の表は、１頁あたり１０行のQueryデータを出力させるようにして
いますが、最終頁のQueryデータ数は１だったり、６だったりしますので、

> procedure TForm1.plTackPrev1FormShow(Sender: TObject);
> begin
>      plTackPrev1.LabelCount:=plTackPrev1.LabelCount+1;
> end;

としても、同様にうまくいくのでしょうか？

質問させて頂きながら誠にお恥ずかしいのですが、今手元にあるＰＣには
Delphi環境が入っておりませんので、試すことができません(^^;
私としては、plTackPrevのテストプログラム「表形式の印刷」のような
表を描画し、最終のQueryデータの表示されてている頁に、プラス１頁
したいと思います。
アドバイス頂ければ幸いですm(_ _)m

[173] Re5:plTackPrevでの改頁方法返信　削除
2005/3/5 (土) 11:05:28 Mr.XRAY
▼ yumapaさん
> としても、同様にうまくいくのでしょうか？

いきませんね．Labelの枚数を頁に印刷する枚数から換算する必要が
あります．

> 表を描画し、最終のQueryデータの表示されてている頁に、プラス１頁
> したいと思います。

ということで，できなくはないが結構ややこしいです．
AddPageCount(追加頁数)みたいなプロパティでも追加しますか．
それとも.... ちょっと考えてみます．

それと先程のコードですと，頁を戻すと画像が表示されなくなってしまい
ますね．画像を退避しておく必要があります．
[174] Re6:plTackPrevでの改頁方法(頁の追加)返信　削除
2005/3/5 (土) 12:48:53 Mr.XRAY
> AddPageCount(追加頁数)みたいなプロパティでも追加しますか．
> それとも.... ちょっと考えてみます．

AddPageCountとOriginPageCountプロパティを追加したバージョンをUP
しました．Version 4.18です．
追加の頁にはデータを印刷しません．
例えばテストプログラム[Table]で以下の様に使用して下さい．

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
     plTackPrev1.Title:='表形式の印刷テスト';
     plTackPrev1.AddPageCount:=3;
     plTackPrev1.Preview;
end;

procedure TForm1.plTackPrint1BeforePageDraw(Sneder: TObject; DataNo,
  Page: Integer);
var
     Str          : String;
begin
     if Page>plTackPrev1.OriginPageCount then begin
       Str:=IntToStr(Page-plTackPrev1.OriginPageCount);
       plTackPrev1.FontSize(50);
       plTackPrev1.TextOut(100,100,'追加の '+Str+'頁目です');
       exit;
     end;
     //以下略


[175] Re7:plTackPrevでの改頁方法(頁の追加)返信　削除
2005/3/5 (土) 16:03:59 yumapa
▼ Mr.XRAYさん
ご面倒掛けてスミマセン(^^;

> AddPageCountとOriginPageCountプロパティを追加したバージョンをUP
> しました．Version 4.18です．
> 追加の頁にはデータを印刷しません．

いつもリクエストに迅速なご対応を頂き、心から感謝しております。
待ち遠しいですが、月曜日に試させて頂きます。
ありがとうございましたm(_ _)m


[176] Re7:plTackPrevでの改頁方法(頁の追加)返信　削除
2005/3/5 (土) 16:09:55 Mr.XRAY
今試したらイベント内でも可能なようです．

 procedure TForm1.plTackPrint1BeforePageDraw(Sneder: TObject; DataNo,
   Page: Integer);
 var
      Str : String;
 begin
      plTackPrev1.AddPageCount:=3:
      if Page>plTackPrev1.OriginPageCount then begin
        Str:=IntToStr(Page-plTackPrev1.OriginPageCount);
        plTackPrev1.FontSize(50);
        plTackPrev1.TextOut(100,100,'追加の '+Str+'頁目です');
        exit;
      end;

>いつもリクエストに迅速なご対応を頂き、心から感謝しております。

実は必ずしも迅速ではないんです．
メールでの問合わせ分が溜まっています．メールで問合わせている方，
ゴメンなさい．ぼちぼちやっていますので．m(_ _)m

別に優先順位があるわけではないのですが，どうしてもレスポンスがいい
方に対して反応する様です (^^ゞ
 
[177] Re8:plTackPrevでの改頁方法(頁の追加)返信　削除
2005/3/7 (月) 13:44:53 yumapa
▼ Mr.XRAYさん

お陰様で、思ったとおりの動作をさせることが出来ました。
ありがとうございましたm(_ _)m
[▼次のスレッド]
INCM/CMT
Cyclamen v3.82