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

タイトル ページ替えさせないように印刷する方法を教えてください。
投稿日: 2008/07/29(Tue) 19:44
投稿者Aco
お世話様になります。

ダンボ様に教えていただき、1回目の難問は突破出来たのですが、1枚の用紙に3カ所の印刷をするプログラムを書きたいのですが、3カ所の縦横の位置とデータを変えるだけで印刷方法のコードは同じですので以下のようにしたのですが、
第1面を印刷すると次の用紙が送られ、第2面、第3面も同じくページ換えをしてしまい、1枚の用紙に3カ所の印刷が出来ません。


    Private Sub Insatu()

        '第1面
        Sagyo = Num_1
        Yoko = 10
        Tate = 95
        PrintDocument1.Print() ’ここでページ替えされてしまいます。

        '第2面
        Sagyo = Num_2
        Yoko = 10
        Tate = 180
        PrintDocument1.Print() ’ここでページ替えされてしまいます。



        '第3面
        Sagyo = Num_3
        Yoko = 10
        Tate = 275
        PrintDocument1.Print() ’ここでページ替えされてしまいます。


    End Sub


    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

    e.Graphics.DrawString(Sagyo, New Font("Arial", 8, FontStyle.Regular), Black, Yoko, Tate)

    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Tenki()
        Insatu()

    End Sub


『PrintDocument1_PrintPage』の処理は、本当はとても複雑にしてありますので別の独立した『Subプロシージャ』にしたいのです。

本当に何度もお世話かけて申し訳ありませんがよろしくお願いします。

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

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