當默認打印機是網絡打印機時，Word 2007 Application.ActivePrinter沒有設置

Question

我想使用一些Word 2007自動化，我們讓用戶能夠選擇打印機打印並編譯Word文檔。我們可以在本地或網絡打印機上進行打印。網絡打印機在代碼中通過完全合格的路徑指定（如果有路徑，則使用printername +端口）。

問題是在Windows 2008終端服務器更改打印機不起作用時，默認爲網絡打印機。當原始默認爲本地打印機時，它工作正常。

1. 更改默認打印機的用戶想要的一個：

   我們通過打印文檔。 （由Application.ActivePrinter完成）

2. 打印文檔。
3. 將默認打印機更改回原始默認值。

當我設置默認打印機在Word 2007中的網絡打印機（打印機重定向），它不會改變打印機，但是在Word 2003中它的工作，但是這是不是在我的情況選擇。我必須得到這與Word 2007的工作。

有沒有更好的解決方案，或者有什麼我做的特別錯誤？

示例代碼如下，我試圖通過使用ActivePrinter和strPrinterName更改上的斷點來調試它。

的參考示例代碼：

http://www.erlandsendata.no/english/index.php?d=envbaprintchangeprinter

http://www.ozgrid.com/forum/showthread.php?t=68990

示例代碼：

Option Explicit 

Const PRINTER_ENUM_CONNECTIONS = &H4 
Const PRINTER_ENUM_LOCAL = &H2 

Private Declare Function EnumPrinters Lib "winspool.drv" Alias "EnumPrintersA" _ 
     (ByVal flags As Long, ByVal name As String, ByVal Level As Long, _ 
     pPrinterEnum As Long, ByVal cdBuf As Long, pcbNeeded As Long, _ 
     pcReturned As Long) As Long 

Private Declare Function PtrToStr Lib "kernel32" Alias "lstrcpyA" _ 
     (ByVal RetVal As String, ByVal Ptr As Long) As Long 

Private Declare Function StrLen Lib "kernel32" Alias "lstrlenA" _ 
     (ByVal Ptr As Long) As Long 


Public Function ListPrinters() As Variant 

Dim bSuccess As Boolean 
Dim iBufferRequired As Long 
Dim iBufferSize As Long 
Dim iBuffer() As Long 
Dim iEntries As Long 
Dim iIndex As Long 
Dim strPrinterName As String 
Dim iDummy As Long 
Dim iDriverBuffer() As Long 
Dim StrPrinters() As String 

iBufferSize = 3072 

ReDim iBuffer((iBufferSize \ 4) - 1) As Long 

'EnumPrinters will return a value False if the buffer is not big enough 
bSuccess = EnumPrinters(PRINTER_ENUM_CONNECTIONS Or _ 
     PRINTER_ENUM_LOCAL, vbNullString, _ 
     1, iBuffer(0), iBufferSize, iBufferRequired, iEntries) 

If Not bSuccess Then 
    If iBufferRequired > iBufferSize Then 
     iBufferSize = iBufferRequired 
     Debug.Print "iBuffer too small. Trying again with "; _ 
     iBufferSize & " bytes." 
     ReDim iBuffer(iBufferSize \ 4) As Long 
    End If 
    'Try again with new buffer 
    bSuccess = EnumPrinters(PRINTER_ENUM_CONNECTIONS Or _ 
      PRINTER_ENUM_LOCAL, vbNullString, _ 
      1, iBuffer(0), iBufferSize, iBufferRequired, iEntries) 
End If 

If Not bSuccess Then 
    'Enumprinters returned False 
    MsgBox "Error enumerating printers." 
    Exit Function 
Else 
    'Enumprinters returned True, use found printers to fill the array 
    ReDim StrPrinters(iEntries - 1) 
    For iIndex = 0 To iEntries - 1 
     'Get the printername 
     strPrinterName = Space$(StrLen(iBuffer(iIndex * 4 + 2))) 
     iDummy = PtrToStr(strPrinterName, iBuffer(iIndex * 4 + 2)) 
     StrPrinters(iIndex) = strPrinterName 
    Next iIndex 
End If 

ListPrinters = StrPrinters 

End Function 


'You could call the function as follows: 




Sub Test() 

Dim StrPrinters As Variant, x As Long 
Dim strPrinterName As String 

StrPrinters = ListPrinters 

'Fist check whether the array is filled with anything, by calling another function, IsBounded. 
If IsBounded(StrPrinters) Then 
    For x = LBound(StrPrinters) To UBound(StrPrinters) 
     Debug.Print StrPrinters(x) 

    ' Message out Printer name 
     strPrinterName = StrPrinters(x) 

     ' Message otu Active Printer 
     Application.ActivePrinter = GetFullNetworkPrinterName(strPrinterName) 


    Next x 
Else 
    Debug.Print "No printers found" 
End If 

End Sub 




Public Function IsBounded(vArray As Variant) As Boolean 

    'If the variant passed to this function is an array, the function will return True; 
    'otherwise it will return False 
    On Error Resume Next 
    IsBounded = IsNumeric(UBound(vArray)) 

End Function 


Function GetFullNetworkPrinterName(strNetworkPrinterName As String) As String 
' returns the full network printer name 
' returns an empty string if the printer is not found 
' e.g. GetFullNetworkPrinterName("HP LaserJet 8100 Series PCL") 
' might return "HP LaserJet 8100 Series PCL on Ne04:" 
Dim strCurrentPrinterName As String, strTempPrinterName As String, i As Long 
    strCurrentPrinterName = Application.ActivePrinter 
    i = 0 
    Do While i < 100 
     strTempPrinterName = strNetworkPrinterName & " on Ne" & Format(i, "00") & ":" 
     On Error Resume Next ' try to change to the network printer 
     Application.ActivePrinter = strTempPrinterName 
     On Error GoTo 0 
     If Application.ActivePrinter = strTempPrinterName Then 
      ' the network printer was found 
      GetFullNetworkPrinterName = strTempPrinterName 
      i = 100 ' makes the loop end 
     End If 
     i = i + 1 
    Loop 
    ' remove the line below if you want the function to change the active printer 
    'Application.ActivePrinter = strCurrentPrinterName ' change back to the original printer 
End Function 

Answer 1

我們最終修復了Word以外的這個問題。我們現在直接使用Win32 API，然後調用word來執行打印。

Answer 2

難道是安全的？用戶是否正確設置了安全權限才能訪問網絡打印機？