- PR -

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

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

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

@では2枚正常に出力されます。

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


コード:

Private Moreprtflg As Boolean
Private Sub Button1_Click(ByVal sender As System.Object _
, ByVal e As System.EventArgs) Handles Button1.Click

Moreprtflg = True
''@ここでは2枚出力される。
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
'1回目
e.Graphics.DrawString("1回目", New Font("MS ゴシック", 10), _
Brushes.Black, New PointF(10, 100), New StringFormat())
e.HasMorePages = True
Moreprtflg = False
Else
'2回目
e.Graphics.DrawString("2回目", New Font("MS ゴシック", 10), _
Brushes.Black, New PointF(10, 100), New StringFormat())
e.HasMorePages = False
End If
End Sub



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

スキルアップ/キャリアアップ(JOB@IT)