Ralph, txtpreview !

[AOKISANTOS]

Ralphi, utilizando a classe txtpreview me ocorre o seguinte erro :


SetMTxtPreview( .f., 5, 2, .f., .t. )

cFile := "TEST.PRN"
cPorta := "LPT1"

oPrn:= TDosPrn():New( cFile )

oPrn:StartPage()
nlin:=1
for nCont := 1 to 10
oPrn:Say( ++nLin, 00, "teste de impressao" )
oPrn:Say( ++nLin, 00, "Resumo de Mesas " )
next
oPrn:EndPage()
oPrn:End()
TxtPreview( cFile, "titulo", .t. , , ,,, , .t. ) <----- OK

TxtPreview( cFile, "titulo", .t. , , ,oPrn,, , .t. ) <----- ERROR



Error:

Application
===========
Path and name: C:\BASE\sgs.exe (32 bits)
Size: 3,805,696 bytes
Time from start: 0 hours 0 mins 4 secs
Error occurred at: 11/09/2007, 15:38:06
Error description: Error BASE/1005 Message not found: TDOSPRN:_CNEGON

Stack Calls
===========
Called from: => TDOSPRN:ERROR(175)
Called from: tobject.prg => (b)HBOBJECT:HBOBJECT(105)
Called from: => TDOSPRN:MSGNOTFOUND(0)
Called from: TDOSPRN.PRG => TDOSPRN:_CNEGON(167)
Called from: => VAMOS(449)
Called from: sgs.PRG => (b)PREPARAMENU(412)
Called from: MENU.PRG => TMENU:COMMAND(0)
Called from: window.prg => TWINDOW:COMMAND(934)
Called from: MDIFRAME.PRG => TMDIFRAME:COMMAND(0)
Called from: window.prg => TMDIFRAME:HANDLEEVENT(0)
Called from: window.prg => _FWH(3165)
Called from: => WINRUN(0)
Called from: window.prg => TMDIFRAME:ACTIVATE(883)
Called from: sgs.PRG => MAIN(278)