Print a .TXT file

[stroker1]

I have had success printing a text file in VB such as follows:

Public Sub Printtxtfile(filename as string)
Dim s as string
Open filename for input as #1
printer.font = "courier"
printer.fontsize = 12
line input #1,s
printer.print s
loop
...
I have yet to find a way to pass a variable (filename) to vbscript and get it to print.
Here is what I have tried with no success:

Public Sub Printtxtfile (filename as string)
Shell("notepad /p " + filename)
end sub

Any suggestions!!!! Thanks in advance

 

[PhilJackson]

I would have used ShellExecute with the print verb.

URL:

http://www.tek-tips.com/viewthread.cfm?qid=53365

The above link may help you get started on this.

Spong

 

[PhilJackson]

Just realised I was in the VBScript page... Sorry. Ignore my above comments.

 

[PhilJackson]

This should be more what you are looking for:

Set Shell = WScript.CreateObject("WScript.Shell")

Sub Printtxtfile(filename)
Shell.Run "Notepad /p " & filename
End Sub

Spong