tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 改ページ
投稿日: 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改ページ替えする行数に達していれば、改ページをし、@へ
 というような動きをさせることが出来ました。
 本当は、実際のプログラムを書かせて頂きたいのですが、あまりにも長くなり      
ますので, これ以上余分なスペースを頂くのは、控えさせて頂こうと思い、上記のような書き方
をさせて頂きましたが。
 とにかく、路頭に迷う事無く、無事にぺージ替え処理を完成させていただき、
 心より感謝致します。有難う御座いました。
 又、あきこさんもまだ、ご覧になって居られるかわかりませんが、違った形での
質問内容に大変参考させていただきました。有難う御座います。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。