Impresion de Tickets SAMSUMG SRP350 SERIE
Publicado por David Gil (24 intervenciones) el 30/09/2004 14:10:33
Estoy intentando enviar datos a una impresora de Tickets y lo unico que he conseguido hacer hasta el momento es abrir el cajon portamonedas y porque hice un copia/pega. Tengo los codigos ASCII de la emulacion EPSON pero no se en que formato mandarselos.
Dim nFicSalCajon As Integer
Dim Puerto As String
Set db = CurrentDb
Set rstTemp = db.OpenRecordset("tblConfigCajonDinero")
rstTemp.MoveFirst
If rstTemp![sPuerto] = "NONE" Then
Exit Function
Else
Puerto = rstTemp![sPuerto]
nFicSalCajon = FreeFile
Open Puerto For Output As #nFicSalCajon
Print #nFicSalCajon, Chr$(27); "p"; Chr$(0); Chr$(25); Chr$(250)
Close nFicSalCajon
End If
Dim nFicSalCajon As Integer
Dim Puerto As String
Set db = CurrentDb
Set rstTemp = db.OpenRecordset("tblConfigCajonDinero")
rstTemp.MoveFirst
If rstTemp![sPuerto] = "NONE" Then
Exit Function
Else
Puerto = rstTemp![sPuerto]
nFicSalCajon = FreeFile
Open Puerto For Output As #nFicSalCajon
Print #nFicSalCajon, Chr$(27); "p"; Chr$(0); Chr$(25); Chr$(250)
Close nFicSalCajon
End If
Valora esta pregunta


0