掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DBを使わないQuickreportでの改ページ (ID:38628)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ちなみにこちらで試したのは、以下のコードです。 const MAX_IMAGE = 3; procedure TRepDlg.QuickRep1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); begin CurrentItem := 0; PrintReport := True; end; procedure TRepDlg.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean); begin MoreData := (CurrentItem < MAX_IMAGE); if not MoreData then exit; QRImage1.Canvas.TextOut(10, 10, IntToStr(CurrentItem + 1) + '枚目'); inc(CurrentItem); end; procedure TRepDlg.DetailBand1AfterPrint(Sender: TQRCustomBand; BandPrinted: Boolean); begin if CurrentItem < MAX_IMAGE then QuickRep1.NewPage; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.