I think something along the lines of


Code:
--------------------

Sub PrintLine()
Dim hdlTxt As Long

hdlTxt = FreeFile
'// Open the LPT1 port or Name of printer
Open "LPT1" For Output As #hdlTxt

'// Print command OR TEXT
Print #1, "THIS IS A TEST"

'// Close LPT1 port
Close #hdlTxt

End Sub

--------------------


--
Ivan F Moala


------------------------------------------------------------------------
Ivan F Moala's Profile: http://www.excelforum.com/member.php...fo&userid=1954
View this thread: http://www.excelforum.com/showthread...hreadid=556735