Access Default Printer仅接受手动送纸

时间:2013-08-16 14:45:31

标签: vba ms-access-2007 printers

我们在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

然而,只有在手动进纸盒中有纸张的情况下才会打印我已尝试为此设置它并且如果我从记事本中尝试它打印正常,所以它必须是访问中不允许打印的东西

有人有什么建议吗?

1 个答案:

答案 0 :(得分:0)

打印功能只是直接打印报告吗?如果是这样,您可以在按下按钮后尝试此操作:

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

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