main.pas

即打即停,控件打印机,适合控制打印机的用户

unit Main;

interface

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

type
  TfPrinter_Test = class(TForm)
    Memo1: TMemo;
    Panel1: TPanel;
    cbPrinters: TComboBox;
    bnPrint: TButton;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure bnPrintClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fPrinter_Test: TfPrinter_Test;

implementation

uses SplPrint;

{$R *.DFM}

procedure TfPrinter_Test.FormCreate(Sender: TObject);
var
  DefaultPrinterId: integer;
begin
  EnumPrt(cbPrinters.Items, DefaultPrinterId);
  cbPrinters.ItemIndex := DefaultPrinterId;
end;

procedure TfPrinter_Test.bnPrintClick(Sender: TObject);
begin
  StartPrint(cbPrinters.Items[cbPrinters.ItemIndex], 'test doc', '', 1);
  try
    ToPrnFrmC(Memo1.Text, []);
  finally
    EndPrint();
  end;
end;

procedure TfPrinter_Test.Button1Click(Sender: TObject);
begin
   StartPrint(cbPrinters.Items[cbPrinters.ItemIndex], '', '', 3);
  try
    ToPrnFrm(Memo1.Text, []);
  finally
    EndPrint();
  end;
end;

end.