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

タイトル ： Re^2: ページ替えさせないように印刷する方法を教えてください。
投稿日： 2008/07/30(Wed) 10:03
投稿者： Aco
> >         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　です。

よろしくお願いします。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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