unit1.pas

suite component ace report

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  SctCtrl, SctVar, SctRep, AcePage, Db, DBTables, ExtCtrls, StdCtrls,
  Buttons, SctBtn;

type
  TForm1 = class(TForm)
    SctReport1: TSctReport;
    ReportPage: TSctGrouppage;
    ReportHeaderBand: TSctBand;
    ReportHeaderBandlevel: TSctLevel;
    PageHeaderBand: TSctBand;
    PageHeaderBandlevel: TSctLevel;
    DetailBand: TSctBand;
    DetailBandlevel: TSctLevel;
    PageFooterBand: TSctBand;
    PageFooterBandlevel: TSctLevel;
    ReportFooterBand: TSctBand;
    ReportFooterBandlevel: TSctLevel;
    DataSource1: TDataSource;
    Table1: TTable;
    svarDateTime: TSctDateTimeVar;
    svarPage: TSctPageVar;
    DataSourceGuide: TSctDataSourceGuide;
    OverlayBand: TSctOverlayBand;
    OverlayBandLevel: TSctLevel;
    table1LAST_NAMEVar: TSctDBVar;
    table1FIRST_NAMEVar: TSctDBVar;
    table1ACCT_NBRVar: TSctDBVar;
    table1ADDRESS_1Var: TSctDBVar;
    table1CITYVar: TSctDBVar;
    table1STATEVar: TSctDBVar;
    table1ZIPVar: TSctDBVar;
    table1TELEPHONEVar: TSctDBVar;
    table1DATE_OPENVar: TSctDBVar;
    table1SS_NUMBERVar: TSctDBVar;
    table1PICTUREVar: TSctDBVar;
    table1BIRTH_DATEVar: TSctDBVar;
    table1RISK_LEVELVar: TSctDBVar;
    table1OCCUPATIONVar: TSctDBVar;
    table1OBJECTIVESVar: TSctDBVar;
    table1INTERESTSVar: TSctDBVar;
    table1IMAGEVar: TSctDBVar;
    varlabel: TSctvarlabel;
    varlabel1: TSctvarlabel;
    Sctvarlabel1: TSctvarlabel;
    Sctvarlabel2: TSctvarlabel;
    SctReportButton1: TSctReportButton;
    procedure DoBackSide(Band: TSctBand);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.DoBackSide(Band: TSctBand);
begin
  TSctPage(Band.Parent).PrintTo.NewPage;
end;

end.