FoxPro/Visual FoxPro - Definir tamaño hoja oficio predeterm. en impresion

Hola amigos

Por lo poco practico del Report de vfp, realise mi propio rutina de impresion, la cual funciona super bien, Con un botton manda a impresion donde puedo definir el numero de copias y la pagina de inincio de impresion, ya sea para mostrar en forma de preview o por impresora. Bueno todo fue programado funciona bien parecido al report pero con varias mejoras, bueno el problema que tengo como esta programado con f,c say
uso el sys(1037) y alli defino la pagina como oficio funciona bien miestras no me salga del sistemas al salir y volver a entrar asume por defaul hoja A4. mi pregunta es como dejar por omision el tamaño de hoja oficio y no tener que estar configurando cada vez o por linea de comando haber si se puede definir el largo de pagina (oficio) con algun chr()

f,c say chr()

espero haberme explicado bien

gracias

A.C.M.

HOLA DENUEVO

Como no utilizo el report, no tengo entorno de la impresora para configurar

ACM

AMIGO SI USAS UNA IMPRESORA MATRICIAL YO UTILIZO RAWPRINT Q ES UNA LIBRERIA PARA ESAS IMPRESORA, DONDE DEFINES LA LONGUITUD DE PAGINA Y TIPOS DE LETRAS, BUSCA EN LA WEB ES GRATUITA Y VIENE CON EJEMPLO PARA VER COMO FUNCIONA, A MI ME SOLUCIONO EL PROBLEMA SOBRE TODOS CON LOS FORMATOS DE PAGINAS,

ALBERTO MANCUSO

OTRA OPCION PUEDE SER ESTA, PEDIR POR LA IMPRE Y SELECCIONAR EL FORMATO DE PAGINA , UN EJE

Wprn = GETPRINTER()
If Empty(Wprn)
MessageBox('Impresion Cancelada!!!',16,'Veter 1.5')
set relation to
close databases
release window reha
return

EndIf
ontP = 1
SET PRINTER To Name "&Wprn" FONT 'arial',9 STYLE "BT"
SET DEVICE TO PRINTER
SET CONSOLE OFF


function fac_impre
@Prow()+2,01 Say alltrim(vete)
@Prow(),70 Say alltrim(vete)
@Prow()+1,01 Say alltrim(dire)+" "+alltrim(tel)
@Prow(),70 Say alltrim(dire)+" "+alltrim(tel)
@Prow()+2,01 say "Cobro Cuota Mensual Socio"
@Prow(),70 say "Cobro Cuota Mensual Socio"
@Prow()+1,01 say "Socio Nro:"+(str(fcli_nro,5,0)) FONT "COURIER NEW" ,8
@Prow(),70 say "Socio Nro:"+(str(fcli_nro,5,0)) FONT "COURIER NEW" ,8
@Prow()+1,01 say fcli_nom FONT "COURIER NEW" ,8
@Prow(),70 say fcli_nom FONT "COURIER NEW" ,8
@Prow()+1,01 say fcli_dom FONT "COURIER NEW" ,8
@Prow(),70 say fcli_dom FONT "COURIER NEW" ,8
@Prow()+1,01 say fOBS FONT "COURIER NEW" ,8
@Prow(),70 say fOBS FONT "COURIER NEW" ,8

@Prow()+1,01 say "Mes: "+str(fmm,2)+ "/ "+str(faa,4)
@Prow(),70 say "Mes: "+str(fmm,2)+ "/ "+str(faa,4)
@Prow()+1,01 say "Importe : $ "+transform(fcli_imp,"9999.99")
@Prow(),70 say "Importe : $ "+transform(fcli_imp,"9999.99")
@Prow()+1,01 say "Recibo Nro: "+transfor(ffac_nro,"@L 99999999")+" Original "
@Prow(),70 say "Recibo Nro: "+transfor(ffac_nro,"@L 99999999")+" Duplicado "

@Prow()+1,01 say "--------------------------------------------"
@Prow(),70 say "--------------------------------------------"

if prow() >=55
=CABE()
endif
return

FUNCTION CABE
@0,0 say ""
RETURN

ESTA RUTINA YO LA USO PARA IMPRIMIR UNOS RECIBOS DE SOCIOS EN UNA IMPRESORA LX 300 DONDE SELECCIONO EL TAMAÑO DE HOJA ANTES DE IMPRIMIR

ESPERO AYUDAR EN ALGO