Imprimir lineas de división

¿Cómo estas?
Lo que vamos a hacer es mandarle el carácter ascii que corresponda..
Mira, depende mucho de tu impresora (como esta configurada en la tabla de códigos)
Lo más fácil.. si vas a usar siempre la misma impresora, para no tocar el setup y eso poné una hoja en blanco y hagamos esto..
set printer to name soloTexto
for a=1 to 254
??? str(a,3)+' '+chr(a)+', '
endfor
set printer to defa
Esto hará que se imprima las códigos de todos los caracteres de la impresora
Bueno, con ese papel.. busca el que necesites y lo imprimís con la función chr()
Supone que la linea que necesitas es 174, bueno haces: replicate(chr(174), ¿80) o si es uno solo? Chr(174)
Bueno, espero haberte ayudado y desde ya estoy a tu disposición.
Keystone - Christian
www.keystone.com.ar

Hola, estoy probando la impreionde códigos y el error de sintaxis me sale después del for.
set printer to name soloTexto
for a=1 to 254
??? str(a,3)+' '+chr(a)+','
endfor
set printer to defa
Lo otro seria como puedo visualizar mi reporte antes de imprimirlo tomando en cuenta que el reporte lo estoy generando desde un prg.
Gracias a tu colaboración el código para generar el reporte quedaría de esta manera, ¿creo qué es enviando el reporte a un archivo de texo?, ¿En todo caso la visualización se puede validar por mes y por año?.
set printer to name solotexto
esc=chr(27)
_negritaOn=esc+chr(69)
_chico=esc+chr(33)+chr(1)
_normal=esc+chr(33)+chr(0)
_grande=esc+chr(33)+chr(16)+esc+chr(33)+chr(32)
CtrlF=chr(13)+chr(10)
ctrlFF=chr(13)+chr(12)
mLinea=1
sele imprime
scan all
if mLinea=1
=imprimeCabecera()
endif
=imprimeLinea()
if mLinea=62
??? ctrlFF
mLinea=1
endif
endscan
set printer to defa
procedure imprimeLinea
??? CHR(27) + CHR(64)
??? CHR(27) + CHR(33) + CHR(4)
??? str(imprime.idcomp,5,0)+SPACE(3)+dtoc(imprime.fecha_emision)+SPACE(1);
+dtoc(imprime.fecha_venci)+SPACE(2)+PADR(imprime.nro,2);
+SPACE(2)+PADL(imprime.serie,4)+SPACE(3)+PADL(imprime.nro_comprob,10);
+SPACE(2)+PADR(imprime.cod,1)+SPACE(2)+PADR(imprime.ruc,11);
+SPACE(2)+ALLTRIM(imprime.rsocial)+SPACE(2)+TRANSFORM(imprime.bimponible1,'###,###.##');
+SPACE(2)+TRANSFORM(imprime.igv1,'###,###.##')+SPACE(2)+TRANSFORM(imprime.adqui_no_grav,'###,###.##');
+SPACE(1)+TRANSFORM(imprime.otros,'###,###.##')+SPACE(1)+TRANSFORM(imprime.imp_total,'###,###.##');
+SPACE(2)+PADR(imprime.nro_const_dep,7)+SPACE(2)+dtoc(imprime.fec_const_dep);
+SPACE(3)+dtoc(imprime.fecha_mod)+SPACE(3)+PADR(imprime.tipo_comp_mod,2);
+SPACE(5)+PADL(imprime.serie_mod,4)+SPACE(2)+PADL(imprime.nro_comp_orig,10);
+SPACE(4)+PADL(imprime.nro_reg,6)+ctrlF
*??? _chico
mLinea=mLinea+1
return
procedure imprimeCabecera
??? _negritaOn
??? _grande
??? " "+ctrlF
??? " "+ctrlF
??? " "+ctrlF
??? " "+ctrlF
??? space(25)+padr('REGISTRO DE COMPRAS',20)+ctrlF
....
...
mLinea=mLinea+20
return