複数のExcelファイルの全シートを全部Docuworksにするマクロの「メモリが足りません」を解消したつもり。

/*Sub 一括印刷()

'ダイアログで印刷対象ブックを開く（複数ファイル指定可）
Dim FileName As Variant
FileName = Application.GetOpenFilename _
("Microsoft Excelブック,*.xls?", MultiSelect:=True)

If Not IsArray(FileName) Then
Exit Sub
End If

Dim cnt As Long '選択ファイル数のカウント
cnt = UBound(FileName)

Dim rc As Long '実行確認
rc = MsgBox(cnt & "ファイルが選択されました。" & vbCrLf & _
"印刷を開始しますか？", vbOKCancel + vbInformation)

If rc = vbOK Then

Dim n As Long '印刷対象のブック数
For n = LBound(FileName) To UBound(FileName)

Dim wb As Workbook '印刷対象ブック
Set wb = Workbooks.Open(FileName(n))

ActiveWorkbook.PrintOut Preview:=False '全シート印刷

wb.Close False '保存しないで閉じる

Next n

MsgBox "印刷終了しました。"

End If

End Sub
*/

/*Sub 一括印刷()

'ダイアログで印刷対象ブックを開く（複数ファイル指定可）
Dim FileName As Variant
FileName = Application.GetOpenFilename _
("Microsoft Excelブック,*.xls?", MultiSelect:=True)

If Not IsArray(FileName) Then
Exit Sub
End If

Dim cnt As Long '選択ファイル数のカウント
cnt = UBound(FileName)

Dim rc As Long '実行確認
rc = MsgBox(cnt & "ファイルが選択されました。" & vbCrLf & _
"印刷を開始しますか？", vbOKCancel + vbInformation)

If rc = vbOK Then

Dim n As Long '印刷対象のブック数
For n = LBound(FileName) To UBound(FileName)

Dim wb As Workbook '印刷対象ブック
Set wb = Workbooks.Open(FileName(n))

ActiveWorkbook.PrintOut Preview:=False '全シート印刷

wb.Close False '保存しないで閉じる

'Close待機←ここから追加した
DoEvents

Next n

MsgBox "印刷終了しました。"

End If

End Sub
*/