打印文件夹中的文件时VBA选择打印机

Question

我有一个打印文件夹中所有文件的脚本，但它总是选择默认打印机，有没有办法指定我希望它在 VBA 代码中打印到的打印机的名称？

Sub CommandButton1_Click()
Dim wb As Workbook, ws As Worksheet
Dim FileName As String, Path As String
Set wb = ActiveWorkbook
Set ws = ActiveSheet

Path = "Z:\Customer Operations\2021\Despatches\*.csv"

FileName = Dir(Path, vbNormal)
Do Until FileName = ""
Application.DisplayAlerts = False
Workbooks.Open Left(Path, Len(Path) - 5) & FileName
Columns("A:H").AutoFit
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Set wb = ActiveWorkbook
For Each ws In wb.Worksheets
ws.PrintOut
Next
wb.Close
FileName = Dir()
Loop
End Sub

非常感谢任何帮助:)

Answer 1

如果您想在运行时覆盖默认设置，请在您的代码中包含这一行：

Application.Dialogs(xlDialogPrinterSetup).Show