frmpreviewdlg.pas

小票样式打印模板设计,和管家婆的pos收银系统小票样式设计差不多

unit FrmPreviewDlg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls,PosControl;

type
  TFrmPreview = class(TForm)
    ScrollBox1: TScrollBox;
    mePage: TMemo;
    bBtnPrint: TBitBtn;
    bBtnClose: TBitBtn;
    imgPage: TImage;
    procedure bBtnPrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    PageControl:TPosReport;
  end;

var
  FrmPreview: TFrmPreview;

implementation
{$R *.dfm}

procedure TFrmPreview.bBtnPrintClick(Sender: TObject);
begin
  if assigned(PageControl) then
  begin
    try
      Screen.Cursor:=crHourGlass;
      PageControl.Print;
    except
      on E:Exception do
        Raise E;
    end;
    Screen.Cursor:=crDefault;
  end;
end;

end.