|
今試したらイベント内でも可能なようです．
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
別に優先順位があるわけではないのですが，どうしてもレスポンスがいい
方に対して反応する様です (^^ゞ
|