プレビュー印刷で困っています (ID:117171)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 よろしくお願いします。過去ログには無かったようなので来ました。 印刷についてなのですが、 「ボタン１でプレビュー表示 → ボタン２でそれを印刷」 としたいのですが、ある定数が毎回ランダムで変化するものを プレビューさせてから印刷すると、プレビューでの表示値と 印刷に送られる値が異なってしまいます。 おそらく 「ボタン２でそれを印刷」 の時に再度印刷を作成してしまう からだと思いますが、何か回避方法はありますでしょうか？ コードは以下のようなものです。 デザイナ上でフォームに、Button1・Button2・PrintDocument1・PrintPreviewControl1 を貼り付けました。 プレビューでは”０”なのに、印刷では”１”となってしまいます。 Dim N As Integer 'プレビューの表示 Private Sub Button1_Click(〜) Handles Button1.Click PrintPreviewControl1.Document = PrintDocument1 End Sub 'プリント内容の描画 Private Sub PrintDocument1_PrintPage(〜) Handles PrintDocument1.PrintPage e.Graphics.DrawString(N.ToString, New Font("MS UI Gothic", 20), Brushes.Black, 20, 20) N += 1 End Sub 'プレビューされているものをプリント Private Sub Button2_Click(〜) Handles Button2.Click PrintPreviewControl1.Document.Print() End Sub