Ver Mensaje Individual
  #4 (permalink)  
Antiguo 30/04/2011, 17:57
qpqp
 
Fecha de Ingreso: abril-2011
Mensajes: 1
Antigüedad: 12 años, 9 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