Repost - Detail lines, boxes and labels aren't printed in the second page of an invoice.

rbuser

To Digital-metaphors support.

I have post this request at 28 January (44 days ago), but at
this moment I have not any solution.

After some email to your support service, from February 18 I have not
receive any answer to my last email.

Can you answer to this post and send me if there are some problems to
manage my request ?

Thanks in advance.

Massimo.

----- Original Message -----
From: "Massimo Montrasio"
Newsgroups: digital-metaphors.public.reportbuilder.subreports
Sent: Tuesday, January 28, 2003 11:27 AM
Subject: Detail lines, boxes and labels aren't printed in the second page of
an invoice.


with
the

digitalmetaphors

Sorry for not getting you a solution earlier. I just created this code in
the group footer to expand it down the page to draw the lines from the last
detail to the top of the footer. I used the example demo 71 template that
you sent previously: Here I used a TppLine (ppLine4) in the group footer
band and coded this event on the detail band. Let me know if this is what
you want. I can send you the complete example form if you would like as well
to include it in the main reports demo project from which the demo (yours
and mine) is based.

uses
ppTypes, ppUtils;

procedure Tfrm0071.ppReport1DetailBand1AfterPrint(Sender: TObject);
var
liTop: Integer;
ldTopInReportUnits: Double;
liPageHeight: Integer;
ldPageHeightInReportUnits: Double;
ldBottomThreshold: Double;
begin

liTop := ppReport1.Engine.PrintPosRect.Bottom;

ldTopInReportUnits := ppFromMMThousandths(liTop, ppReport1.Units,
pprtVertical, ppReport1.Printer);

liPageHeight := ppReport1.PrinterSetup.PageDef.mmPrintableHeight;

{convert microns to report units}
ldPageHeightInReportUnits := ppFromMMThousandths(liPageHeight,
ppReport1.Units, pprtVertical, ppReport1.Printer);

ldBottomThreshold := ldPageHeightInReportUnits -
ppReport1FooterBand1.Height;

ppGroupFooterBand1.Height := ldBottomThreshold - ldTopInReportUnits;

ppLine4.Height := ppGroupFooterBand1.Height;

end;


Cheers,

Jim Bennett
Digital Metaphors

rbuser

Can you send me the example ?

Thanks in advance.

Massimo.


"Jim Bennett (Digital Metaphors)" wrote
last
well

digitalmetaphors

The demo has been sent:)


Cheers,

Jim Bennett
Digital Metaphors