Alguien se acuerda como setear con Clipper

[Vladimir Zorrilla]

Amigos
Alguien se acuerda como setear con Clipper
el tamanno de pagina en cm para impreison con DOS

solo se letra condensada

oPrn:command("27,15")

reo que es con esto pero no se que
representas los numeros
oPrn:command("27,67,66")


if UPPE(curdir())="CPSADUAN"
qfor:=subs(_vg("A20_147"),1,3)
do case
case qfor$"NEM"
oPrn:command("27,67,66")
case qfor$"DS1,DS2,DF1,DF2,DF3"
oPrn:command("27,67,72")
case qfor$"C07"
oPrn:command("27,67,70")
otherwise
oPrn:command("27,67,84")
endcase
else
oPrn:command("27,67,70")
if valtype(SALTOLINE)="U" //uppe(curdir())="CPSCLIE"
//msgalert("seteando todo a 1/2 linea")
else
oPrn:command("27,65,"+SALTOLINE) //5
endif

Gracias

endif

[surGom]

Mirá yo lo hago de esta forma

oPrn:=TDosPrn():New(cImpdos)
oPrn:command("27,67,51") //aquí le doy el largo de página que es de 21.5 cm

y luego el tratamiento es igual que siempre
si hay letra condensada

oPrn:Saycmp()
Luis

[surGom]

AH perdón con 51 le doy el largo de página

Luis