p_print.pas

来自「图书出版行业 对于图书样稿/清样/样书/成书的质检环节控制」· PAS 代码 · 共 61 行

unit p_print;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, RpCon, RpConDS, RpDefine, RpRave, ExtCtrls, QuickRpt,
  QRCtrls, QRPrntr, Buttons, StdCtrls;

type
  TF_print = class(TForm)
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    QRPreview1: TQRPreview;
    Button1: TButton;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormHide(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_print: TF_print;

implementation

uses p_main;

{$R *.dfm}




procedure TF_print.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure TF_print.SpeedButton2Click(Sender: TObject);
begin
QRPreview1.QRPrinter.Print;
end;


procedure TF_print.Button1Click(Sender: TObject);
begin
QRPreview1.QRPrinter.PrintSetup;
end;

procedure TF_print.FormHide(Sender: TObject);
begin
     ANiMateWindow(Handle,300,AW_CENTER+AW_SLIDE+AW_HIDE);
     QrPreview1.QRPrinter:=nil;//短开欲览连接
end;

end.