Private Declare Function OpenPrinter Lib "winspool.drv" Alias _
"OpenPrinterA" (ByVal pPrinterName As String, phPrinter As _
Long, pDefault As Any) As Long If OpenPrinter(strPrnName, hPrinter, pd) Then
....
else end if
调用老是返回0,我的打印机是网络共享的。
请求高人指点!
"OpenPrinterA" (ByVal pPrinterName As String, phPrinter As _
Long, pDefault As Any) As Long If OpenPrinter(strPrnName, hPrinter, pd) Then
....
else end if
调用老是返回0,我的打印机是网络共享的。
请求高人指点!
....
OpenPrinter=1 '成功则返回1
else
OpenPrinter=0 '失败则返回1,如果不给函数赋值默认是0
end if
"OpenPrinterA" (ByVal pPrinterName As String, phPrinter As _
Long, pDefault As Any) As Long
.........................Private Type PRINTER_DEFAULTS
pDataType As String
pDevMode As Long
DesiredAccess As Long
End TypeDim strPrnName As String
Dim hPrinter As Long
Dim pd As PRINTER_DEFAULTSstrPrnName = Printer.DeviceName
还有打印机的权限是够了,局域网也没问题。 If OpenPrinter(strPrnName, hPrinter, pd) Then
....
else end if
调用之后老是返回0,不知道哪里错了,请高人指点
我猜测是strPrnName不正确。你用断点看一下,网络打印机是要有网络路径的。