por q no funciona harcopy

[Vladimir Zorrilla]

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

[Antonio Linares]

Vladimir,

Prueba a comentar estas dos lineas:

::Refresh()
SysRefresh() // Let Windows process