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