将Crystal报表直接打印到打印机

我正在一个程序中创建一个标签打印函数,它需要为给定的信息创建标签。我已经在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)

在点击“打印”之后,我看到了另一个对话框

但是,代码执行得很好,没有错误,但是打印队列不显示任何文档,报表也不打印。

为什么我不能打印我的标签?