Notice the sample code did not have the "On Ne00"

--
Regards,
Tom Ogilvy


"Rmagic" wrote in
message ...

hi
Thanks for code

I have tried but get a "Run time error 52"

The code

Sub Macro5()
Dim ctrl As Long
Dim tmpstr As String
Open "EPSON Stylus CX3200 on Ne00:" For Output As #1
Print #1, "[Start of Printing Test]"
For ctrl = 1 To 10
tmpstr = "Printing:" + Str(ctrl)
Print #1, tmpstr
Next
tmpstr = "[End of printing test]" + Chr(12)
Print #1, tmpstr
Close #1
End Sub


Thanks for the help


--
Rmagic
------------------------------------------------------------------------
Rmagic's Profile:
http://www.excelforum.com/member.php...o&userid=28595
View this thread: http://www.excelforum.com/showthread...hreadid=486655