Printing with a 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

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

--
Regards,
Tom Ogilvy


"Rmagic" <Rmagic.1ytf1a_1132523402.0425@excelforum-nospam.com> wrote in
message news:Rmagic.1ytf1a_1132523402.0425@excelforum-nospam.com...
>
> 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
>