Print Text File

V

vqthomf

Hi I have created a text file in vba and I need to print the file without the
user opening it first, I have tried using excel import and print this works
but cuts some of the text off. I was wondering if it can be printed by send
the text file to the printer??.
Any help would be much appreciated.
Charles
 
K

Karl E. Peterson

vqthomf said:
Hi I have created a text file in vba and I need to print the file without the
user opening it first, I have tried using excel import and print this works
but cuts some of the text off. I was wondering if it can be printed by send
the text file to the printer??.
Click to expand...

If you'd like to use whatever application the user has set to handle this sort of
request, it's as simple as this:

Private Declare Function ShellExecute 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 Function PrintDoc(ByVal DocFile As String) As Long
' Uses the "print" verb as defined in the registry
PrintDoc = ShellExecute(0&, "print", DocFile, vbNullString, vbNullString,
vbNormalFocus)
End Function
 
Top