VBAの質問です。

シートをまとめて印刷するマクロを組んでみましたが
プリントはできるのですが、なぜか２枚づつでてしまいます。
アドバイスいただけたら助かります。


Sub PrintSheet(strFile)

Workbooks.Open Filename:=strFile

For j = 1 To Workbooks.Count

If Workbooks.Item(j).FullName = strFile Then

For i = 1 To Workbooks.Item(j).Sheets.Count

If Workbooks.Item(j).Sheets.Item(i).Name = "AAA（B用）" Then

With Workbooks.Item(j).Sheets.Item(i)
.PageSetup.PrintArea = "$A$1:$V$18"
.PrintOut Copies:=1
End With

Workbooks.Item(j).Sheets.Item(i).PrintOut Copies:=1

End If

Next

Workbooks.Item(j).Close

End If

Next

End Sub

Sub StartPrint()


Application.FileSearch.NewSearch

Application.FileSearch.LookIn = "\\FISV\ooo）"

Application.FileSearch.Filename = "*.xls"

Application.FileSearch.SearchSubFolders = False

If Application.FileSearch.Execute() = 0 Then

MsgBox "ファイルはありません"

Else

For i = 1 To Application.FileSearch.FoundFiles.Count

PrintSheet Application.FileSearch.FoundFiles(i)

Next

End If

End Sub


以上よろしくお願いいたします。