Hi Randy

Follow is untested sample with crystal report using gtwvg may be
adapted to hbxtq
basically using  xbp instead wvg
Function MyCrystalViewer()
   LOCAL oCrystal := CREATEOBJECT( "CrystalRuntime.Application" )
   LOCAL oReport  := oCrystal:OpenReport( "PROVA.RPT" )
   LOCAL oDlg, oActvX
  oDlg := WvgDialog():New():Create( , ,  { 20,20 }, { 600,400 }, , .t. )
  oActvX:= WvgActiveXControl():New( oDlg:drawingArea )
  oActvX:CLSID := "CRViewer9.CRViewer"
  oActvX:create( , , {0,0}, oDlg:currentSize(), .t. )
  oActvX:ReportSource := oReport
  oActvX:Do( "ViewReport" )
  oActvX:resize := {||  oActvX:setPosAndSize( {0,0},
oDlg:currentSize(), .t. )  }
  do while .t.
     if inkey() == 27
        exit
     endif
  enddo
  oDlg:destroy()
  Return nil


as other possible soultion exaro is free report engine similar to
Jasper or Crystal Reports.
eXaro can be embedded any Qt application but you not have any wrapper
for harbour
http://qt-apps.org/content/show.php/eXaro?content=78870

As commercial application
Fast report for harbour at http://www.paritetsoft.ru/frh.htm





2010/3/31 Randy <ra...@palmas.com>:
> Hi all,
>
> Is there a report writer of choice for use with Harbour?
>
> Ideally, I would like a report writer that allows my app to create the print
> handle (ie. hPrintDC) and pass it to the report writer instead of the report
> writer creating its own so that I can combine multiple reports in a single
> print job.
>
> If you know of any report writers that work well with Harbour, please let me
> know.
>
> TIA.
>
> Regards,
> Randy.
>


-- 
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