Excel VBA 中访问打印机对象的替代方法答案

【问题标题】：Alternative to Access Printer object in Excel VBAExcel VBA 中访问打印机对象的替代方法
【发布时间】：2019-06-22 09:07:46
【问题描述】：

我正在尝试将原始数据 (ZPL) 发送到 Excel VBA 中的选定打印机。我已经在不同的 Ms Access 项目中成功地做到了这一点，但现在我需要在 Excel 项目中使用相同的功能。我可以通过在我的 Excel VBA 项目中引用 Access 对象库来使用相同的代码，并且它可以按预期工作。问题是该工作簿以后可以在未安装 Access 的计算机上使用，而我找不到替代对象。

Private Type DocInfo
    pDocName As String
    pOutputFile As String
    pDatatype As String
End Type

Private Declare PtrSafe Function ClosePrinter Lib "winspool.drv" (ByVal _
   hPrinter As Long) As Long
Private Declare PtrSafe Function EndDocPrinter Lib "winspool.drv" (ByVal 
_
   hPrinter As Long) As Long
Private Declare PtrSafe Function EndPagePrinter Lib "winspool.drv" (ByVal 
_
   hPrinter As Long) As Long
Private Declare PtrSafe Function OpenPrinter Lib "winspool.drv" Alias _
   "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, _
    ByVal pDefault As Long) As Long
Private Declare PtrSafe Function StartDocPrinter Lib "winspool.drv" Alias 
_
   "StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, _
   pDocInfo As DocInfo) As Long
Private Declare PtrSafe Function StartPagePrinter Lib "winspool.drv" (ByVal _
   hPrinter As Long) As Long
Private Declare PtrSafe Function WritePrinter Lib "winspool.drv" (ByVal _
   hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, _
   pcWritten As Long) As Long    


Public Function RawPrint(strData As String, ByVal SelectedPrinter As String)
Dim defprt As Printer

Dim lhPrinter As Long
Dim lReturn As Long
Dim lpcWritten As Long
Dim lDoc As Long
Dim sWrittenData As String
Dim mDocInfo As DocInfo
lReturn = OpenPrinter(SelectedPrinter, lhPrinter, 0)

If lReturn = 0 Then
    MsgBox "The Printer is not recognized."
    Exit Function
End If
mDocInfo.pDocName = "ZPl"
mDocInfo.pOutputFile = vbNullString
mDocInfo.pDatatype = vbNullString
lDoc = StartDocPrinter(lhPrinter, 1, mDocInfo)
Call StartPagePrinter(lhPrinter)
sWrittenData = strData
lReturn = WritePrinter(lhPrinter, ByVal sWrittenData, _
Len(sWrittenData), lpcWritten)
lReturn = EndPagePrinter(lhPrinter)
lReturn = EndDocPrinter(lhPrinter)
lReturn = ClosePrinter(lhPrinter)



Exit_RawPrint:
Exit Function



 End Function

如果没有引用 Access 对象库，我在“Dim defprt As Printer”上收到错误 - Excel 对象库中似乎没有 Printer 这样的对象。有没有其他方法可以访问 Excel 中的打印机？朝那个方向的任何指示都会非常有帮助。感谢您的宝贵时间。

【问题讨论】：

标签： excel vba ms-access

【解决方案1】：

您根本没有对那个打印机对象做任何事情。只需省略该行。

您似乎已经找到了使用 WinAPI 连接到打印机的必要代码，所以我不确定您希望我们做什么。

我相信您的 hPrinter 应该是 LongPtr，但只要您使用 32 位 Access，它们都是一样的。

【讨论】：