お世話様になります。

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


    Private Sub Insatu()

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

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



        '第３面
        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プロシージャ』にしたいのです。

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

>         PrintDocument1.Print()　’ここでページ替えされてしまいます。

これは何をしているのかを理解していますか？
ここの[印刷関係]のTips と見比べて見て下さい。

> >         PrintDocument1.Print()　’ここでページ替えされてしまいます。
>
> これは何をしているのかを理解していますか？
> ここの[印刷関係]のTips と見比べて見て下さい。


お世話かけます。

ハイ、実は『複数のページに渡ってテキストを印刷する』を参考にさせていただいて、
以下のようにやってみたのですがうまくいかなっかたのです。

Public Class Form1

    Dim Sagyo As Long
　　　　　・
　　　　　・
　　　　　・

    Dim Kaipage As Integer


    Private Sub Insatu()


        '第１面
        Kaipage = 0  '改ページさせない
        Sagyo = Num_1
        Yoko = 100
        Tate = 30
        PrintDocument1.Print()


        '第２面
        Kaipage = 0　'改ページさせない
        Sagyo = Num_2
        Yoko = 100
        Tate = 60
        'PrintDocument1.Print()


        '第３面
        Kaipage = 1　'改ページする
        Sagyo = Num_3
        Yoko = 100
        Tate = 90
        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), Brushes.Black, Yoko, Tate)

        If Kaipage = 1 Then
            e.HasMorePages = False '改ページする
        ElseIf Kaipage = 0 Then
            e.HasMorePages = True　'改ページしない
        End If

    End Sub


End Class


VB2008　を使用して、ＯＳは　Vista　です。

よろしくお願いします。

>         '第１面
>         Kaipage = 0  '改ページさせない
>         PrintDocument1.Print()

困りましたね。どう答えるべきか。
「PrintDocumentオブジェクト」について勉強しなさい
「PrintDocument1.Print」というキーワードでgoogle検索する

> 「PrintDocumentオブジェクト」について勉強しなさい
> 「PrintDocument1.Print」というキーワードでgoogle検索する

http://hanatyan.sakura.ne.jp/vbnetbbs/wforum.cgi?mode=allread&no=1910
まず、ここを読んでから、

http://www.atmarkit.co.jp/fdotnet/dotnettips/397printmoredoc/printmoredoc.html
このページとその前後もいいと思いますが

> > 「PrintDocumentオブジェクト」について勉強しなさい
> > 「PrintDocument1.Print」というキーワードでgoogle検索する
>
> http://www.atmarkit.co.jp/fdotnet/dotnettips/397printmoredoc/printmoredoc.html
>
> このページとその前後なんかいいと思いますが

ダンボ様、いつもありがとうございます。

今度はじっくり頭を使ってやってみます!