unit1.pas

suite component ace report

unit Unit1;

interface

uses
{$ifdef WIN32}
  Windows,
{$ELSE}
WINTYPES,WINPROCS,
{$ENDIF}
   Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  SctCtrl, SctVar, AcePage, SctRep, ExtCtrls, Db, DBTables, StdCtrls,
  Buttons, SctBtn;

type
  TForm1 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    SctReport1: TSctReport;
    ReportPage: TSctGrouppage;
    ReportHeaderBand: TSctBand;
    ReportHeaderBandlevel: TSctLevel;
    PageHeaderBand: TSctBand;
    PageHeaderBandlevel: TSctLevel;
    DetailBand: TSctBand;
    DetailBandlevel: TSctLevel;
    PageFooterBand: TSctBand;
    PageFooterBandlevel: TSctLevel;
    ReportFooterBand: TSctBand;
    ReportFooterBandlevel: TSctLevel;
    svarDateTime: TSctDateTimeVar;
    svarPage: TSctPageVar;
    DataSourceGuide: TSctDataSourceGuide;
    table1Species_No: TSctDBVar;
    table1Category: TSctDBVar;
    table1Common_Name: TSctDBVar;
    table1Species_Name: TSctDBVar;
    table1Length__cm_: TSctDBVar;
    table1Length_In: TSctDBVar;
    table1Notes: TSctDBVar;
    table1Graphic: TSctDBVar;
    MemoLabel: TSctvarlabel;
    ContinuedLabel: TSctTextLabel;
    SctReportButton1: TSctReportButton;
    Sctvarlabel1: TSctvarlabel;
    Sctvarlabel2: TSctvarlabel;
    procedure ContinuedLabelLabelPrintWhen(lb: TSctLabel;
      var Result: Boolean);
    procedure DetailBandBeforePrint(Band: TSctBand);
    procedure ReportPageNewPage(Page: TSctGrouppage; AceOutput: TObject;
      PageNum: Longint);
  private
    { Private declarations }
    PrintContinued: Boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}


procedure TForm1.ContinuedLabelLabelPrintWhen(lb: TSctLabel;
  var Result: Boolean);
begin
  Result := PrintContinued;
end;

procedure TForm1.DetailBandBeforePrint(Band: TSctBand);
begin
  PrintContinued := False;
end;

procedure TForm1.ReportPageNewPage(Page: TSctGrouppage; AceOutput: TObject;
  PageNum: Longint);
begin
  if Not DetailBand.FirstPass then
  begin
    ContinuedLabel.EndPrint := False;
    PrintContinued := True;
  end;

end;

end.