printmain.~pas

档案信息管理系统

//打印查询记录窗体
unit printMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QuickRpt, ExtCtrls, QRCtrls;

type
  TprintMainForm = class(TForm)
    QuickRep1: TQuickRep;
    ColumnHeaderBand1: TQRBand;
    DetailBand1: TQRBand;
    PageFooterBand1: TQRBand;
    TitleBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    Archno: TQRDBText;
    Name: TQRDBText;
    gender: TQRDBText;
    Birthday: TQRDBText;
    Degree: TQRDBText;
    Department: TQRDBText;
    Posistion: TQRDBText;
    JobStart: TQRDBText;
    JobEnd: TQRDBText;
    TelNO: TQRDBText;
    Address: TQRDBText;
    qrlbTitle: TQRLabel;
    QRSysData1: TQRSysData;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  printMainForm: TprintMainForm;

implementation
uses ArchDataModule,PrintSetup;

{$R *.dfm}

procedure TprintMainForm.FormShow(Sender: TObject);
begin
///////////////////////////////////
//从打印设置窗体中获得字体的类型
///////////////////////////////////

     printMainForm.Font :=printSetupForm.ContentFont;
     printMainForm.qrlbTitle.Font :=printSetupForm.TitleFont;
     printMainForm.qrlbTitle.Caption :=PrintSetupForm.PrintTitle;
     PrintMainForm.QuickRep1.Preview;

end;

end.