ufrmcellmarrowprint.pas

来自「一个简单得医院图像管理系统」· PAS 代码 · 共 61 行

unit ufrmCellMarrowPrint;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, CELL50Lib_TLB, ComCtrls, ToolWin;

type
  TfrmCellMarrowPrint = class(TForm)
    Cell1: TCell;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    procedure ToolButton1Click(Sender: TObject);
  private

  public
    procedure LoadTemplet;virtual;//加载模板
    procedure PrintReport;virtual; //打印报告
    procedure PriviewReport;virtual;//预览报告
    procedure SaveTemplet;virtual;//保存模板


  end;

var
  frmCellMarrowPrint: TfrmCellMarrowPrint;

implementation

{$R *.dfm}

{ TfrmCellMarrowPrint }

procedure TfrmCellMarrowPrint.LoadTemplet;
begin
  Cell1.OpenFile('CellTest.cll','');
end;

procedure TfrmCellMarrowPrint.PrintReport;
begin
  Cell1.PrintSheet(0,Cell1.GetCurSheet);
end;

procedure TfrmCellMarrowPrint.PriviewReport;
begin
  Cell1.PrintPreview(0,Cell1.GetCurSheet);
end;

procedure TfrmCellMarrowPrint.SaveTemplet;
begin
  Cell1.SaveFile('CellTest.cll',0);
end;

procedure TfrmCellMarrowPrint.ToolButton1Click(Sender: TObject);
begin
  Cell1.PrintSheet(1,Cell1.GetCurSheet);
end;

end.