Impresión tamaño de letras
Hola keystone, estoy probando las impresiones en papel continuo en una epson LQ2170, los inconvenientes son los siguientes:
-La impresión no comienza en el borde de la hoja.
-No está respetando los tamaños de letras a pesar de utilizar los códigos,
Estos son los procedimientos:
*****
procedure imprimeLinea
??? _chico &&(Letra chica)
??? Space(1)+STR(imprime.idcomp,5,0)+' '+dtoc(imprime.fecha_emision)+' '+;
dtoc(imprime.fecha_venci)+' '+PADR(imprime.nro,2)+;
' '+PADR(imprime.serie,4)+' '+PADR(imprime.nro_comprob,10)+' '+PADR(imprime.cod,1)+;
' '+PADR(imprime.ruc,11)+' '+ALLTRIM(PADR(imprime.rsocial,40))+' '+str(imprime.bimponible1,8,2)+ctrlF
??? _chico &&(Letra chica)
mLinea=mLinea+1
return
******
procedure imprimeCabecera
??? _negritaOn
??? _grande
??? Space(12)+padr('REGISTRO DE COMPRAS',20)+ctrlF
??? _grande
??? _negritaOn
??? _normal
??? SPACE(1)+PADR('PERIODO:',8)+ctrlF
??? SPACE(1)+PADR('RUC:',4)+ctrlF
??? SPACE(1)+PADR('APELLIDOS Y NOMBRES, DENOMINACION O RAZON SOCIAL',48)+ctrlF
??? Space(1)+replicate('-',50)+ctrlF
??? _normal
??? _chico
??? SPACE(5)+PADR('NUMERO',6)+ctrlF
??? SPACE(2)+PADR('CORRELATIVO',11)+ctrlF
??? SPACE(2)+PADR('DEL REGISTRO',13)+ctrlF
??? SPACE(5)+PADR('O CODIGO',8)+ctrlF
??? SPACE(2)+PADR('UNICO DE LA',12)+ctrlF
??? SPACE(5)+PADR('OPERACION',9)+ctrlF
??? _chico
mLinea=mLinea+11
return
-La impresión no comienza en el borde de la hoja.
-No está respetando los tamaños de letras a pesar de utilizar los códigos,
Estos son los procedimientos:
*****
procedure imprimeLinea
??? _chico &&(Letra chica)
??? Space(1)+STR(imprime.idcomp,5,0)+' '+dtoc(imprime.fecha_emision)+' '+;
dtoc(imprime.fecha_venci)+' '+PADR(imprime.nro,2)+;
' '+PADR(imprime.serie,4)+' '+PADR(imprime.nro_comprob,10)+' '+PADR(imprime.cod,1)+;
' '+PADR(imprime.ruc,11)+' '+ALLTRIM(PADR(imprime.rsocial,40))+' '+str(imprime.bimponible1,8,2)+ctrlF
??? _chico &&(Letra chica)
mLinea=mLinea+1
return
******
procedure imprimeCabecera
??? _negritaOn
??? _grande
??? Space(12)+padr('REGISTRO DE COMPRAS',20)+ctrlF
??? _grande
??? _negritaOn
??? _normal
??? SPACE(1)+PADR('PERIODO:',8)+ctrlF
??? SPACE(1)+PADR('RUC:',4)+ctrlF
??? SPACE(1)+PADR('APELLIDOS Y NOMBRES, DENOMINACION O RAZON SOCIAL',48)+ctrlF
??? Space(1)+replicate('-',50)+ctrlF
??? _normal
??? _chico
??? SPACE(5)+PADR('NUMERO',6)+ctrlF
??? SPACE(2)+PADR('CORRELATIVO',11)+ctrlF
??? SPACE(2)+PADR('DEL REGISTRO',13)+ctrlF
??? SPACE(5)+PADR('O CODIGO',8)+ctrlF
??? SPACE(2)+PADR('UNICO DE LA',12)+ctrlF
??? SPACE(5)+PADR('OPERACION',9)+ctrlF
??? _chico
mLinea=mLinea+11
return
1 Respuesta
Respuesta de keystone CITI
1
Lo primero que tenemos que tener en cuenta es la diferencia de cantidad de caracteres entre letra grande(40), chica (132) y normal (80).. creo.
Ahora analicemos los procedimientos..
procedure imprimeLinea
??? _chico &&(Letra chica)
Ahora vamos a contar los caracteres de la linea..
01 : space(1)
05 : str(imprime. idComp,5,0)
10 : dtoc(imprime. fecha_emision)
01 : ' '
10 : dtoc(imprime. fecha_venci)
01 : ' '
02 : PADR(imprime. Nro, 2)
01 : ' '
04 : PADRE(imprime. Serie, 4)
01 : ' '
10 : padre(imprime. nro_comprob,10)
01 : ' '
01 : PADR(imprime. Cod, 1)
01 : ' '
11 : PADRE(imprime. Ruc, 11)
01 : ' '
40 : PADRE(imprime. Rsocial, 40) VA SIN EL ALLTRIM()
01 : ' '
08 : str(imprime. bimponible1,8,2)
La linea ??? _chico &&(Letra chica)
mLinea=mLinea+1
return
Posiblemente bimponible1 salia en cualquier lugar por el alltrim() anterior.
Lo mismo hace en el otro procedimiento y fíjate que coincida, tanto el tipo de texto como las posiciones..
El el procedimiento IMPRIMECABECERA
La linea
??? space(12)+padr('REGISTRO DE COMPRAS',20)+ctrlF
Cambiala por
? Padc('REGISTRO DE COMPRAS', 40)+ctrlF
Me parece que los ctrlF de:
??? SPACE(5)+PADR('NUMERO',6)+ctrlF
??? SPACE(2)+PADR('CORRELATIVO',11)+ctrlF
??? SPACE(2)+PADR('DEL REGISTRO',13)+ctrlF
??? SPACE(5)+PADR('O CODIGO',8)+ctrlF
??? SPACE(2)+PADR('UNICO DE LA',12)+ctrlF
??? SPACE(5)+PADR('OPERACION',9)+ctrlF
No van ninguno..
Con respecto a los caracteres de inicio de la página, creo que en algún lado había algo de imprimir 8 lineas, fíjate que no haya nada antes de comenzar a imprimir..
Bueno, espero haberte ayudado
Cualquier cosa avisame..
Keystone - Christian
www.kesytone.com.ar
Ahora analicemos los procedimientos..
procedure imprimeLinea
??? _chico &&(Letra chica)
Ahora vamos a contar los caracteres de la linea..
01 : space(1)
05 : str(imprime. idComp,5,0)
10 : dtoc(imprime. fecha_emision)
01 : ' '
10 : dtoc(imprime. fecha_venci)
01 : ' '
02 : PADR(imprime. Nro, 2)
01 : ' '
04 : PADRE(imprime. Serie, 4)
01 : ' '
10 : padre(imprime. nro_comprob,10)
01 : ' '
01 : PADR(imprime. Cod, 1)
01 : ' '
11 : PADRE(imprime. Ruc, 11)
01 : ' '
40 : PADRE(imprime. Rsocial, 40) VA SIN EL ALLTRIM()
01 : ' '
08 : str(imprime. bimponible1,8,2)
La linea ??? _chico &&(Letra chica)
mLinea=mLinea+1
return
Posiblemente bimponible1 salia en cualquier lugar por el alltrim() anterior.
Lo mismo hace en el otro procedimiento y fíjate que coincida, tanto el tipo de texto como las posiciones..
El el procedimiento IMPRIMECABECERA
La linea
??? space(12)+padr('REGISTRO DE COMPRAS',20)+ctrlF
Cambiala por
? Padc('REGISTRO DE COMPRAS', 40)+ctrlF
Me parece que los ctrlF de:
??? SPACE(5)+PADR('NUMERO',6)+ctrlF
??? SPACE(2)+PADR('CORRELATIVO',11)+ctrlF
??? SPACE(2)+PADR('DEL REGISTRO',13)+ctrlF
??? SPACE(5)+PADR('O CODIGO',8)+ctrlF
??? SPACE(2)+PADR('UNICO DE LA',12)+ctrlF
??? SPACE(5)+PADR('OPERACION',9)+ctrlF
No van ninguno..
Con respecto a los caracteres de inicio de la página, creo que en algún lado había algo de imprimir 8 lineas, fíjate que no haya nada antes de comenzar a imprimir..
Bueno, espero haberte ayudado
Cualquier cosa avisame..
Keystone - Christian
www.kesytone.com.ar
