我从SAP获得了一些数据,然后我按下了SAP的打印按钮以打印数据.然后出现PRINT窗口:
我把它处理成了hWnd变量(请在LINE 1评论中找到);
然后我想将默认打印机名称更改为"Microsoft Print to PDF"(我不知道如何更改它);
然后我按了按钮OK(请找LINE 4评论);
这是代码:
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) …Run Code Online (Sandbox Code Playgroud)