Power Builder - comando para abrir caja registradora

hola amigos tengo el siguente comando del fabricante de la caja registradora:

This is the command line You have to insert in your program in order to open Cash drawer using Epson Receipt Printers



Chr(27),”p”,chr(0),chr(25),chr(250)

mi pregunta es donde tengo que poner esta lnea en power 8, para qye al dar la orden de impresion se habra la caja registradora, desde ya muchas gracias por su tiempo.

En el momento que quieras que se abra la caja... normalmente cuando la pantalla indica el cambio (o vuelto como se dice en mi pais) se debe abrir la caja...

Nota: en PB debes cambiar la instrucción chr por char...

Ejemplo...
this example sets ls_S to an asterisk, the character corresponding to the ASCII value 42:

string ls_S

ls_S = Char(42)

que tal señor leopoldo, gracias por su tiempo.
Lo que no se es como llamar a ese comando :
lo0 intentwe de esta forma pero obviamente esta mal

cdw_listado.print(Char(27),"p",char(0),char(25),char(250))

Perdone mi ignorancia!!!

Saludos...

Puedes hacerlo así como esta el código de cortar el papel en una impresora...

Job = PrintOpen()
Print(Job,"~027~100~049")
--Codigo Ascc para cortar papel en una etiquetera ,,, pero no envia el comando.

Sr.Leopoldo

Inmediatamente se ve q conce. Feliciaciones..
Una consulta:Tengo una pc con 1impresora(red) y 1refrendadora conectada al COM1. ¿como se hace para que la impresion se realice en la refrendadora(COM1).

Cuando pruebo la impresion y corte, no sale nada. ¿Como hago para que salga por la refrendadora? Con el siguiente codigo no sale nada:

long job
Job = PrintOpen()
Print(Job,"~027~33~1") <--- Seleccion de font
Print(Job,"Prueba de impresion") <---- Impresion de texto
Print(Job,"~29"~86"~1") <--- corte
PrintClose(Job)

¿Que esta mal?

Muchas Gracias...

Saludos...

Tienes la impresora "refrendadora" colocada por defecto?

haz un PrintSetUp() antes de abrir el spooler de impresión para que selecciones la impresora...

PrintSetUp()
long job
Job = PrintOpen()
Print(Job,"~027~33~1") <--- Seleccion de font
Print(Job,"Prueba de impresion") <---- Impresion de texto

Esta colocada la impresora a la velocidad del Puerto COM1?, las impresoras por serial se configuran para diferentes velocidades, busca en el manual...
Por otro lado el corte tiene unas " de más...ponlo así para probar...

Print(Job,"~029~086~001") <--- corte

LEOPOLDO
Gracias por tu tiempo.

La impresora no esta por defecto, pues la Pc tiene mas impresotas definidas.
Es sistema esta desarrollado en PB6.5, hay forma de enviarlo directamente a la refrendadora COM1. ? en PB8 es PrintSetPrinter ("REFREN")

Puse el codigo, pero solo muestra el texto, mas no CORTA:

PrintSetUp()
long job
Job = PrintOpen()
Print(Job,'~027~033~001') //<--- Seleccion de font
Print(Job,"Prueba de impresion") //<---- Impresion de texto
Print(Job,'~029~086~001') //<--- corte
PrintClose(Job)


Como se puede hacer para imprimir codigo de BARRA? Desde VBasci es:

Private Sub CmdTestSerial_Click()
MSComm1.PortOpen = True ' abre puerto paralelo
MSComm1.Output = Chr$(27) + Chr$(64) ' inicializa printer
MSComm1.Output = vbCrLf
MSComm1.Output = Chr$(&H1D) + "h" + Chr$(80) ' Set height
MSComm1.Output = Chr$(&H1D) + "k" + Chr$(2) ' Print bar code
MSComm1.Output = "496595707379" + Chr$(0)
MSComm1.Output = Chr$(&HA)
MSComm1.Output = Chr$(29) + Chr$(86) + Chr$(1) ' Corte de ticket
MSComm1.PortOpen = False ' cierra puerto serial
End Sub

hOLA UNA CONSULTA QUE MODELO DE CAJA REGISTRADORA ME RECOMIENDAN...VOY A HACER UN PROYECTO UTILIZANDO CAJA REGISTRADORA.

PODRIAN RECOMENDAR ALGUNO..

SALUDOS