从Excel生成多个PDF文件时出错

Question

我在Excel 2010中创建了一个带有VBA代码的Excel文件，32位。

我有一张约20页的Excel文件。工作表由1张模板表生成。

我创建了一个表单，我可以选择要打印到PDF的工作表。当我选择＆gt; 10，Excel崩溃并显示错误“无法使用可用资源完成任务”。同样做出较小的选择并不能解决问题。第一次它工作，但然后下一个选择4它崩溃。

这些纸张在打印尺寸中为1 A4，包含30个active-x组件（文本和选择字段）

我使用标准Excel 2010代码保存为PDF。这是代码的一部分。

Public Sub PrintToPDF()
'print every selected item
For intItem = 0 To frmPrint.lstReports.ListCount - 1

  If frmPrint.lstReports.Selected(intItem) Then

     Sheets(shtReport).ExportAsFixedFormat xlTypePDF, strLocatie & Sheets(shtReport).Name & " " & Format(Date, "dd-mm-yyyy"), OpenAfterPublish:=False

  End If

Next
End Sub

任何人都知道如何解决这个问题？我可以释放记忆吗？

非常感谢提前。

汤姆