実行時エラー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
補足
早速の回答をありがとう御座います。 xlSheetのオブジェクトは正常に取れています。 （他でも使用していますので間違いありません） 'PictureBoxに画像を貼り付ける With Image1 .AutoLoad = True .AutoSize = False .PictureSizeMode = fmPictureSizeModeZoom .PictureAlignment = fmPictureAlignmentCenter 'ここまでは正常に動作します。 '例えば画像の貼り付け位置を変えたりすると '指示どおりの動作をしています。 .Picture = LoadPicture("C:\MyPicture\...\pict.bmp") ←ここでエラー！ 'このステップにくるとエラーになってしまうのです。 'このプロパティに問題があるように思えるのですが・・・ End With