|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - fab_stgo
Páginas: [1]
1
« en: Lunes 14 de Septiembre de 2009, 15:58 »
Muchas gracias por tu ayuda, voy a ponerla en practica.
2
« en: Jueves 27 de Agosto de 2009, 20:55 »
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
3
« en: Jueves 27 de Agosto de 2009, 20:54 »
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
Páginas: [1]
|
|
|
Mostrar Mensajes
