problema en la impresion en foxbase+ dos
Publicado por fran (1 intervención) el 09/05/2015 14:45:37
Buenas a todos, tengo un problema en la impresión al generar una planilla, la idea es que me imprima dos "recibos" en papel continuo sin importar si me ocupa una hoja y media de una manera seguida, pero al imprimir en la segunda hoja me hace un salto de línea en la impresión dejándome un espacio vacio en la hoja y después de ese espacio empieza a imprimir el resto, quisiera saber por que y como corregir ya que le especifico q me imprima todo sin espacios de línea, programo en foxbase+ d.o.s
aquí les dejo
aquí les dejo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
* SET PROC TO iimp0SET TALK OFF
SET ECHO OFF
SET DATE BRITISH
SET CONSOLE OFF
set default to printer
SET PRINTER TO PRN
SET DEVICE TO PRINTER
SET PRINTER ON
* SET DEVICE TO PRINTER* SET PRINTER ON?? CHR(15)
? ' COD:'+CODX+' '
? ' '
? ' '
? ' RAZON SOCIAL: '+nomx+' EMPLEADO : '+nom+' '
? ' ACTIVIDAD : '+actividad+''+empr+' CATEGORIA: '+categoria+' INGRESO: '+TRANSFORM(ingreso,'99/99/99')+' '
? ' DOMICILIO : '+domd+' DOMICILIO: '+dom+' '
? ' LUGAR : '+lugar+' PERIODO : '+periodo+' '
? ' C.U.I.T. : '+sussx+' C.U.I.L. : '+cuilx+' BASICO: '+TRANSFORM(SUER,'99,999.99')+' '
? ' '
? ' '
? ' '
? ' BASICO ('+STR(d,4,2,1)+')d.: '+TRANSFORM(basico,'99,999.99')+' JUBILACION ( 11%): '+TRANSFORM(jub1,'9,999.99')+' '
? ' AC.SAL. ()'+STR(c2,3,2,1)+')d.: '+TRANSFORM(acuerdo,'9,999.99')+' LEY 19.032 ( 3%): '+TRANSFORM(jubi2,'9,999.99')+' '
? ' VACAC. ( '+STR(c1,3,1,1)+')d.: '+TRANSFORM(vac1,'9,999.99')+' OBRA SOCIAL ('+STR(obrita,3,2,1)+'): '+TRANSFORM(obra,'9,999.99')+' '
? ' ANTIGUEDAD : '+TRANSFORM(ant,'9,999.99')+' ANSSAL ('+str(ansal,3,2,1)+'%): '+TRANSFORM(anssal,'9,999.99')+' '
? ' ASIST. PERFECTA: '+TRANSFORM(asis,'9,999.99')+' SINDICATO (2,5%): '+TRANSFORM(sind,'9,999.99')+' '
? ' COMP. SERVICIOS: '+TRANSFORM(compl,'9,999.99')+' SEG.V.y SEP.( 1%): '+TRANSFORM(art,'9,999.99')+' '
? ' HORAS EXT.('+STR(h,3)+'): '+TRANSFORM(horas,'9,999.99')+' F.R.S ( 1%): '+TRANSFORM(frs,'9,999.99')+' '
? ' FERIADOS ('+TRANSFORM(f,'9.9')+'): '+TRANSFORM(fer,'9,999.99')+' SUSPENC. ('+str(suspencion,1)+') DIAS: '+TRANSFORM(suspx,'9,999.99')+' '
? ' DESC.NO GOZ.('+STR(desc,1)+'): '+TRANSFORM(leng,'9,999.99')+' FALTAS ('+str(faltas,1)+') DIAS: '+TRANSFORM(faltax,'9,999.99')+' '
IF UPPER(EMB)="S"
IF UPPER(SIT)="N"
? ' AGUINALDO : '+TRANSFORM(agui,'9,999.99')+' EMBARGOS ('+STR(PAUX,2)+'%):'+TRANSFORM(embargo,'9,999.99')+' '
else
? ' AGUINALDO : '+TRANSFORM(agui,'9,999.99')+' ADEL. SUELDO ('+STR(PAUX,2)+'%):'+TRANSFORM(embargo,'9,999.99')+' '
SIT="N"
ENDIF
? ' ADIC. ALIMENT : '+TRANSFORM(alim,'9,999.99')+' ANTICIPO A CUENTA : '+TRANSFORM(monant,'9,999.99')+' '
ELSE
? ' AGUINALDO : '+TRANSFORM(agui,'9,999.99')+' ANTICIPO A CUENTA : '+TRANSFORM(monant,'9,999.99')+' '
? ' ADIC. ALIMENT : '+TRANSFORM(alim,'9,999.99')+' ALIMENT.EXENTO : '+TRANSFORM(plat,'9,999.99')+' '
EMB="N"
ENDIF
? ' ------------- -------------- '
? ' HABER LEGAL : '+TRANSFORM(subtotal1,'99,999.99')+' SUMA A DEDUCIR : '+TRANSFORM(subtotal2,'9,999.99')
? ' ALIMEN.EXENTO : '+TRANSFORM(anexo,'9,999.99')+' '
? ' PLAN JEFE/H. : '+TRANSFORM(JEFA,'9,999.99')+' '
? ' TOTAL : '+TRANSFORM(subtotal11,'99,999.99')+' NETO A PERCIBIR : '+TRANSFORM(subtotal4,'9,999.99')+' V/n/G('+STR(c,3,1,1)+'): '+TRANSFORM(vac,'9,999.99')+' '
? ' '
? ' '+rec1+' '
? ' '
? ' '+rec2+' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '+rec3+' '
? ' '
? ' '
? ' '+rec4+' '+rec5+' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' COD:'+CODX+' '
? ' '
? ' '
? ' RAZON SOCIAL: '+nomx+' EMPLEADO : '+nom+' '
? ' ACTIVIDAD : '+actividad+''+empr+' CATEGORIA: '+categoria+' INGRESO: '+TRANSFORM(ingreso,'99/99/99')+' '
? ' DOMICILIO : '+domd+' DOMICILIO: '+dom+' '
? ' LUGAR : '+lugar+' PERIODO : '+periodo+' '
? ' C.U.I.T. : '+sussx+' C.U.I.L. : '+cuilx+' BASICO: '+TRANSFORM(SUER,'99,999.99')+' '
? ' '
? ' '
? ' '
? ' BASICO ('+STR(d,4,2,1)+')d.: '+TRANSFORM(basico,'99,999.99')+' JUBILACION ( 11%): '+TRANSFORM(jub1,'9,999.99')+' '
? ' AC.SAL. ()'+STR(c2,3,2,1)+')d.: '+TRANSFORM(acuerdo,'9,999.99')+' LEY 19.032 ( 3%): '+TRANSFORM(jubi2,'9,999.99')+' '
? ' VACAC. ( '+STR(c1,3,1,1)+')d.: '+TRANSFORM(vac1,'9,999.99')+' OBRA SOCIAL ('+STR(obrita,3,2,1)+'): '+TRANSFORM(obra,'9,999.99')+' '
? ' ANTIGUEDAD : '+TRANSFORM(ant,'9,999.99')+' ANSSAL ('+str(ansal,3,2,1)+'%): '+TRANSFORM(anssal,'9,999.99')+' '
? ' ASIST. PERFECTA: '+TRANSFORM(asis,'9,999.99')+' SINDICATO (2,5%): '+TRANSFORM(sind,'9,999.99')+' '
? ' COMP. SERVICIOS: '+TRANSFORM(compl,'9,999.99')+' SEG.V.y SEP.( 1%): '+TRANSFORM(art,'9,999.99')+' '
? ' HORAS EXT.('+STR(h,3)+'): '+TRANSFORM(horas,'9,999.99')+' F.R.S ( 1%): '+TRANSFORM(frs,'9,999.99')+' '
? ' FERIADOS ('+TRANSFORM(f,'9.9')+'): '+TRANSFORM(fer,'9,999.99')+' SUSPENC. ('+str(suspencion,1)+') DIAS: '+TRANSFORM(suspx,'9,999.99')+' '
? ' DESC.NO GOZ.('+STR(desc,1)+'): '+TRANSFORM(leng,'9,999.99')+' FALTAS ('+str(faltas,1)+') DIAS: '+TRANSFORM(faltax,'9,999.99')+' '
IF UPPER(EMB)="S"
IF UPPER(SIT)="N"
? ' AGUINALDO : '+TRANSFORM(agui,'9,999.99')+' EMBARGOS ('+STR(PAUX,2)+'%):'+TRANSFORM(embargo,'9,999.99')+' '
else
? ' AGUINALDO : '+TRANSFORM(agui,'9,999.99')+' ADEL. SUELDO ('+STR(PAUX,2)+'%):'+TRANSFORM(embargo,'9,999.99')+' '
SIT="N"
ENDIF
? ' ADIC. ALIMENT : '+TRANSFORM(alim,'9,999.99')+' ANTICIPO A CUENTA : '+TRANSFORM(monant,'9,999.99')+' '
ELSE
? ' AGUINALDO : '+TRANSFORM(agui,'9,999.99')+' ANTICIPO A CUENTA : '+TRANSFORM(monant,'9,999.99')+' '
? ' ADIC. ALIMENT : '+TRANSFORM(alim,'9,999.99')+' ALIMENT.EXENTO : '+TRANSFORM(plat,'9,999.99')+' '
EMB="N"
ENDIF
? ' ------------- -------------- '
? ' HABER LEGAL : '+TRANSFORM(subtotal1,'99,999.99')+' SUMA A DEDUCIR : '+TRANSFORM(subtotal2,'9,999.99')
? ' ALIMEN.EXENTO : '+TRANSFORM(anexo,'9,999.99')+' '
? ' PLAN JEFE/H. : '+TRANSFORM(JEFA,'9,999.99')+' '
? ' TOTAL : '+TRANSFORM(subtotal11,'99,999.99')+' NETO A PERCIBIR : '+TRANSFORM(subtotal4,'9,999.99')+' V/n/G('+STR(c,3,1,1)+'): '+TRANSFORM(vac,'9,999.99')+' '
? ' '
? ' '+rec1+' '
? ' '
? ' '+rec2+' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '+rec3+' '
? ' '
? ' '
? ' '+rec4+' '+rec5+' '
?? CHR(18)
* SET CONSOLE ON* SET PRINTER OFF* SET PRINTER TOSET PRINTER OFF
set default to
SET DEVICE TO SCREEN
*SET DEVICE TO SCREENRETURN
Valora esta pregunta
0