エクセルをＶＢで印刷しようとしてます。

以下のソースで★のところでエラーになります。
もう八方ふさがりです。
アドバイスしていただけないでしょうか？

Sub hogehoge()

    Dim myExcel     As Workbook     'エクセルのブックオブジェクトへの参照を格納する変数
    Dim myFileName  As String       '目的のファイルの名前
    Dim mySheetName As String       '目的のシートの名前

    myFileName = "C:\test.xls"
    mySheetName = "sheet1"

★    Set myExcel = GetObject(myFileName, "Excel.Sheet")
    With myExcel
        .Worksheets(mySheetName).PrintOut
        .Application.Quit
    End With
    Set myExcel = Nothing

End Sub

★のところで

実行時エラー　'-2147417851y:
オートメーションエラーです。
サーバーによって例外が返されました。

というエラーがでます。

お願いします。

こんにちは、あつです。

ソースをそのまま貼り付けて私の環境で実行しました。
結果はエラーは出ませんでした

しんやさんの環境は？
VBのバージョンとサービスパック
エクセルの参照設定のバージョン
を確認ください
ちなみに私は
VB6.0SP5
Microsoft Excel 9.0 Object Library
です。