从列表中选择默认打印机，而不是对其进行硬编码

如何解决从列表中选择默认打印机，而不是对其进行硬编码

我目前有一个用于批量打印的宏。它运作完美；但是，可以通过使用以下代码设置默认打印机来对打印选项进行硬编码。

CreateObject("WScript.Network").SetDefaultPrinter "\\vs-dc.CCC.internal\RICOH MPC3503 - Office 2nd Flr WKRM"

有人知道打开网络上所有打印机选项的对话框的方法，以便有人可以使用吗？不必将默认设置恢复为原始设置，但是如果这样做，那将是绝对的加分。

我的想法是要以某种方式将表格设置为您选择的打印机 Selected printer = ChosenPrinter，然后使用它。

CreateObject("WScript.Network").SetDefaultPrinter ChosenPrinter

我还看到了如何使用以下命令将其设置回原始默认值：

ActivePrinter = OrigPrinter，完成后将其重新设置为该值。

如果有人知道如何将所有这些相互结合在一起，那将是惊人的。如有必要，我将在下面提供完整的代码。

Sub GetFiles(StartFolder As String,Pattern As String,_
         DoSubfolders As Boolean,ByRef colFiles As Collection)

Dim f As String,sf As String,subF As New Collection,s

If Right(StartFolder,1) <> "\" Then StartFolder = StartFolder & "\"

f = Dir(StartFolder & Pattern)
Do While Len(f) > 0
    colFiles.Add StartFolder & f
    f = Dir()
Loop

sf = Dir(StartFolder,vbDirectory)
Do While Len(sf) > 0
    If sf <> "." And sf <> ".." Then
        If (GetAttr(StartFolder & sf) And vbDirectory) <> 0 Then
                subF.Add StartFolder & sf
        End If
    End If
    sf = Dir()
Loop

For Each s In subF
    GetFiles CStr(s),Pattern,True,colFiles
Next s

End Sub

。

Sub BatchPrint()

Dim colFiles As New Collection
Dim CustRow,LastRow As Long

Set colFiles = New Collection

CreateObject("WScript.Network").SetDefaultPrinter "\\vs-dc.CCC.internal\RICOH MPC3503 - Office 2nd Flr WKRM"

LastRow = Sheet1.Range("B9999").End(xlUp).Row
Dim countFiles As Integer 'Storing the number of files found
With Sheet1

For CustRow = 3 To LastRow
countFiles = colFiles.Count
GetFiles "C:\Users\Desktop\Test\",Sheet1.Range("B" & CustRow) & ".pdf",colFiles
If countFiles = colFiles.Count Then
Sheet1.Range("B" & CustRow).Interior.ColorIndex = 3
End If
Next CustRow

End With

Dim i As Long
For i = 1 To colFiles.Count
Debug.Print colFiles(i)

PrintFile (colFiles(i))

Next i

Set colFiles = Nothing

End Sub

解决方法

如果从Excel打印，则只需使用

Application.Dialogs(xlDialogPrinterSetup).Show

让用户在宏的开头选择活动的打印机（对于Excel）（如Tim Williams所建议）。

如您所述，这不会更改Windows的默认打印机，因为活动打印机只是Excel应用程序的本地设置。

由于您提到代码中的过程/功能PrintFile使用了默认打印机，因此可以在使用以下方法设置ActivePrinter之后立即设置默认打印机：

CreateObject("WScript.Network").SetDefaultPrinter Left(ActivePrinter,Len(ActivePrinter) - 9)

请注意，我们需要从ActivePrinter字符串中删除最后9个字符，因为ActivePrinter包含有关打印机端口号的信息，该信息看起来像“在Ne ##：上”。