Приложение Word 2007. ActivePrinter не устанавливается, если принтер по умолчанию является сетевым принтером.

Question

Я пытаюсь использовать некоторую автоматизацию Word 2007, где мы даем пользователю возможность выбрать принтер для печати и скомпилировать документ Word. Мы даем возможность печатать локально или на сетевом принтере. Сетевые принтеры указываются в коде по их полному пути (имя принтера + порт, если он есть).

Проблема заключается в том, что в Windows 2008 Terminal Server смена принтеров не работает, если по умолчанию используется сетевой принтер . Работает нормально, если исходное значение по умолчанию - локальный принтер .

Мы печатаем документ по:

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

Может ли это быть безопасность? Правильно ли настроены права доступа для доступа к сетевому принтеру?

Answer 2

Мы решили эту проблему за пределами Word. Теперь мы напрямую используем Win32 API, а затем вызываем слово, чтобы выполнить только печать.