実行時エラー「1004」：object'_Globalのメソッド「範囲」： 『：メソッド『オブジェクトの範囲』1004 '

Question

を印刷するためのフォームを選択する私はメッセージ

実行時エラーを取得しておきます』 '_Globalが失敗しました

私はチェックボックスで選択された帳票印刷のみを行えるようにしようとしています。すべての他の人が仕事

Sub PrintForms() 

    If Range("PrintClientInfo").Value = True Then 
     Call PrintClientInfo 
    End If 

    If Range("PrintInitialCheque").Value = True Then 
     Call PrintInitialCheque 
    End If 

    If Range("Print3102Form_Page_1").Value = True Then 
     Call Print3102(1) 
    End If 

    If Range("Print3102Form_Page_2").Value = True Then 
     Call Print3102(2) 
    End If 

    If Range("Print3102Form_Page_3").Value = True Then 
     Call Print3102(3) 
    End If 

    If Range("Print3102Form_Page_4").Value = True Then 
     Call Print3102(4) 
    End If 

    If Range("Print3102_localprintout").Value = True Then 
     Call Print3102Form_Localprintout 
    End If 

    If Range("PrintDeclaration").Value = True Then 
     Call PrintDelcaration 
    End If 

End Sub 

が、エラーがであるように思わ：

If Range("Print3102_localprintout").Value = True Then 

私はの範囲を命名している。ここ は、私は、チェックボックスが選択されている唯一のフォームを印刷しなければならないコードでありますそれらのすべて。 誰も助けることができますか？

Answer 1

私はあなたの名前付き範囲やあなたの機能を知らないので、私はちょうど推測できます。

あなたのパターンは、あなたの関数/ subsのような範囲に名前を付けるようです。範囲Print3102_localprintoutが本当に存在するかどうかチェックしましたか？それはPrint3102Form_Localprintoutでしょうか？