使用Excel VBA将txt文件发送到打印机

使用Excel VBA将txt文件发送到打印机,vba,excel,printing,text-files,Vba,Excel,Printing,Text Files,我有一个创建.txt文件的子文件,我想用默认打印机打印它。如何在VBA中实现这一点 我想我需要调用ShellExecuteAPI函数,但是我没有找到正确的sintax函数 我将感谢任何帮助 我还不能发表评论,所以大多数人会要求你展示你尝试过的代码,然后在这里获得帮助。我在谷歌上快速搜索了一下,找到了很多例子。搜索这个,我发现了一些代码片段 excel vba print file 我发现了一个实现这一技巧的代码: Option Explicit Declare Function apiSh

我有一个创建.txt文件的子文件,我想用默认打印机打印它。如何在VBA中实现这一点

我想我需要调用ShellExecuteAPI函数,但是我没有找到正确的sintax函数


我将感谢任何帮助

我还不能发表评论,所以大多数人会要求你展示你尝试过的代码,然后在这里获得帮助。我在谷歌上快速搜索了一下,找到了很多例子。搜索这个,我发现了一些代码片段

excel vba print file

我发现了一个实现这一技巧的代码:

Option Explicit 

Declare Function apiShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ 
ByVal hwnd As Long, _ 
ByVal lpOperation As String, _ 
ByVal lpFile As String, _ 
ByVal lpParameters As String, _ 
ByVal lpDirectory As String, _ 
ByVal nShowCmd As Long) _ 
As Long 

Public Sub PrintFile(ByVal strPathAndFilename As String) 

    Call apiShellExecute(Application.hwnd, "print", strPathAndFilename, vbNullString, vbNullString, 0) 

End Sub 

Sub Test() 

    PrintFile ("C:\Test.pdf") 

End Sub 

你好但是如果我想打印pdf文件而不打开文件?(类似于openAfterPublish/print:=False)