Abrir Cajon monedero VB2010

[luiscaloto]

Hola a todos amigos,

estoy desarrollando un pequeño TPV y tengo el problema que os menciono en la cabecera de la pagina. Ya tengo los codigos que hay que enviar, pero no se como los tengo que enviar a la impresora.
He intentado con llamada a Print directamente pero me da un error.

Alguien puede orientarme???'

Saludos

[Aquaventus]

Hola luiscaloto, tal vez te sea util este post. Saludos!.

[luiscaloto]

Gracias amigo,

pero la verdad es que en esta pagina no comentan nada acerca del Cajón Portamonedas.

Alguna nueva idea??

Saludos

[qpqp]

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)

[luiscaloto]

Muchas gracias amigo!

Funciona a la perfeccion.

Saludos y muchas gracias otra vez!!