名前
題名
▼ 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; > //以下略 >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link