タイトル : 改ページ 投稿日 : 2006/03/18(Sat) 00:24 投稿者 : マサノリ
[OSのVer]:Windows [VBのVer]:VB.NET 魔界の仮面弁士さん、YASさん、こんばんは。 早速ながら、毎回の丁寧なご指導、重ね重ね感謝とお礼を申し上げる とともに、昨日の遅い時間および深夜にも関わらず、早速のご回答いただきま したことに、痛み入ります。本当に有難う御座いました。 私も、やっとのことで、改ページの作業が無事うまく行くことができました。ご指導いただいた通り に作って みた中で、 @ ============ Call DrawPage(現在のページ番号, e) '★描画処理を Call★ 現在のページ番号 += 1 ============ A ============ If 現在のページ番号 > 終了ページ番号 Then e.HasMorePages = False '★終了条件を満たしたら、このイベントの発生を止める★ Else e.HasMorePages = True End If ============ この上記の箇所ですが、 PrintDocumnt1_Page(〜 )のプロシージャーの中では @ のような印刷したい項目を、他にも私の場合ですと、タイトルを印刷して、 明細を印刷させて、Aの判定(改ページ替え)の処理をかけなくてはいけないのではないかと、理解さ せていた だきました(本当に、これで合っておりますでしょうか)。 上記のことを踏まえて、作成したところ、 @ タイトルを印刷 A 1行あける。 B 金額明細を印刷 C 改ページ替えする行数に達したか C−1改ページ替えする行数に達していなければ、1行あけて、Bへ C−2改ページ替えする行数に達していれば、改ページをし、@へ というような動きをさせることが出来ました。 本当は、実際のプログラムを書かせて頂きたいのですが、あまりにも長くなり ますので, これ以上余分なスペースを頂くのは、控えさせて頂こうと思い、上記のような書き方 をさせて頂きましたが。 とにかく、路頭に迷う事無く、無事にぺージ替え処理を完成させていただき、 心より感謝致します。有難う御座いました。 又、あきこさんもまだ、ご覧になって居られるかわかりませんが、違った形での 質問内容に大変参考させていただきました。有難う御座います。 |