Francisco
04 de Septiembre del 2003

Hola, quisiera saber el codigo para abrir un cajón portamonedas conectado a una impresora de tickets en paralelo, en concreto a la samsung srp350 partialcut. Gracias.

Carlos
04 de Septiembre del 2003

Private Sub Abrir_cajon()

Dim nFichSal As Integer, nLpt As String
nFichSal = FreeFile
nLpt = Printer.Port
Open nLpt For Output As nFichSal
Print #nFichSal, Chr(27) & Chr(112) & Chr(0)
Close nFichSal

End Sub