In xharbour ng has been posted follow example but i not have crystal report
9, can samebody try in harbour?
#include "hbxml.ch"
#include "vt.ch"
function main()
// *********************
// FUNCTION MAIN( cRPT )
// *********************
local oCrystal := CreateObject( "CrystalRuntime.Application" )
local oReport := oCrystal:OpenReport("MAILING.RPT") // was
( crpt)
local oCrViewer:= CreateObject("CrViewer9.CrViewer")
oReport:DiscardSavedData()
oReport:ReadRecords()
oCrViewer:reportsource(oReport)
oCrViewer:ViewReport()
//oReport:Printout(.t.) //<-Shows print dialong but nothing print.
wait
RETURN NIL
--
Massimo Belgrano
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
