PrintForm メソッドをもう一度実行するには？ (ID:83328)

名前

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

本文 お世話になります。よろしくお願い致します。 PrintForm メソッドを一度実行した後に もう一度実行させると、エラーになります。 メッセージは 「実行時エラー'486'：フォームのイメージをこのプリンターで印刷することは出来ません」 です。 例えば、簡単な例を挙げますと、以下のようなコートです。 １回はうまくいきます。 PrintForm メソッドを何度も実行したいのですが、 対処方法を教えて下さい。 よろしくお願い致します。 Private Sub Command1_Click() Dim i As Integer For i = 1 To 5 Label1(i).Caption = i Next i Printer.PaperSize = 9 'A4 Printer.Orientation = 2 '横 Me.PrintForm For i = 1 To 5 Label1(i).Caption = 5 + i Next i Me.PrintForm End Sub