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

剑指E

★子逸☆

剑指E 发表于 2023-2-26 23:00

感谢回复！您的代码仍然没有解决我的问题：在 “指定路径” 下保存 “指定名称“ 的PDF文件。

★子逸☆

剑指E 发表于 2023-2-26 23:00
。。。。。。。。。。。。。。。。。

生成的文件不能打开为PDF文件

leolee82

向对话框句柄发送WM_COMMAND消息,参数为控件ID。具体可查MSDN

wanghan519

★子逸☆ 发表于 2023-2-26 22:20
如果用VBA能打印到“指定”的临时文件夹，那问题就解决了。现在是根本不能“指定”保存路径与保存的文件 ...

换的虚拟打印机默认设置改一下就行的

★子逸☆

wanghan519 发表于 2023-2-27 05:28
换的虚拟打印机默认设置改一下就行的

excel版本是2003版，系统为win7 ,没有您说的那些选项。

★子逸☆

leolee82 发表于 2023-2-27 00:45
向对话框句柄发送WM_COMMAND消息,参数为控件ID。具体可查MSDN

API我只了解一点点，不会弄。您能不能具体写个代码，私聊可加Q：68242866

leolee82

★子逸☆ 发表于 2023-2-27 12:31
API我只了解一点点，不会弄。您能不能具体写个代码，私聊可加Q：68242866

测试了office2010的另存为对话框，edit控件句柄可以根据窗口层次用FindWindow和FindWindowEx找到，用spy++可以查看窗口层次
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_CHAR = &H102
Private Const WM_COMMAND = &H111

Sub DD()
Dim hEdit As Long '文本框句柄
Dim hwnd As Long '对话框句柄

SendString hEdit, FileFullName
SendMessage hwnd, WM_COMMAND, 1, 0
End Sub

Function SendChar(hwnd As Long, char As Long)
SendChar = PostMessage(hwnd, WM_CHAR, char, 0)
End Function

Function SendString(hwnd As Long, str As String)
Dim arr() As Byte
arr = StrConv(str, vbFromUnicode)
For i = LBound(arr) To UBound(arr)
    SendString = SendChar(hwnd, CLng(arr(i)))
Next
End Function

leolee82

'测试了office2010的另存为对话框，edit控件句柄可以根据窗口层次用FindWindow和FindWindowEx找到，用spy++可以查看窗口层次
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_CHAR = &H102
Private Const WM_COMMAND = &H111
Private Const WM_SETTEXT = &HC

Sub DD()
Dim hEdit As Long '文本框句柄
Dim hwnd As Long '对话框句柄

Dim arr() As Byte
arr = StrConv("999", vbFromUnicode)

'hEdit = &H2E2196

SendMessage hEdit, WM_SETTEXT, 0, arr(0)
'SendString hEdit, FileFullName
SendMessage hwnd, WM_COMMAND, 1, 0
End Sub

★子逸☆

leolee82 发表于 2023-2-27 21:54
'测试了office2010的另存为对话框，edit控件句柄可以根据窗口层次用FindWindow和FindWindowEx找到，用spy++ ...

老师，我不懂API，不知道如何将“保存路径‘与”文件名“放在您的代码中的何处位置，您能不能结合那段用虚拟打印机打印输出的代码结合API写出完整的代码呢？（有偿求助）