PrintForm メソッドをもう一度実行するには？

解決

聖二 2004-05-12 20:24:13 No: 83328 IP: [192.*.*.*]

お世話になります。よろしくお願い致します。

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

編集削除

ぶんた 2004-05-12 20:58:40 No: 83329 IP: [192.*.*.*]

おそらくプログラムは問題ないですね
プリンタがちゃんとインストールされていないとか何かじゃないですか？

上記コードはちゃんと動きましたよ
ちなみにMSDNでエラーを調べると下記のようなことが書いてあります

-----------------------------------------------------------------------
フォームのイメージをこのプリンターで印刷することはできません。(Error 486)
フォームイメージを印刷するには、グラフィックスを印刷できるプリンタが必要です。
-----------------------------------------------------------------------

編集削除

test 2004-05-12 21:04:13 No: 83330 IP: [192.*.*.*]

私の環境では上記コードでどちらの
PrintFormもエラーにならないです。
(Win2k Sp4, VB6 Sp5)

他のプリンタで実行してみるとどうでしょうか？

編集削除

聖二 2004-05-13 11:44:48 No: 83331 IP: [192.*.*.*]

ぶんたさん、testさん、確かめていただいてありがとうございます。

私はVB６ですが、Service Pack 5をインストールしたら
問題なく動きました。
ありがとうございました。

編集削除