実行時エラー91について

vbでエクセルにデータを入力したあと、２つのシートを選択し、
その後に両面印刷を行うプログラムを作成中ですが、
印刷の段階で
「実行時エラー91。オブジェクト変数または with ブロック変数が設定されていません。」
とのエラーがでます。
どの部分がおかしいのかわからないので教えて下さい。

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlSheet2 As Excel.Worksheet

Dim xlFile As String
xlFile = App.Path & "表.xls"

Dim MyFile As String
MyFile = Dir$("表.xls")
If Len(MyFile) > 1 Then

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(xlFile)
Set xlSheet = xlBook.Worksheets("裏")
Set xlSheet2 = xlBook.Worksheets("表")
xlApp.Visible = True
a1 = Label47.Caption
a1 = Format(a1, "#,#")
a2 = Label48.Caption
m = a1 & "及び" & a2 & "とする。"

For k = 1 To 18
s = Mid(m, k, 1)
i = 8 + (k - 1) * 2
xlSheet.Cells(40, i).Value = s
Next k

Set xlSheet2 = xlBook.Worksheets("表")
xlSheet2.Cells(4, 2).Value = Text11.Text
xlSheet2.Cells(4, 10).Value = Text12.Text
xlSheet2.Cells(4, 19).Value = Text13.Text

xlBook.Sheets(Array("表", "裏")).Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True　←ここでエラー
Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing
Set xlSheet2 = Nothing

No.1 ベストアンサー 回答者： nicotinism 回答日時： 2011/03/03 23:18

xlApp.ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

では？

この回答へのお礼

お陰様でエラーが出なくなりました。
ありがとうございます。

お礼日時：2011/03/04 03:45