¿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
Saludos
Quique
Quique
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour ¿Como forzar que la impresión sea en página vertical?
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...
Cesar Cortes Cruz
SysCtrl Software
Mexico
' Sin +- FWH es mejor "
SysCtrl Software
Mexico
' Sin +- FWH es mejor "
No funcionó, lo puse justo antes del activate pero imprime horizontal 
Saludos
Quique
Quique
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
Cesar Cortes Cruz
SysCtrl Software
Mexico
' Sin +- FWH es mejor "
SysCtrl Software
Mexico
' Sin +- FWH es mejor "
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 )
Saludos
Quique
Quique
creo que debes ponerlos despues: del
report oRpt
oRpt:oDevice:setPortrait()
Cesar Cortes Cruz
SysCtrl Software
Mexico
' Sin +- FWH es mejor "
SysCtrl Software
Mexico
' Sin +- FWH es mejor "
Sigue sin funcionar, tampoco fue ahí
Saludos
Quique
Quique
quique wrote:¿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
manuelmercado at prodigy dot net dot mx
perfecto, gracias a los dos por su tiempo 
Saludos
Quique
Quique