Prueba con lo siguiente:
SET PRINTER TO C:\FICTEMP.PRN
SET DEVICE TO PRINT
SET PRINTER ON SET CONSOLE OFF
SETPRC(0,0)
? '... pero era un hombre valiente'
?? CHR(27)+CHR(112)+CHR(0)+CHR(20)+CHR(20)
?? CHR(27)+CHR(112)+CHR(0)+CHR(20)+CHR(20)
SET CONSOLE ON
SET PRINTER OFF
SET DEVICE TO SCREEN
SET PRINTER TO
panimp:=SAVESCREEN(0,0,24,79)
RUN PRINT /D:COM1 C:\FICTEMP.PRN
RESTSCREEN(0,0,24,79,panimp)
En lineas generales, lo que hace este código es redirigir la impresión a un fichero y luego enviarlo al comando 'PRINT' de Xp, a su vez direccionado al puerto COM1.
Debe imprimir el texto y luego abrir un cajón estandar a traves de una impresora de tickets.
Saludos
Cita:
Empezado por KAYO
Espero q este hilo sea adecuado para formular mi pregunta (a pesar que es clipper, simpre encuentro respuestas en este foro).
En una aplicacion de delphi corriendo bajo Xp intento imprimir en el puerto serial, pero aparentemente Xp controla el COM1: y me sale errorer de PRINT I/O ERROR.
Lo estoy haciendo redireccionando la salida con
SET PRINTER TO COM1:
SET DEVICE TO PRINT
(aclaro que en windows95 y ME funciona perfectamente)
Agradeceria vuestra ayuda!!!!
|