unit1.pas

suite component ace report

unit Unit1;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Buttons, SctBtn, SctCtrl, SctVar, SctRep, DB,
  DBTables, ExtCtrls;

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;
    table1LAST_NAME: TSctDBVar;
    table1FIRST_NAME: TSctDBVar;
    table1ACCT_NBR: TSctDBVar;
    table1ADDRESS_1: TSctDBVar;
    table1CITY: TSctDBVar;
    table1STATE: TSctDBVar;
    table1ZIP: TSctDBVar;
    table1TELEPHONE: TSctDBVar;
    table1DATE_OPEN: TSctDBVar;
    table1SS_NUMBER: TSctDBVar;
    table1PICTURE: TSctDBVar;
    table1BIRTH_DATE: TSctDBVar;
    table1RISK_LEVEL: TSctDBVar;
    table1OCCUPATION: TSctDBVar;
    table1OBJECTIVES: TSctDBVar;
    table1INTERESTS: TSctDBVar;
    table1IMAGE: TSctDBVar;
    varlabel: TSctvarlabel;
    TextLabel: TSctTextLabel;
    varlabel1: TSctvarlabel;
    TextLabel1: TSctTextLabel;
    SctTextLabel1: TSctTextLabel;
    SctReportButton1: TSctReportButton;
    procedure ReportHeaderBandAfterPrint(Band: TSctBand);
    procedure SctReport1AfterPrint(Report: TSctReport);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

uses aceout,acesetup,psetup;

procedure TForm1.ReportHeaderBandAfterPrint(Band: TSctBand);
begin
  with TSctGroupPage(SctReport1.Page) do
  begin
    PageSetup.Orientation := poPortrait;
    PageSetup.LoadSettings;
    PrintTo.AcePrinterSetup.Assign(PageSetup.AcePrinterSetup);
  end;
end;

procedure TForm1.SctReport1AfterPrint(Report: TSctReport);
begin
  {Need to be sure that Orientation is not left over as Portrait
   in case we ran it multiple times}
  Report.Page.PageSetup.Orientation := poLandscape;
end;

end.