掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
データを読み込み印刷するには？ (ID：13171)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
データベースのデータを印刷したいのですが、 基本的な命令のかかれてある記事が見つかりません。 どなたか教えてください。 たとえば データ１−１ データ２−１ 改行 データ１−２ データ２−２ 改行 ・ ・ ・ 改ページ といった処理をしたいのです。 イメージとしては procedure TForm1.Button1Click(Sender: TObject); var DataCount : Integer; PrnCount : Integer; begin PrnCount := 0 for DataCount := 1 to Datasauce1.Table1.RecordCount do begin PrnCount := PrnCount + 1; 印刷データ１ := DataSauce1.Table1.FieldByName('データ１').AsString; 印刷データ２ := DataSauce1.Table1.FieldByName('データ２').AsString; 印刷・改行処理 if PrnCount = 20 then begin PrnCount := 0 改ページ処理 end end; 印刷終了処理 end; end. こんな感じにしたいのですが、 データのセット、改行、改ページについて教えてください
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.