VB ShellExecuteEx 打印文档

最新推荐文章于 2024-06-06 14:18:15 发布

weixin_30572613

最新推荐文章于 2024-06-06 14:18:15 发布

阅读量348

点赞数 1

CC 4.0 BY-SA版权

文章标签： shell

原文链接：http://www.cnblogs.com/tanweizlf/archive/2012/11/06/2757885.html

本文介绍了一种使用VBA在Windows环境下调用ShellExecuteEx函数实现PDF文件打印的方法。通过定义SHELLEXECUTEINFO结构体并设置相应成员变量，可以实现指定PDF文件的打印操作。此方法适用于需要在应用程序中集成PDF打印功能的场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Declare Function ShellExecuteEx Lib "shell32.dll" (SEI As SHELLEXECUTEINFO) As Long
Const SEE_MASK_INVOKEIDLIST = &HC
Const SEE_MASK_NOCLOSEPROCESS = &H40
Const SEE_MASK_FLAG_NO_UI = &H400
Private Type SHELLEXECUTEINFO
cbSize As Long
fMask As Long
hwnd As Long
lpVerb As String
lpFile As String
lpParameters As String
lpDirectory As String
nShow As Long
hInstApp As Long
lpIDList As Long
lpClass As String
hkeyClass As Long
dwHotKey As Long
hIcon As Long
hProcess As Long
End Type

Sub printpdf(FileName As String, OwnerhWnd As Long)

Dim s As SHELLEXECUTEINFO
Dim r As Long
With s
.cbSize = Len(s)
.fMask = SEE_MASK_NOCLOSEPROCESS
.hwnd = OwnerhWnd
.lpVerb = "print"
.lpFile = FileName
.lpParameters = vbNullChar
.lpDirectory = vbNullChar
.nShow = 1
.hInstApp = 0
.lpIDList = 0
End With
r = ShellExecuteEx(s)
End Sub