こんにちは。namiです。
フォーム全体をコピーしようと思い下記のようなコードを書いています。
  　With Printer
        .PaperSize = vbPRPSA4             'Ａ４サイズ
        .Orientation = vbPRORLandscape    '横向き
        Me.PrintForm
        .EndDoc
    End With
しかし、この方法で実行いたしますと正常にプリントアウトできる時と
できない時があります。
同じPCで同じプリンタに印刷命令を送っていると思っているのですが
うまくいきません。
実行時エラー４８６と表示されます。このコードを調べているのですが
いまいちよくわかりません（*o*）
昨日から色々と質問ばかりしていますが、ご教授お願いいたします。

VB6.0 のサービスパックが　３以前じゃないですか？
　http://support.microsoft.com/default.aspx?scid=kb;ja;JP242483

花ちゃん様、回答ありがとうございます。
しかし残念ながらSP4があたっています。
心配でしたのでSP5をあてて実行してみましたが、やはりエラーに
なりました。
リブートしてみて実行もしてみましたがエラーが出力されます（＞＜）
もう少し調べて行きたいと思います。

だったら、上記サイトの　回避方法 を実行してみて下さい。

# 今回に限らず質問時は環境等を記入するようにして下さい。

花ちゃん様回答ありがとうございます。
環境情報不足、説明不足などでご迷惑おかけして申し訳ございません。
上記サイトの解決方法などを実行してもエラーになりました。
しかし、他のPC数台で実行いたしますとエラーはでません。
多分、私のPCでDLLとかに壊れているのがあるのでは無いかと結論にいたり
ました。
時間がある時にVisual　Stdioを再インストールしていきます。
ありがとうございました。