|
> 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;
//以下略
|