por q no funciona harcopy
Posted: Wed Jan 28, 2009 1:18 am
Amigos modifique el metodo hardcopy para sacar vista previa sale pagina en blanco saben por que sucede esto
METHOD HardCopy( nScale, lUser , cOrientation , cMode ) CLASS TWindow
local oPrn
DEFAULT lUser := .t.
// if lUser
// PRINT oPrn NAME ::cTitle FROM USER
// else
// PRINT oPrn NAME ::cTitle
// endif
IF cMODE="DIRECTO"
PRINT oPrn NAME ::cTitle
ELSE
PRINT oPrn NAME ::cTitle PREVIEW
ENDIF
IF cOrientation="VERTICAL"
oPrn:SetPortrait() //Vertical
ELSE
oPrn:SetLandScape() //Horizontal
ENDIF
PAGE
::Refresh()
SysRefresh() // Let Windows process
::Print( oPrn, 0, 0, nScale )
ENDPAGE
ENDPRINT
return nil
Mil gracias
METHOD HardCopy( nScale, lUser , cOrientation , cMode ) CLASS TWindow
local oPrn
DEFAULT lUser := .t.
// if lUser
// PRINT oPrn NAME ::cTitle FROM USER
// else
// PRINT oPrn NAME ::cTitle
// endif
IF cMODE="DIRECTO"
PRINT oPrn NAME ::cTitle
ELSE
PRINT oPrn NAME ::cTitle PREVIEW
ENDIF
IF cOrientation="VERTICAL"
oPrn:SetPortrait() //Vertical
ELSE
oPrn:SetLandScape() //Horizontal
ENDIF
PAGE
::Refresh()
SysRefresh() // Let Windows process
::Print( oPrn, 0, 0, nScale )
ENDPAGE
ENDPRINT
return nil
Mil gracias