使用Excel VBA將txt文件發送到打印機

Question

我有一個創建.txt文件的子文件，我想在默認打印機中打印它。我如何在VBA中實現這一點？

我想我需要調用ShellExecute API函數，但我沒有找到正確的sintax。

我將不勝感激任何幫助！

Answer 1

我還不能評論，所以大多數人會問你顯示你嘗試的代碼，然後你在這裏得到幫助。我做了一個快速的谷歌搜索，並找到很多例子。搜索這一點，我發現了一些代碼片段

excel vba print file 

Answer 2

我發現了一個代碼，這樣的伎倆：

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