30/04/2011, 17:57
|
| | | Fecha de Ingreso: abril-2011
Mensajes: 1
Antigüedad: 13 años, 7 meses Puntos: 0 | |
| Respuesta: Abrir Cajon monedero VB2010
Public Sub AbrirCajon()
Dim fw As StreamWriter
LPTPORT = "LPT1" 'El puerto que sea.
hPort = CreateFile(LPTPORT, GENERIC_WRITE, FILE_SHARE_WRITE, SA, OPEN_EXISTING, 0, 0)
hPortP = New IntPtr(hPort) 'Convierte Integer to IntPtr
Safe = New Microsoft.Win32.SafeHandles.SafeFileHandle(hPortP, True)
If Not Safe.IsInvalid Then
outFile = New System.IO.FileStream(Safe, IO.FileAccess.Write)
fw = New System.IO.StreamWriter(outFile)
fw.AutoFlush = True
fw.WriteLine(Chr(27) & Chr(112) & 0) 'Genérico Epson aqui va el codigo de la impresora
fw.Close()
End If
CloseHandle(hPort)
End Sub
Chr(27) & Chr(112) & 0 este es el código generico de la epson, puede variar por la marca y el modelo
tambien se puede configurar que la impresora se abra cada vez que se imprima algo en la configuracion de la impresora ( de esta forma no se necesita mandar ningun codigo)
Última edición por qpqp; 30/04/2011 a las 18:02 |