将 Crystal Report 直接打印到打印机答案

【问题标题】：Printing a Crystal Report directly to printer将 Crystal Report 直接打印到打印机
【发布时间】：2018-11-09 16:02:59
【问题描述】：

我在需要为给定信息创建标签的程序中创建标签打印功能。我在 Crystal Reports 9 中创建了一个标签，但打印时遇到问题。

我不想保存标签，我只想在系统创建后直接打印。

Dim ap9 As craxdrt.Application
Dim rpt9 As craxdrt.Report
Dim dbt As craxdrt.DatabaseTable

Set ap9 = New craxdrt.Application
On Error GoTo errError2

Set iniFile = New CIniFile
On Error GoTo errError3

Set rpt9 = ap9.OpenReport(iniFile.pathReports & REPORT_LABEL_IN)
On Error GoTo errError4

For Each dbt In rpt9.Database.Tables
    dbt.Location = iniFile.pathDbCosmet
    If dbt.ConnectionProperties.count <= 5 Then
        dbt.ConnectionProperties.Add "Database Password", iniFile.passwordCosmet
    End If
Next

rpt9.RecordSelectionFormula = sFormula
rpt9.PrintOut False, CInt(txtPacksReceived.Text)

以下代码允许我选择打印机

点击“打印”后，我会看到另一个对话框

但是，代码执行良好，没有错误，但打印队列没有显示任何文档，也没有打印报告。

我无法打印标签是否有某些原因？

【问题讨论】：

标签： printing crystal-reports vb6

【解决方案1】：

我过去曾遇到过 Zebra 打印机的问题，这些问题都与驱动程序有关。您是否卸载了打印机驱动程序并重新安装了它？否则尝试拔下并移除设备，将其插入其他端口并重试？

【讨论】：

【解决方案2】：

您的报告很可能不包含任何数据 - 选择/抑制公式或类似的一些逻辑错误。

如果您打印到任何其他打印机，是否会打印出一些内容？跟踪 SQL（假设您的报告绑定到 SQL 服务器），您能看到发出的查询吗？看起来对吗？

【讨论】：

我修改了代码，使其首先显示给报表查看器，并且报表上有数据。它不会打印到任何打印机，尽管当我将.PrintOut 的第一个属性设置为True 时，显示的窗口会确认打印机、页码等，但即使在单击“打印”后它仍然什么也没做。
如果您直接从查看器打印（它应该有打印按钮），它会打印吗？如果您以管理员身份运行可执行文件（或 vb6），这会改变什么吗？我们已经看到特定打印机遇到的问题（斑马不是最糟糕的），但一些标准打印机通常工作良好。还有 - CInt(txtPacksReceived.Text) 的价值是什么？
以管理员身份运行 .exe 并没有改变任何东西，也没有尝试从查看器中打印它。
嗯，这可能是水晶报表安装问题？（我想其他程序，比如记事本，可以正常打印-如果不能，那就更像是Windows问题。）我们使用CR + VB6组合可能有15年了，到目前为止我从未见过这样的问题。
我确实在普通打印机上测试了一个 Word 文档，但没有打印出来。我卸下了标签打印机，将其插入 USB 端口并再次尝试，标签打印正常，所以我同意这似乎是 Windows 和 USB 驱动程序的问题。