跪求精通API函数的大神帮助：vba打印输出为PDF文档的问题

★子逸☆

跪求精通API函数的大神帮助：vba打印输出为PDF文档的问题
本人因工作原因，某些地方还在用Excel2003，用VBA无法“直接”将工作表输出为PDF文件（本人知道高版本的可以，但特殊原因必须用2003版，也找不到相关插件与代码），但Excel2003可以用“间接”方法输出PDF文档：安装PDF虚拟打印机的方法打印输出为PDF文档。以下为“间接”方法输出PDF文档代码：


    '获取打印机
    Dim WshNetwork As Object
    Dim oPrinter As Object
    Set WshNetwork = CreateObject("WScript.Network")
    With WshNetwork
        Set oPrinter = .EnumPrinterConnections
        For i = 0 To oPrinter.Count - 1 Step 2
            If InStr(1, oPrinter(i + 1), "PDF") > 0 Then p = oPrinter(i + 1): Exit For
        Next i
    End With


    If InStr(1, p, "PDF") = 0 Then MsgBox "未安装 PDF 虚拟打印机！": Exit Sub
    If MsgBox("是否将当前工作表另存为PDF文件？", vbYesNo) = vbNo Then Exit Sub
    k = Application.ActivePrinter '默认打印机名称写入内存
    ActiveSheet.PrintOut Copies:=1, Collate:=True, ActivePrinter:=p
    Application.ActivePrinter = k '恢复默认打印机


但采用上面的PDF虚拟打印机输出PDF文档时，“另存PDF文件为”对话框上面的“文件保存路径”、“文件名称”不能用VBA代码自行指定，需手工处理，现请求精通API函数的大神帮助，能否用API函数获取“另存PDF文件为”对话框窗口及窗口上的“控件”的句柄，来修改指定对话框窗口上的“默认保存路径”与“文件名称”？（可以有偿提供代码）

静听溪流

1. ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
   
2.         IgnorePrintAreas:=False, Prtofilename:=ThisWorkbook.Path & "\测试ssss.pdf"

复制代码

wanghan519

或者换个虚拟打印机比如 pdf-xchange，试过可以通过环境变量改变保存的文件夹，或者可以试试，指定保存到个软连接的目录，每次打印时改变软连接指向的目录，再不济都打印到桌面，最后移动到指定文件夹吧

★子逸☆

静听溪流 发表于 2023-2-26 20:57

感谢回复，但代码在Excel2003版下不起作用。

★子逸☆

wanghan519 发表于 2023-2-26 21:14
或者换个虚拟打印机比如 pdf-xchange，试过可以通过环境变量改变保存的文件夹，或者可以试试，指定保存到个 ...

换了虚拟打印机，没有用，不能指定“另存对话框”上的保存路径与文件名。
谢谢回复！

wanghan519

★子逸☆ 发表于 2023-2-26 21:40
换了虚拟打印机，没有用，不能指定“另存对话框”上的保存路径与文件名。
谢谢回复！

那个虚拟打印机可以不弹出对话框，你自己做一个选择框，它通过环境变量打印到指定的目录

★子逸☆

wanghan519 发表于 2023-2-26 21:45
那个虚拟打印机可以不弹出对话框，你自己做一个选择框，它通过环境变量打印到指定的目录

指定的目录是不固定的，比如当前工作簿所在文件夹下，“当前工作簿”可以在任何文件夹。

wanghan519

★子逸☆ 发表于 2023-2-26 21:57
指定的目录是不固定的，比如当前工作簿所在文件夹下，“当前工作簿”可以在任何文件夹。

所以说在设定里指向环境变量，然后打印前设置环境变量；或者全都打印到临时文件夹，之后移动到指定文件夹，都是vba控制

★子逸☆

wanghan519 发表于 2023-2-26 21:59
所以说在设定里指向环境变量，然后打印前设置环境变量；或者全都打印到临时文件夹，之后移动到指定文件夹 ...

如果用VBA能打印到“指定”的临时文件夹，那问题就解决了。现在是根本不能“指定”保存路径与保存的文件名，每次都要在对话框上修改。

剑指E

。。。。。。。。。。。。。。。。。