VB6ランタイムでプリンタの向きを設定していないプリンタで動作しない

Question

vb6でデータレポートを印刷するコードがあります。これを使用してレイアウトやプリンタの向きを変更しています。最後のプリンタEPSON L210で動作していましたポートとしてIPアドレスを持っていますが、Printer Epson L120ではネットワークプリンタです。エラーハンドラを使ってエラーをチェックすると、範囲外のサブスクリプトが表示されます。それは今働いている

Dim obj As PageSet.PrinterControl 
Dim mPointer 
Set obj = New PrinterControl 
mPointer = Screen.MousePointer 
Screen.MousePointer = vbHourglass 
DoEvents 
If vOrientation = 1 Then 
    Printer.Orientation = vbPRORLandscape 
    obj.ChngOrientationLandscape 
Else 
    obj.ReSetOrientation 'This resets the printer to portrait. 
End If 
Screen.MousePointer = mPointer 
DoEvents 

Answer 1

、ネットワークがコンピュータに名前でなければなりませんので、私は、プリンタの完全な権限を持っていると、ローカルドライバを更新することができますので、私が代わりにローカルプリンタを追加します。