実行時エラー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 · ベストアンサー

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

お礼

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