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

タイトル 印刷の改ページ
投稿日: 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で呼び出すことができるとわかって、本当にありがたい思いでしたが、
これから先が、まったくわかりません。
ツリーが、長くなりすぎて後ろめたい思いもありますが。
どうかよろしくお願いします。

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

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