Печать отчета Crystal непосредственно на принтер

Question

Я создаю функцию печати этикеток в программе, которая должна создавать этикетки для данной информации. Я создал ярлык в 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)

Следующий код позволяет мне выбрать принтер

и после нажатия кнопки «Печать» в этот момент мне показывают другое диалоговое окно

Однако код выполняется нормально, ошибок нет, но в очереди печати нет документов, а отчет не печатается.

Есть ли какая-то причина, по которой я не могу печатать свои этикетки?

Answer 1

В прошлом у меня были проблемы с принтерами Zebra, которые, как оказалось, были связаны с драйверами. Вы удалили драйвер принтера и переустановили его? В противном случае попробуйте отключить и удалить устройство, подключить его к другому порту и повторить попытку?

Answer 2

Скорее всего, ваш отчет не содержит никаких данных - какая-то логическая ошибка в формулах выбора / подавления или аналогичных.

Если вы печатаете на любом другом принтере, распечатывает ли что-нибудь? Отслеживая SQL (при условии, что ваш отчет привязан к SQL-серверу), вы можете увидеть выпущенный запрос? Выглядит ли это правильно?