Hallo allemaal,
Eind 2006 was ik met een printer bezig zie topic :HELP ! ! ! VB 6.0 en RS-232 probleem ! ! !!
Het probleem was adequaat en snel verhlopen. Nu wil graag een variable (via een textbox) laten uitprinten.
Private Sub Command1_Click()
Dim tekst As String
tekst = Text1.Text
MSComm1.PortOpen = True
MSComm1.Output = "Q280,019" + Chr$(13) + Chr$(10)
MSComm1.Output = "q831" + Chr$(13) + Chr$(10)
MSComm1.Output = "rN" + Chr$(13) + Chr$(10)
MSComm1.Output = "S4" + Chr$(13) + Chr$(10)
MSComm1.Output = "D10" + Chr$(13) + Chr$(10)
MSComm1.Output = "ZT" + Chr$(13) + Chr$(10)
MSComm1.Output = "JB" + Chr$(13) + Chr$(10)
MSComm1.Output = "R175,0" + Chr$(13) + Chr$(10)
MSComm1.Output = "N" + Chr$(13) + Chr$(10)
MSComm1.Output = "B57,20,0,1,2,6,110,B," & tekst + Chr$(13) + Chr$(10)
MSComm1.Output = "P1" + Chr$(13) + Chr$(10)
MSComm1.PortOpen = False
End Sub
Nu doet de printer weer niets printen. Ook niet als ik als ik alles quote of anders dimensioneer. Het zal wel weer iets 'simpels' zijn, maar ik kom er maar niet achter.
Eind 2006 was ik met een printer bezig zie topic :HELP ! ! ! VB 6.0 en RS-232 probleem ! ! !!
Het probleem was adequaat en snel verhlopen. Nu wil graag een variable (via een textbox) laten uitprinten.
Private Sub Command1_Click()
Dim tekst As String
tekst = Text1.Text
MSComm1.PortOpen = True
MSComm1.Output = "Q280,019" + Chr$(13) + Chr$(10)
MSComm1.Output = "q831" + Chr$(13) + Chr$(10)
MSComm1.Output = "rN" + Chr$(13) + Chr$(10)
MSComm1.Output = "S4" + Chr$(13) + Chr$(10)
MSComm1.Output = "D10" + Chr$(13) + Chr$(10)
MSComm1.Output = "ZT" + Chr$(13) + Chr$(10)
MSComm1.Output = "JB" + Chr$(13) + Chr$(10)
MSComm1.Output = "R175,0" + Chr$(13) + Chr$(10)
MSComm1.Output = "N" + Chr$(13) + Chr$(10)
MSComm1.Output = "B57,20,0,1,2,6,110,B," & tekst + Chr$(13) + Chr$(10)
MSComm1.Output = "P1" + Chr$(13) + Chr$(10)
MSComm1.PortOpen = False
End Sub
Nu doet de printer weer niets printen. Ook niet als ik als ik alles quote of anders dimensioneer. Het zal wel weer iets 'simpels' zijn, maar ik kom er maar niet achter.