Error description: Error FiveWin/3 Cannot create Dialog Box:
Resource: PREVIEW_PROC
I've tried code right out of BROWSE.PRG in SOURCE -
What am I missing?
- Code: Select all Expand view
STATIC PROCEDURE lookup_print( oLbx )
local oRpt
local n
Local nRecnum:=RECNO()
local cAlias := If( oLbx != nil, oLbx:cAlias, Alias() )
REPORT oRpt TITLE "Report: " + cAlias ;
HEADER "Date: " + DToC( Date() ) + ", Time: " + Time() ;
FOOTER "Page: " + Str( oRpt:nPage, 3 ) ;
PREVIEW
if Empty( oRpt ) .or. oRpt:oDevice:hDC == 0
return nil
endif
for n = 1 to FCount()
oRpt:AddColumn( TrColumn():New( { FInfo1( cAlias, n ) },, ;
{ FInfo2( cAlias, n ) },,,,,,,,,, oRpt ) )
next
ENDREPORT
ACTIVATE REPORT oRpt
DBGOTO(nRECNUM)
return nil