- PR -

[vb.net]複数頁文書をプレビューし、印刷すると１枚しか出力されない！？

1
投稿者投稿内容
がつん
ベテラン
会議室デビュー日: 2003/07/07
投稿数: 62
お住まい・勤務地: Sydney
投稿日時: 2003-11-20 19:09
こんにちは、いつもお世話になっております。
VB.NETのコントロールである、「PrintPreviewDialog」を使用しているのですが、
印刷対象が複数ページになると、１枚しか出力されないという現象が発生し困っています。

画面に、ボタンとPrintDocumentコントロールを貼り付けて以下のロジックを実行すると・・・

①では２枚正常に出力されます。

プレビューで印刷してみると、なぜか１枚しか出力されません。
このような現象をご存知の方いらっしゃいましたら、助けていただけませんでしょうか。
よろしくお願いいたします。


コード:

    Private Moreprtflg As Boolean

    Private Sub Button1_Click(ByVal sender As System.Object _

            , ByVal e As System.EventArgs) Handles Button1.Click



        Moreprtflg = True

        ''①ここでは２枚出力される。

        PrintDocument1.Print()

        Moreprtflg = True

        'プレビューを表示します

        Dim previewDlg As PrintPreviewDialog = New PrintPreviewDialog()

        previewDlg.Document = PrintDocument1

        previewDlg.ShowDialog(Me)

    End Sub



    Private Sub PrintDocument1_PrintPage( _

            ByVal sender As System.Object, _

            ByVal e As System.Drawing.Printing.PrintPageEventArgs) _

        Handles PrintDocument1.PrintPage





        If Moreprtflg = True Then

            '１回目

            e.Graphics.DrawString("１回目", New Font("ＭＳ ゴシック", 10), _

            Brushes.Black, New PointF(10, 100), New StringFormat())

            e.HasMorePages = True

            Moreprtflg = False

        Else

            '２回目

            e.Graphics.DrawString("２回目", New Font("ＭＳ ゴシック", 10), _

            Brushes.Black, New PointF(10, 100), New StringFormat())

            e.HasMorePages = False

        End If

    End Sub


[ メッセージ編集済み 編集者: がつん 編集日時 2003-11-20 19:13 ]
1

スキルアップ／キャリアアップ（JOB@IT）