• Jueves 28 de Marzo de 2024, 15:13

Autor Tema:  Salto de Pag NO FUNCIONA  (Leído 1303 veces)

fab_stgo

  • Nuevo Miembro
  • *
  • Mensajes: 3
    • Ver Perfil
Salto de Pag NO FUNCIONA
« en: Jueves 27 de Agosto de 2009, 20:54 »
0
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