VBA操作Win10虚拟打印机一键打印，求代码里能加入自动保存位置和自动重命名

Question

已有一键打印代码Sub 打印() ActiveSheet.PageSetup.PrintArea = "A1:I16"ActiveSheet.PrintOut ActivePrinter:="Microsoft Print to PDF 在 Ne00:"End Sub在此基础上能不能添加自动选择路径和自动重命名？如图标注1为路径，2为文件名路径在E:\统计\ 下自动创建文件夹即可

Answer 1

一般直接用 Export as  PDF

      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

       "E:\统计\" & "PDF 名字" & ".pdf", Quality:= _

        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

        OpenAfterPublish:=False

Answer 2

Sub 打印()
ActiveSheet.PageSetup.PrintArea = "A1:I16"
'ActiveSheet.PrintOut ActivePrinter:="Microsoft Print to PDF 在 Ne00:"
MyPath = "D:\Documents\百度知道\"
MyName = MyPath & [B2] & "\" & [G1] & ".PDF"
On Error Resume Next
VBA.MkDir (MyPath & [B2])
If Dir(MyName) <> "" Then
a = MsgBox("文件已存在,是否覆盖?", vbYesNo, "提示：")
If a = vbNo Then Exit Sub
End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub本回答被提问者采纳