打印为PDF文件后自动保存至相关路径

lys3903037

走过路过的朋友帮忙看看，有一问题困扰了好久，但苦于自己能力不足，请大神能够给于帮助，感激不尽！！
如附件，怎样用VBA实现：将打印区域的内容打印为PDF并保证至相对应的路径！

gwjkkkkk

Sub TEST()
Dim Rng As Range
    Set Rng = [A3].CurrentRegion
        If [H3] = "" Then MsgBox "路径为空，请检查": Exit Sub
        If Dir([H3], vbDirectory) = "" Then MkDir [H3]
        Rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=[H3] & "\" & ActiveWorkbook.Name
    Beep
End Sub

gwjkkkkk

请楼主参考附件。。。

lys3903037

gwjkkkkk 发表于 2022-12-10 13:20
Sub TEST()
Dim Rng As Range
    Set Rng = [A3].CurrentRegion

收到，非常感谢，另外我想确认：
Rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=[H3] & "\" & ActiveWorkbook.Name
这个能改为指定的打印机吗？
我想实现：点击打印按钮后，会有弹窗，然后可以改文件名称