printview.pas

来自「很不错的软件请使用」· PAS 代码 · 共 65 行

unit printView;

interface

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

type
  TPrintV = class(Tform)
    QuickRep1: TQuickRep;
    DetailBand1: TQRBand;
    QRShape12: TQRShape;
    QRShape13: TQRShape;
    QRShape14: TQRShape;
    QRShape15: TQRShape;
    PreviewName: TQRLabel;
    PreviewId: TQRLabel;
    PreviewHome: TQRLabel;
    PreviewAddress: TQRLabel;
    PreviewCompany: TQRLabel;
    MemoString: TQRLabel;
    PrintName: TQRDBText;
    PrintId: TQRDBText;
    PrintHome: TQRDBText;
    PrintAddress: TQRDBText;
    PrintCompany: TQRDBText;
    PrintTime: TQRDBText;
    PreviewSex: TQRLabel;
    PrintSex: TQRDBText;
    PreviewTime: TQRLabel;
    PrintBh: TQRDBText;
    QRShape16: TQRShape;
    QRShape17: TQRShape;
    QRShape18: TQRShape;
    ColumnHeaderBand1: TQRBand;
    PreviewBh: TQRLabel;
    TitleName: TQRLabel;
    procedure onpreview(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PrintV: TPrintV;
implementation

uses mypreview_unit;
{$R *.dfm}


procedure TPrintV.onpreview(Sender: TObject);
begin
 with TMyPreview.Create(Application) do
 begin
  QRPreview1.QRPrinter := quickrep1.QRPrinter;
  CurRep := quickrep1;
  Show;
 end;
end;

end.