delphi - QuickReport 抛出 "There Is No Default Printer Currently Selected"异常

Question

我创建了一个打印 TQuickReports 的 Delphi 服务。如果编译并作为 Windows 应用程序运行，则一切正常。但是，当转换为作为服务运行时，尝试创建包含 TQuickRep 组件的表单会引发异常。

这项服务在许多其他机器上运行良好，但特别是在这个机器上。以下是一些详细信息:

• 使用 QuickReport 版本 4.07
• Box 是 Windows Server 2008 操作系统。
• 使用 Delphi 2007
• Printer.Printers.Count 返回正值。事实上，我可以列出所有打印机。
• 我尝试使用本地系统帐户并以管理员身份登录来运行该服务。

Answer 1

session 0 中是否设置了默认打印机？请记住，在 Vista/Server 2008/Windows 7 下，服务在单独的 session 中运行。登录用户是否有默认打印机设置并不重要 - 这是每个 session 的设置，不会影响 session 0。

您可以重写代码以优雅地处理该异常并选择要使用的打印机吗？