Programación General > Visual FoxPro

 Salto de Pag NO FUNCIONA

(1/1)

fab_stgo:
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

Navegación

[0] Índice de Mensajes