Home Subreports
New Blog Posts: Merging Reports - Part 1 and Part 2

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

edited March 2003 in Subreports
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

Comments

  • edited March 2003
    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


  • edited March 2003
    Can you send me the example ?

    Thanks in advance.

    Massimo.


    "Jim Bennett (Digital Metaphors)" wrote
    last
    well
  • edited March 2003
    The demo has been sent:)


    Cheers,

    Jim Bennett
    Digital Metaphors


This discussion has been closed.