MARGINS: Changing dynamically?

rbuser

Hi Everyone,

I have the request to print document with pages from 2 on with different
margin settings, eq. page 1 has top margin 1.5mm, 2nd and others have margin
3mm (also some other margins can be modified, the problem remains). How can
that be achieved?

I tried all events changing margin values, but nothing worked. I made
following code:

procedure TForm_DocumentRB.ReportDocumentPPageRequest(Sender,
aPageRequest: TObject);
begin
if ReportDocumentP.CurrentPage > 1 then begin
ReportDocumentP.PrinterSetup.MarginLeft :=
qryFormat.FieldByName('margin_left2').AsInteger;
ReportDocumentP.PrinterSetup.MarginTop :=
qryFormat.FieldByName('margin_top2').AsInteger;
ReportDocumentP.PrinterSetup.MarginBottom :=
qryFormat.FieldByName('margin_bottom2').AsInteger;
end;
end;

No matter of event used, it never works, margins do not change on other
pages. Is there any solution?
I am using Delphi 5 and RB Pro version 6.

TIA,

--
Davor Pleskina
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
davor@pleskina.com www.pleskina.com
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
davor.pleskina@vip.hr; davor.pleskina@ri.tel.hr
ICQ#: 38632789

Programmers don't die;
they just GOSUB without RETURN...

rbuser

Hi,

you could use two subreports with the different margins.

enjoy,
Ron.

rbuser

Hi,

I have the same request as Davor Pleskina. I would like to use a wider
top margin on pages 2 to end than on page 1.

I do not understand, how I could use subreports in order to change the
top margin dynamically.
Maybe there is also a better solution in the current ReportBuilder version.

Best regards,
David


Am 10.07.2001 20:32, schrieb Ronald Eckersberger (TeamDM):

nicocizik

Hi David,

Try simply adjusting the margin values in the OnStartPage event of the
report. The following code worked for me in a simple test.

procedure TForm1.ppReport1StartPage(Sender: TObject);
begin
if ppReport1.AbsolutePageNo > 1 then
ppReport1.PrinterSetup.MarginTop := 3
else
ppReport1.PrinterSetup.MarginTop := 1;

end;