タイトル : 印刷の改ページ 投稿日 : 2006/03/16(Thu) 20:52 投稿者 : マサノリ
[OSのVer]:Windows [VBのVer]:VB.NET > > > ただ,基本的にNo.3274の魔界の仮面弁士さんの説明が答えのほぼ全てであって, > > ハイ、IF文を入れて出来ます。 > > ただ、とてもコードが長くなってしまい、出来たらCallでしたかったのです。 > > 私のサンプルで、その Call に相当するのが、 > >> タイトル印刷(e.Graphics) > >> 明細印刷(e.Graphics, ページ番号) > の部分となります。 > > 「Sub タイトル印刷」や「Sub 明細印刷」の記述次第ではありますが、 > PrintPage イベントへの記述自体は、それほど長くならないと思いますよ。 こんばんは、 そして、魔界の仮面弁士さん、YASさん、あきこさん、皆さん有難うごさいます。 本当に、丁寧なご指導に感謝致します。 私も、皆さんのご指導いただいた通りに作ってみたのですが、あと一歩どうしてもうまく行きません 。 私の作成したい表は、No.3278に掲載した表なのですが、 ちなみに、私が作成したプログラムは、下記のようなものです。 Dim LineMax as integer = 225 ‘データ行数 Dim LineCount as integer = 0 ‘印字行数 Private Sub PrintDocument1_PrintPage(ByVal〜 ) Do '@ If LineMax > 225 ‘印字行数が225行になれば@のDoを抜けるて終了する Exit Do End if タイトル印刷(e.Graphics) Do ‘A 明細印刷(e.Graphics,) LineCount = LineCount + 1 If LineCount = 50 then ‘印字行数が50行になればページ換えして、AのDoを抜ける e.HasMorePages = True Exit do End if Loop Loop e.HasMorePages = False End Sub Private Sub タイトル印刷(ByVal e ) e.Graphics.DrawImage(“原価表” 〜) e.Graphics.DrawImage(“材料費” 〜) e.Graphics.DrawImage(“経費” 〜) e.Graphics.DrawImage(“間接費” 〜) End Sub Private Function 明細印刷(ByVal e) e.Graphics.DrawImage(原価表の額 〜) e.Graphics.DrawImage(経費の額 〜) e.Graphics.DrawImage(間接費の額 〜) End Sub というものですが, どうしても1ページ印刷を終わってしまいます。 最初、私は、PrintDocument1_PrintPageの中ですべて印刷項目を設定しなければいけない言われたので 、どう しようかと思いあぐねましたが, VB 6.0 のようにサブルーチンして Callで呼び出すことができるとわかって、本当にありがたい思いでしたが、 これから先が、まったくわかりません。 ツリーが、長くなりすぎて後ろめたい思いもありますが。 どうかよろしくお願いします。 |