vba - 访问默认打印机仅接受手动进纸

Question

我们将 POS 上的 HP LaserJet 6P 设置为默认打印机，自动选择作为纸张来源，并打印此 VBA 代码：

Dim stDocName As String
Me.Refresh
stDocName = "Retail Receipt"
Dim prtr As Access.Printer
Set Application.Printer = Nothing
Set prtr = Application.Printer
DoCmd.OpenReport stDocName, acNormal

但是，它只会在手动进纸托盘中有纸的情况下打印

有人有什么建议吗？

Answer 1

打印功能只是直接打印报告吗？如果是这样，您可以在单击按钮后尝试此操作：

    Private Sub cmdPrint_Click()
    DoCmd.OpenReport "Retail Receipt", acViewNormal, "", "", acNormal
    DoCmd.RunCommand acCmdPrint
    Exit Sub

它应该采用默认打印机设置直接打印。