Hola amigos del foro:
Necesito ayuda con el siguiente codigo que utilizo para imprimir etiquetas en impresora matricial. El problema es que no logro hacer que se impriman mas de 10 etiquetas al mismo tiempo. No envia error ni nada, simplemente solo imprime 10 o menos etiquetas a la vez... Ya he verificado y si hace el ciclo mas de 10 veces cuando es necesario...
Este mismo codigo lo usaba antes en FW23 y funcionaba muy bien...
Gracias de antemano
Saludos
FOR X=1 TO NUM
oPrn:=TDosPrn():New((aCONFIG[50]))
oPrn:StartPage()
IF aET[4] // SOLO CODIGO
oPrn:Command("27,67,6","27,119,1")
oPrn:SAY(3,1,PADC(ALLTRIM(INVENT->CODIGO1),25))
oPrn:Command("27,119,0")
ELSE
oPrn:Command("27,67,6","27,15")
IF aET[1]
oPrn:SAY(1,3,aConfig[5])
ENDIF
oPrn:SAY(2,3," CODIGO: "+INVENT->CODIGO1 +" INT: "+INVENT->CODIGO2)
oPrn:SAY(3,3,"DESCRIP: "+SUBSTR(INVENT->DESCRIP1,1,50))
IF aET[2] // PRECIO
oPrn:SAY(4,3," PRECIO: "+TRANSFORM(INVENT->PRECIO1,'9,999.99')+' PRV:'+aETIQ[4]+' '+DTOC(dFEC)+' '+IF(aET[3],INVENT->UBICACION,''))
ELSE
oPrn:SAY(4,3," PRV:"+aETIQ[4]+' '+DTOC(dFEC)+' '+IF(aET[3],INVENT->UBICACION,''))
ENDIF
ENDIF
oPrn:EndPage()
oPrn:End()
NEXT