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)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to