using report templates

rbuser

We have a number of reports, mostly with different layout but all of
which we want to have a company and client logos on. Is it possible to
use some kind of template report so the logoing could be done in one
place and would be 'inherited' by al the reports?

If there is some url / examples which show something like this, I would
appreciate a pointer towards them.

Thanks a lot,

Tom.

nicocizik

Hi Tom,

I would recommend creating a small template contianing all the static header
information then loading it into a dynamically created subreport on each one
of your existing templates when they are viewed. You will need to use the
OnLoadEnd template event to create the subreport and load the template. See
the following article on the template events and check out the following
example for more help.

http://www.digital-metaphors.com/tips/DynamicallyLoadedSubreportForHeader.zip

----------------------------------------------
Tech Tip: Using Template Events
----------------------------------------------

The Report.Template object has several events that can be used for
customizing what happens when a report is loaded or saved:

- OnLoadStart
- OnLoadEnd
- OnNew
- OnSaveStart
- OnSaveEnd


The OnLoadEnd and OnNew events are often used to perform actions related
to report and data initialization.

The OnSaveEnd event is often used to save additional descriptive
("meta") data to the database each time the report is saved.

Example:

The Report.Template events are public and therefore must be assigned at
run-time.


1. In the private section of your form declaration you can declare an
event-handler method:

TForm = class(TForm)
private
procedure myTemplateOnLoadEndEvent(Sender: TObject);

public

end;


2. In the Form.OnCreate event, you can assign the event-handler to the
event:

procedure TForm1.FormCreate(Sender: TObject);
begin

ppReport1.Template.OnLoadEnd := myTemplateOnLoadEndEvent;

end;


3. Implement the event-handler method:

procedure TForm1.myTemplateOnLoadEndEvent(Sender: TObject);
begin

{add code here to initial the report or data, etc. }
ppReport1.PrinterSetup.MarginTop := 0.5;

end;


--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com