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;