0
我有一个创建.txt文件的子文件,我想在默认打印机中打印它。我如何在VBA中实现这一点?使用Excel VBA将txt文件发送到打印机
我想我需要调用ShellExecute API函数,但我没有找到正确的sintax。
我将不胜感激任何帮助!
我有一个创建.txt文件的子文件,我想在默认打印机中打印它。我如何在VBA中实现这一点?使用Excel VBA将txt文件发送到打印机
我想我需要调用ShellExecute API函数,但我没有找到正确的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