Excel 宏 VBA - 使用按钮保存时更改活动打印机

Question

我知道了

Sub SaveCells()
    Dim FilePath As String
    Dim FileName As String
    FilePath = "C:\Users\USER\Documents\"
    FileName = FilePath & Format(Now(), "DD-MM-YYYY hh-mm") & " Report"
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
End Sub

将数据保存为 PDF。问题是我需要将默认打印机设置为我的标签打印机。当我这样使用这个按钮时，它只保存了非常小的标签尺寸。所以我需要这个按钮也将活动打印机设置为 Microsoft Print to PDF。我现在手动做，但把它放在这个按钮上会很好。

感谢您的帮助。

Answer 1

'试试这个。我不得不在很多项目中这样做

Sub Change_Default_Printer(defaultPrinter as string, tempPrinter as string)
    Set mynetwork = CreateObject("WScript.network")
    mynetwork.setdefaultprinter tempPrinter   
    Call SaveCells() 'your existing routine
    mynetwork.setdefaultprinter defaultPrinter  
End Sub

Excel 宏 VBA - 使用按钮保存时更改活动打印机

Excel Macro VBA - Change active printer when saving with button

printing

pdf

excel

vba

save