excel - “自动化错误服务器抛出异常。”在VB6中打印excel表时

Question

我在 VB6 中有一个函数，它创建一个 excel 表，保存它然后我需要打印它。一切正常，但是当我尝试打印时，我得到“自动化错误服务器抛出异常。”这是代码片段：

Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

sSavedFile = App.Path & "\Buff1" & ".xls"
xlSheet.SaveAs sSavedFile
xlSheet.PrintOut

最后一行给了我这个错误消息。我在另一个项目中使用这个代码，在 VB9 中，它的工作就像一个魅力。

有人可以帮我弄这个吗？也许建议另一种方法来做到这一点？我可以打印整个工作簿或只打印这张表，没关系，我的工作簿中只有一张。

提前致谢。