Yo la crearía como impresora remota:

Cola:   PRZAI10        Biblioteca:   QUSRSYS      
Estado:                                           
  Transcriptor activo  . . . . . . . . :   Y      
  Nombre(s) de transcriptor si activo  :   PRZAI10
  Cola de salida retenida  . . . . . . :   N      
Tamaño máximo de archivo en spool:                
  Número de páginas  . . . . . . . . . :   *NONE  
  Hora de inicio . . . . . . . . . . . :          
  Hora de finalización . . . . . . . . :          
Transcriptores de arranque automático  :   1      
Visualizar cualquier archivo . . . . . :   *NO    
Separadores de trabajos  . . . . . . . :   0      
Controlado por operador  . . . . . . . :   *YES   
Orden de archivos en cola  . . . . . . :   *FIFO  
Cola de datos  . . . . . . . . . . . . :   *NONE  
  Biblioteca . . . . . . . . . . . . . :          
Autorización a comprobar . . . . . . . :   *OWNER 
Sistema remoto . . . . . . . . . . . . :   *INTNETADR      
Cola de impresora remota . . . . . . . :   L1              
Cola para mensajes de transcriptor . . :   QSYSOPR         
  Biblioteca . . . . . . . . . . . . . :     *LIBL         
Tipo de conexión . . . . . . . . . . . :   *IP             
Dirección Internet . . . . . . . . . . :   192.168.61.150  
Tipo de destino  . . . . . . . . . . . :   *OTHER          
Clase VM/MVS . . . . . . . . . . . . . :                   
FCB  . . . . . . . . . . . . . . . . . :                   
Transformación de impresión de sistema                     
  principal  . . . . . . . . . . . . . :   *YES            
Transformación de datos de usuario . . :                   
  Biblioteca . . . . . . . . . . . . . :                   
Tipo y modelo de fabricante  . . . . . :   *WSCST          
Objeto de personalización de estación                      
  de trabajo . . . . . . . . . . . . . :   PZEBRA          
  Biblioteca . . . . . . . . . . . . . :     *LIBL         
Configuración de imagen  . . . . . . . :   *NONE           
Opciones de destino  . . . . . . . . . :   *NONE           

        El objeto personalizado PZEBRA es para conseguir que envíe los 
controles correctos, el fuente es:

WSCST DEVCLASS=TRANSFORM.      
                               
   :TRNSFRMTBL.                
                               
   :SPACE                      
     DATA ='20'X.              
   :CARRTN                     
     DATA ='0D'X.              
   :FORMFEED                   
     DATA ='0A'X.              
   :LINEFEED                   
     DATA ='0A'X.              
EWSCST.                        


        Luego al spool le mandas un texto plano con los comandos EPL2. 

^XA                                
^MCY                               
^XZ                                
^XA                                
^FWN^CFD,24^PW815^LH0,0            
^CI10^PR2^MNY^MMT^MD0^PON^PMN^LRN  
....

        y ya está. Debería funcionarte

-----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Establiments Vidal
Enviado el: martes, 06 de septiembre de 2005 13:57
Para: [email protected]
Asunto: programacion impresora zebra tlp2844

Hola a todos:

Tengo un problema , quiero programar etiquetas con una impresora zebra
TLP2844  , que funciona con el lenguaje EPL2 .

He configurado la impresora en el AS400 directamente desde una pantalla tonta , 
como si de 4214 se tratara , he canviado a TRANSFORM *YES i le he puesto una 
IBM 3812 , apara que no de mensaje de paginas truncadas.

He creado un PRTF

A    R  ETIQ01
A       QD1       30A  ....
A                           SKIPB(001)
A                           SPACEA(001)


i un RPG IV

FPRUEBASPR      O  E     PRINTER OFLIND(*IN10)
DCRLF         S       2A
                        EVAL    CRLF = X'0D' + X'25'
                        EVAL    QD1 = CRLF
                        WRITE   ETIQ01
                        EVAL    QD1 = 'N' + CRLF
                        WRITE   ETIQ01
                        EVAL    QD1 = 'A20,0,0,1,1,1,N,"ETIQUETA"' + CRLF
                        WRITE   ETIQ01
                        EVAL    QD1 = 'P1' + CRLF
                        WRITE   ETIQ01
                        EVAL    *INLR = *ON


Y no imprime , aparece en el spool pero cuando va a imprimir dice que esta 
imprimiendo y el listado desaparece.
X'0D' y X'25' son CR y LF en EBCDIC , el resto son comando EPL2

¿ alguien ve que estamos haciendo mal ?  , gracias de antemano Saludos.


__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados 
http://www.help400.es _____________________________________________________

Para darte de baja visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400

__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________

Para darte de baja visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400

Responder a