Is there any way of running a macro through webfocus code when generating reports in excel format?
I have created a .mht file which includes a statement to directly print the report output: "ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True" and this .mht file is referred to in my ON TABLE PCHOLD statement. But the result is: when i run my report, i do get the output in excel format and then when i go to Tools->Macro->Macros and then run the macro(the macro does appear), the output is getting printed. Is there any way such that when my excel output gets generated, at the same time, the macro is run ?

This message has been edited. Last edited by: Kerry,

CD,

You will need to identify a suitable event to use. Not sure what it might be. Have you tried an Excel forum?

CD,

Are you wanting your .mht to auto-run the macro when the report opens in Excel so that it brings up the print dialogue window to print the spreadsheet?

Dennis

Yes, this is something similar to what I want. The .mht should auto-run the macro when the report opens in Excel so that it automatically gives the print out and doesnt even bring up the print dialogue window.

Actually I am doing something like this right now. I saved a .mht in baseapp on the Reporting Server. I wrote a macro to do some formatting, turning filters on, freeze panes, etc. Just name the macro Auto_Open. Seems to work fine.

This may help.

http://www.informationbuilders.com/support/developers/macros.html

It worked for me.

Joe

running a macro in excel just to get the report printed is a strange way to work.
I would give the report directly into PDF, no user can influence the layout anymore.

Is there a setting within Excel which automatically sets the column width to a minimum based on the contents, similar to double-clicking the column dividers? Something other then an macro which is close to automatic but not directly automatic unless we do some work and implement that on the users machines. Having the users change a setting within Excel is acceptable. OK, maybe a macro which we can, through WebFOCUS PCHOLD, automatically execute.

This basic Excel VBA routine selects all cells in the worksheet and "commands" them to auto-fit their contents:

Sub ColumnWidth()
' Keyboard Shortcut: Ctrl+Shift+W
    Cells.Select
    Selection.Columns.AutoFit
End Sub

You could make it part of a file that can be later used as a template, or attempt to use the technique outlined in ibidevelop's reference above.

The routine can of course be improved to capture the current Worksheet and Cell/Range selected before any changes are made, and re-select them after the columns have been adjusted.

The "manual" steps to make that happen in Excel are:

1. Select all cells (by clicking the empty area where row and column labels intersect)
2. Choose the following options from the menu: Format -> Column -> Autofit Selection

That's what I and some business users at my site do. As we are still using WebFOCUS 5.3.4 the use of Excel Templates is not a feasible option at the time.