FiveTech Support Forums

My reports are all hand coded with tPrinter class. When I preview a report, the default display shows an Excel icon on the button bar. However, it does nothing.

1). Is there a way to activate the button so it sends the report to Excel ? ( I thought it used to work ).

2). If not, how do we remove the icon on system startup so it never shows, without having to modify the tPreview class ?

Yes ... I have the latest copy of Excel installed ( Office 365 ) and it is a default app.

Thanks ...

ANYONE ????

Seems like many questions about FWH go unanswered now ....

TimStone wrote:ANYONE ????

Seems like many questions about FWH go unanswered now ....

TimStone wrote:ANYONE ????

Seems like many questions about FWH go unanswered now ....

Excel button works when
1) Report is generated from xbrowse, using oBrw:ToExcel()
2) Report is generated using TReport class, if oReport:bInit is assigned with a codeblock, typically { || dbgotop() }.
Or if the programmer provides his own custom oReport:bToExcel codeblock.
3) Report is generated using TPrinter class and the programmer provides his own custom oPrn:bToExcel codeblock

In all other cases and also if Excel is not installed, Excel button is diplayed as "DISABLED".

If a programmer chooses to have the buttonbar in a different way than is provided, he can substitute his own buttonbar globally with TReport():bButtonBar

Using option 3, can you provide an example of the custome codeblock ? Is there a sample ?

TimStone wrote:Using option 3, can you provide an example of the custome codeblock ? Is there a sample ?

#include "fivewin.ch"

//----------------------------------------------------------------------------//

function Main()

   local oPrn, oFont, nRow, nCol

   USE STATES NEW SHARED

   STATES->( StatesReport() )

   CLOSE STATES

return nil

//----------------------------------------------------------------------------//

static function StatesReport()

   local oPrn, oFont, nRow

   GO TOP

   PRINT oPrn PREVIEW
   oPrn:bToExcel  := { || ( Alias() )->( StatesToExcel() ) }

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-10 OF oPrn

   PAGE
   nRow  := 1
   do while !Eof()

      @ nRow, 5.0 PRINT TO oPrn TEXT FIELD->CODE SIZE  1, 0.4 CM FONT oFont
      @ nRow, 6.0 PRINT TO oPrn TEXT FIELD->NAME SIZE 10, 0.4 CM FONT oFont

      nRow  += 0.5

      SKIP
   enddo

   ENDPAGE
   ENDPRINT

   RELEASE FONT oFont

   GO TOP

return nil

//----------------------------------------------------------------------------//

static function StatesToExcel()

   local oExcel, oBook, oSheet, nRow

   oExcel   := ExcelObj()
   oExcel:ScreenUpdating := .f.
   oBook    := oExcel:WorkBooks:Add()
   oSheet   := oExcel:ActiveSheet

   GO TOP
   nRow  := 1
   do while !eof()
      oSheet:Cells( nRow, 1 ):Value := FIELD->CODE
      oSheet:Cells( nRow, 2 ):Value := FIELD->NAME
      nRow++
      SKIP
   enddo

   GO TOP

   oSheet:Columns( 1 ):AutoFit()
   oSheet:Columns( 2 ):AutoFit()

   oExcel:ScreenUpdating := .t.
   oExcel:Visible := .t.

return nil

//----------------------------------------------------------------------------//

nageswaragunupudi wrote:Excel button works when
1) Report is generated from xbrowse, using oBrw:ToExcel()
2) Report is generated using TReport class, if oReport:bInit is assigned with a codeblock, typically { || dbgotop() }.
Or if the programmer provides his own custom oReport:bToExcel codeblock.
3) Report is generated using TPrinter class and the programmer provides his own custom oPrn:bToExcel codeblock

In all other cases and also if Excel is not installed, Excel button is diplayed as "DISABLED".

If a programmer chooses to have the buttonbar in a different way than is provided, he can substitute his own buttonbar globally with TReport():bButtonBar

You need to make the report re-entrant.
Depends on how you program.

Please try to make a small program and post here please.

nageswaragunupudi wrote:You need to make the report re-entrant.
Depends on how you program.

Please try to make a small program and post here please.

This is because you are using the same alias as xbrowse to run your report. Your report after execution, moves the record pointer of the same alias to end of file and when you get back to xbrowse, the dbf is at eof.

One way is to use oBrw:Report(...)

If you want to continue your program the same way, then you please do this:

1. nSaveRec := RECNO()
   DEFINE REPORT AND ACTIVATE
   after that
2. DBGOTO( nSaveRec )
   oBrw:Refresh()

OR

Run the report by opening the same DBF with a different Alias, run report and close that alias.

Thanks for your help Mr. Rao

the first option I'm already doing it like this and it gives me an error

The second option is complicated to implement by a single report since it has several set Relations .

Note that if I don't press the Excell button I have no problem when I return to xbrowse

Regards

Jose.