Visual Basic - COMO ABRIR UN CAJON PUNTO DE DINERO

Hola amiguitos y amiguitas como les va
Amigos porfis . un favor sote , tengo un problema al abrir un cajón de dinero conectada a una impresora Epson punto de ventas , el problema se da porque esta impresora está conectada vía USB al CPU y no sé cual es el código que se usa para enviarlo a la impresora Epson y de allí se abra el cajón de dinero,
La verdad espero que me ayude con ese código, se los agradeceré toda la vida..
Yo pensaba que se cierre la venta y de allí una vez impreso el documento enviar el código para que se abra el cajón, porfis si es posible el envíeme el código de abrir la caja, lo necesito de verdad,.
Gracias de antemano a todos los programadores de este foro

Prueba a abrirlo con un Martillo.
Sino levantalo todo lo alto que puedas y tiralo al suelo con todas tus fuerzas. Seguro que se abre.
Un saludo.

se me ocirre así.

compartir impresora y asociarla a un LPT.

ESTO ANTES DE INICIAR LA APLICACION TALVEZ EN INICIO EJECUTAR

NET USE LPT1: \TUMAQUINATUIMPRESORA

Despues en el código

Public sub Abrircajon()
Open "LPT1" For Output As #1
Print #1, Chr(27) + Chr(112) + Chr(0) + Chr(100) + Chr(1)
CLOSE #1
end sub

o bien asi

Obviamente a este punto tu impresora estar Instalada
Aqui se usa el font llamado "control", que es para mandar comandos propios de las epson, para que funcione el tamaño de la letra debe ser 10

Public Sub AbrirCajonDeDinero()
Dim MiImpresora as Printer
For Each MiImpresora In Printers
If MiImpresora.DeviceName = "Epson TM-U950" Then
' Puse TM-U950 como ejemplo debe ser como se llame tu printer
Set Printer = MiImpresora
Printer.FontSize = 10
Printer.FontName = "control"
Printer.Print "A"
printer.EndDoc
endif
next
End Sub

Espero te sea de utilidad.

Fernando.

Voy a probar, pero de antemano muchas gracias Fernando

Hola Fernando como te Ve.
Te Cuento que No Me FUNCIONO EL CODIGO , RECUERDA QUE LA COMPUTADORA NO TIENE LPT1. NO TRAJO ESE PUERTO SOLO PUERTOS USB, POR ESO TAMBIEN LE VENDIERON LA IMPRESORA EPSON PUNTO DE VENTAS CON CABLE USB.

ENTONCES ESE ES MI GRAN PROBLEMA, CUAL ES EL CODIGO PARA ABRIR EL CAJON DE DINERO QUE ESTA CONECTADA A LA IMPRESORA EPSON :USB

SI PUEDES CONSLTARME ES Y RESPONDERME OTRA VEZ O ALGUIEN MAS QUE QUIERA AYUDARME.PORFA. SI NO ES MUCHO PEDIR ME DEN UN CODIGO YA ECHO PARA QUE ME FUNCIONE YA QUE NO SOY MUY EXPERTA EN VISUAL BASIC PERO SI NESESITO EL CODIGO PARA TERMINAR EL PROYECTO. .. MUCHAS GRACIAS

ola.. mira si tu impresora es una epson lo puedes acer mediante el driver.. ps el driver de la epson te da unas dlls con funciones para ellos es algo asi
Declare Function BiCloseMonPrinter Lib "EpsStmApi3.Dll" (ByVal nHandle As Integer) As Integer
Public Declare Function BiOpenDrawer Lib "EpsStmApi.Dll" (ByVal nHandle As Integer, ByVal drawer As Byte, ByVal pulse As Byte) As Integer

Dim nType As Integer = 2
' Dim AI As Integer
' AI = BiOpenMonPrinter(nType, strNamePrinter)
' BiOpenDrawer(AI, 1, 1)
' BiCloseMonPrinter(AI)

esto lo tengo yo.. pero soo soporta ciertos modelos de epson.. almenos la tmu 220 y 200 si funciona...
si kieres saber mas al respecto contactame
y te paso los manuales de esas api k tiene la epson...
yo tengo otro problema parecido... ps estoy con impresoras no epson y es con un cable convertidor lpt usb... pero no se como abrir el cajon...
tengo esto
Dim fw As IO.StreamWriter
LPTPORT = "lpt1"
LPTPORT = clsImpresoras.aaF_PortName("Star SP512 Line Mode Printer")
hPort = CreateFile(LPTPORT, GENERIC_WRITE, FILE_SHARE_WRITE, SA, OPEN_EXISTING, 0, 0)
hPortP = New IntPtr(hPort)
Safe = New Microsoft.Win32.SafeHandles.SafeFileHandle(hPortP, True)
Try
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) & Chr(0))
'fw.Write(153, "Hola")
CloseHandle(hPort)
fw.Close()
End If
CloseHandle(hPort)
Catch ex As Exception

End Try

el problema es el nombre del puerto .. osea no se k poner si lpt o el k me obtiene y k pone como virtual al momento de conectar el cable.. si me puees ayudar te lo agradeceria...
se otra forma.. una donde tu generas un puerto pero no es muy bueno ee... asi k mejor contacame pa decirte como acerlo por driver esta sencillo y te evitas complicaciones

bye

se configura en panel de control
buscar la impresora
le das propiedades de impresora
perifericos
caja
abrir caja y ya

alguien puede decirme como contactar a un usuario?? osea veo k un usuario da una respuesta o pregunta.. pero como le ago para ver su mail... por k el mensaje de k kiero contactarlo lo ara asta k consulte si ay respuesta en su pregunta vdd.. ayudenme por favor

Hola janet intenta con esto

Private Sub Command1_Click()
Abre_cajon
Printer.print "" 'Esta linea es para imprimir un espacio en blanco al final del ticket
Printer.EndDoc ' y con esta instruccion, se le da una instruccion a la impresora para que corte el papel
End Sub

Private Sub Abre_cajon()
Open "LPT1" For Output As #1
Print #1, Chr$(27); "p"; Chr$(0); Chr$(25); Chr$(250)
Close #1
End Sub

Mira Primero tienes que dar de alta la impresora con el driver original de la Epson.

segundo una ves dada de alta, entras a las propiedades de la impresora y en el apartado de
opciones de impresion esta la opcion para abir cajon de dinero ya sea al comentar a imprimir y al terminar de imprimir el documento.

para esto el cajon deve de estar conectado a la impresora atraves de un cable RJ12

y si mandas ai imprimir una pagina de prueva de la impresora veras que te abre el cajon sin ningun problema...

en tu codigo agrega una instruccion

printer.print chr$(7)
printer.end doc

espero te haya servido