¿Como forzar que la impresión sea en página vertical?

[quique]

¿como puedo forzar en un reporte que la impresión sea en página vertical? o mejor dicho, que sea de acuerdo a la configuración de la impresora

[sysctrl2]

bueno con tprinter,

si tu no le indicas la forma de impresion

toma por default la configuracion de windows..

oPrn:SetPortrait() //imprime vertical
oPrn:SetLandscape() //horizontal.


saludos...

[quique]

No funcionó, lo puse justo antes del activate pero imprime horizontal

[sysctrl2]

PRINT oPrn NAME "Impresion de embarques" PREVIEW
oPrn:SetPage(1) //carta
oPrn:SetPortrait()
// oPrn:SetLandscape()

oPrn:setup()

DEFINE FONT oFnt1 NAME "THAHOMA" SIZE 0, -08 OF oPrn bold
page
oPrn:cmsay(1,1, "texto", oFnt1 )
endpage
endprint

[quique]

el problema es que usro REPORT

REPORT oRpt TITLE cTitle PREVIEW ;
HEADER "Fecha: " + DToC( Date() ) + ", Hora: " + Time() ;
FOOTER "Página: " + Str( oRpt:nPage, 3 ) FONT ::oWnd:oFont

COLUMN DATA ::aLines[ nRen ] SIZE 100

ENDREPORT

oRpt:bSkip = { || nRen++ }

oRpt:oDevice:setPortrait()
ACTIVATE REPORT oRpt WHILE nRen <= len( ::aLines )

[sysctrl2]

creo que debes ponerlos despues: del

report oRpt
oRpt:oDevice:setPortrait()

[quique]

Sigue sin funcionar, tampoco fue ahí

[mmercado]

¿como puedo forzar en un reporte que la impresión sea en página vertical? o mejor dicho, que sea de acuerdo a la configuración de la impresora

Hola Quique:

Prueba lo siguiente: oRpt:lAutoLand := .F.

Saludos.

Manuel Mercado

[quique]

perfecto, gracias a los dos por su tiempo