Atentos Saludos.
Aqui le planteo el probl.
esta es la rutina original en la cual mano a imprimir en la matricial. el problema es que la hoja es de 33 lineas, me he quedado bloqueado, termina de imprimir si se me va de largo.
FUNC vm_05
PARA tito
SET CONS OFF
SET DEVI TO PRINT
IF tito#2
@ 0.6,34 SAY "__________________" FONT "Times New Roman",9 STYL "BT"
@ 0.8,34 SAY "_____________" FONT "Times New Roman",9 STYL "BT"
@ 2,44 SAY " S.A." FONT "Times New Roman",12 STYL "BT"
@ 3,34 SAY "Productora " FONT "Times New Roman",12 STYL "BT"
@ 3.4,34 SAY "____________" FONT "Times New Roman",9 STYL "BT"
@ 3.6,34 SAY "_____________" FONT "Times New Roman",9 STYL "BT"
@ 5,4 SAY "NOMBRE: " + m.nemple FONT "Times New Roman",8 STYL "BT"
@ 5,83 SAY "MES: "+ CMONTH(fecproc)+ " / " + ALLT(STR(YEAR(fecproc))) FONT "Times New Roman",9 STYL "BT"
@ 6,49 SAY "SOBRE DE PAGO" FONT "Times New Roman", 11 STYL "BTU"
@ 8,30 SAY "INGRESOS" FONT "Times New Roman",9 STYL "BT"
@ 8,70 SAY "DESCUENTOS" FONT "Times New Roman",9 STYL "BT"
@ 9,4 SAY "Sueldo" FONT "Times New Roman",9 STYL "T"
@ 9,43 SAY "$" FONT "Times New Roman",9 STYL "T"
ENDIF
SET CONSOLE ON
SET DEVICE TO SCREEN
SET PRINT TO
SET PRINT OFF
ENDFUNC
espero me ayuden, en como modicficar para poder imprimir en este tipo de hojas,
gracias
