Hola Alexis,

Como Raul te explicou, nosotros tambien utilizamos una Zebra 800, pero conectada en la porta LPT1. Abajo sigue un exemplo de nuestra utilizacion:

 nPrtHandle = fOpen ("LPT1", 11)  &&  Opens LPT1 port, Write only, Unbuffered
 
 If nPrtHandle = -1
    MessageBox ("Não foi possível acessar a impressora de etiquetas na porta LPT1 !")
    Return
 endif

 cPrtString = "^XA"                                                   + Chr (13) + Chr (10) + ;
              "^LL800"                                                + Chr (13) + Chr (10) + ;
              "^PQ1"                                                  + Chr (13) + Chr (10) + ;
              "^FO 80,110^A0,N,70,20^FD"  + cHeaderEdiqueta   + "^FS" + Chr (13) + Chr (10) + ;
              "^FO 80,170^GB700,0,5,B,0"                      + "^FS" + Chr (13) + Chr (10) + ;
              "^FO580,235^A0,N,100,40^FD" + "AGCO"            + "^FS" + Chr (13) + Chr (10) + ;
              "^FO 20,260^A0,N,70,20^FD"  + pCodItem          + "^FS" + Chr (13) + Chr (10) + ;
              "^FO 20,360^A0,N,40,10^FD"  + pDescr            + "^FS" + Chr (13) + Chr (10) + ;
              "^FO 20,460^A0,N,60,20^FD"  + "Area:  "         + "^FS" + Chr (13) + Chr (10) + ;
              "^FO170,460^A0,N,60,20^FD"  + pArea             + "^FS" + Chr (13) + Chr (10) + ;
              "^FO 20,530^A0,N,40,20^FD"  + "Local: "         + "^FS" + Chr (13) + Chr (10) + ;
              "^FO170,530^A0,N,40,20^FD"  + pLocal            + "^FS" + Chr (13) + Chr (10) + ;
              "^FO580,445^GB220,75,3,B,0"                     + "^FS" + Chr (13) + Chr (10) + ;
              "^FO600,460^A0,N,60,20^FD"  + cNumEtiq          + "^FS" + Chr (13) + Chr (10) + ;
              "^FO230,650^A0,N,20, 7^FD"  + cDateTimePrinted  + "^FS" + Chr (13) + Chr (10)

 fWrite (nPrtHandle, cPrtString)

 fClose (nPrtHandle)

Espero que te ayude!

Fernando

PS. Perdona me por mi español <s>