：急急急：怎样打收银小票

第二章打印相关的API函数Api函数名
函数说明适用范围 W16 W95 WNT
AddPrinterConnection 为当前用户建立与打印机的联系否是是
StartPagePrinter 开始打印机否是是
StartDoc 开始打印作业是是是
StartDocPrinter 开始打印作业否是是
AddPrintProvidor 加入一个打印机支持器否是是
AddForm 加入一个打印机窗体否是是
AddPort 加入一个打印机端口否是是
AddMonitor 加入一个打印机管理器否是是
ShellExecute 打开或打印指定文件否是是
ClosePrinter 关闭打开的打印机否是是
WritePrinter 向打印机输出数据否是是
AddPrinter 在打印机服务器上建立一个打印机否是是
SetAbortProc 设备打印作业的放弃函数否是是
SetPrinter 设置打印机信息否是是
SetPrinterData 设置打印机配置否是是
SetJob 设置打印作业信息否是是
ResetPrinter 设置打印数据类型和设备模式值否是是
DeletePrinterConnection 删除与打印机的连接否是是
DeletePrintProcessor 删除打印机处理器否是是
DeletePrinterDriver 删除打印机驱动程序否是是
DeletePrinter 删除打印机服务器上的打印机否是是
DeleteMonitor 删除打印机监视器否是是
DeletePrintProvidor 删除打印机提供者否是是
DeleteForm 删除打印机窗体层差否是是
AbortPrinter 删除打印机缓冲文件否是是
DeletePort 删除打印机端口否是是
AddJob 启动一个打印作业否是是
AdvancedDocumentProperties 进行打印机高级设置否是是
PrintDlg 建立打印文本对话框否是是
EnumPrintProcessors 枚举已安装的打印机处理器否是是
EnumPrinterDrivers 枚举已安装的打印机驱动程序否是是
EnumPorts 枚举可用打印机端口否是是
EnumPrintProcessorDatatypes 枚举打印机所支持的数据类型否是是
EnumForms 枚举所支持的打印机窗体否是是
AbortDoc 终止一项打印作业是是是
PrinterProperties 修改打印机属性否是是
AddPrintProcessor 将打印处理器复制到打印机服务器中否是是
AddPrinterDriver 将打印机驱动程序复制到打印机服务器中否是是
PrinterMessageBox 显示打印作业出错信息否是是
ConnectToPrinterDlg 显示浏览对话并连接网络打印机否是是
EndPagePrinter 结束打印页否是是
EndDoc 结束打印作业是是是
EndDocPrinter 结束打印作业否是是
StartPage 准备打印机接收数据是是是
WaitForPrinterChange 监测打印机或打印机服务器变化否是是
GetPrintProcessorDirectory 获取打印机驱动处理器路径否是是
GetPrinterDriver 获取打印机驱动程序信息否是是
GetPrinterDriverDirectory 获取打印机驱动程序路径否是是
GetPrinter 获取打印机信息否是是
GetPrinterData 获取打印机配置信息否是是
GetForm 获取打印机窗口信息否是是
EnumJobs 获取打印作业信息否是是
GetJob 获取打印作业信息否是是
OpenPrinter 获取指定打印机的句柄否是是
ReadPrinter 读打印机数据否是是
DocumentProperties 配置打印机设置否是是
ConfigurePort 配置打印机端口否是是

to airhorse(编程至尊宝)　:有相关例程吗，请传一份给我，我可以再给您加分。

我也特别想知道，还有
怎么在打印时间给打印机发ctr+c等命令

api没作过，你为什么一定要用api。

方法1、比较复杂的输出用Printer全局实例
方法2、对于纯字符行输出用AssignPrn的方法最简单（可结合Printer.Canvas来操作）
不推荐使用API，繁琐、难控制、易出错

其实也不必用，apidelphi的printers 已经封装的很好了？
对于每一个WINDOWS 应用程序开发者来说，打印功能的实现都是极为棘手的，因为要涉及到相当多的代码而且常常是相当的复杂，但是在DELPHI 中实现文本和图象的打印功能却是非常容易的。        1、文本的打印功能。DELPHI 中文本的打印功能就如同在DOS 中实现文本的打印功能一样
容易，需要做的一切只是取得打印参数，打开打印机，然后发送文本的每一行内容。在DELPHI 中提
供了一个PRINTERS 程序单元，它说明了一个TPRINTER 对象，封装了WINDOWS 打印工作和输出打印
机之间的接口，并提供常用的属性和方法，其中画布CANVAS 是一个非常有用的属性，它代表了当
前打印文件的表面，是以图形方式来工作的，整个的打印输出工作仅仅是将你打印的内容输出
到TPRINTER 的属性CANVAS 上，当全部的输出工作完成以后，打印对象（TPRINTER）把CANVAS 的属性
值送到打印机上去。
       下面举例来说明如何通过DELPHI 实现文本内容的打印。在DELPHI 中提供
了PRINTDIALOG、PRINTERSETUPDIALOG 两个控件允许我们进行打印机以及其他影响打印输出的选
择，此外最重要的一点是要想实现打印功能必须在编译程序以前将PRINTERS 加入到INTERFACE 或
者IMPLEMENTATION 的UESE 语句当中，因为PRINTER 单元包括ASSIGNPRN 和其他控制打印机的过程。
       首先在FORM 当中加入MEMO、PRINTDIALOG、PRINTERSETUPDIALOG 和两个BUTTON 控件，两个
BUTTON 的CAPTION 分别为“ 打印设置” 和“ 打印”。然后编写BUTTON 的事件驱动程序（代码在下
面），这个简单的例子中只要单击“ 打印” 按钮时便可以在打印机上输出文件0S2.TXT，打印事件的
清单如下：
implementation
uses printers;
{$R *.DFM}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
printersetupdialog1.execute;  //选择输出的打印机以及其他打印控制选项
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
var
lines:integer;
prntext:system.text;
//将PRNTEXT声名为一个在SYSTEM程序单元当中定义的文本文件
begin
   if printdialog1.execute then
   assignprn(prntext); //将PRNTEST分配给打印机
   rewrite(prntext); //调用REWRITE函数，为输出打开已分配的文件
   printer.canvas.font:=memo1.font;
   //把当前MEMO1的字体指定给打印对象的CANVAS的字体属性
   for lines:=0 to memo1.lines.count-1 do
   writeln(prntext,memo1.lines[lines]);
   //把MEMO的内容写到打印机对象
   system.close(prntext); //关闭打印文件
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.lines.loadfromfile('c:\dos\os2.txt');
//在FORM建立时读入C:\DOS\OS2.TXT文件
end;
end.
       2、图形的打印功能, 简单的图形打印功能也如打印文本一样的容易，只是告诉打印机对
象（TPRINTER）开始打印，把图形简单的复制到打印机上去，最后告诉打印机结束打印工作。
       举例说明：将上面的例子的MEMO 控件换成IMAGE 控件，再经过一些简单的修改，图形打印的
代码如下：
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if printdialog1.execute then begin
printer.begindoc;
printer.canvas.draw(0,0,image1.picture.graphic);
printer.enddoc;
end;
end;
       在这种情况下，使用的是打印机的分辨率，图形在页面的左上角开始打印输出，打出的图
形很小，在很多的情况下不能符合要求，但是打印机画布CANVAS 的STRETHDRAW 的方法，可以让我
们对图形进行灵活的处理，画布（CANVAS）的STRETCHDRAW 方法声名为：
procedure StretchDraw(const Rect: TRect; Graphic: TGraphic);
其中的RECT参数代表图形输出区域的大小，TRECT的类型声名为：
TRect = record
  case Integer of
    0: (Left, Top, Right, Bottom: Integer);
    1: (TopLeft, BottomRight: TPoint);
end;
       因此我们只要调整RECT 的大小及其在打印页面上的位置，进而达到自己满意的效果，下面
的代码是不断的放大图形，充满我们定义的矩形区域，并将其定位在打印机画布（CANVAS）的中央
进行输出。代码如下：
procedure TForm1.Button1Click(Sender: TObject);
VAR
strect:Trect;    //定义打印输出矩形框的大小
temhi,temwd:integer;
begin
if printdialog1.execute then
   begin
   temhi:=image1.picture.height;
   temwd:=image1.picture.width;
      while (temhi printer.pageheight div 2)and
//将图形放大到打印页面的1/2大小
         (temwd printer.pagewidth div 2)   do
  begin
  temhi:=temhi+temhi;
  temwd:=temwd+temwd;
  end;
         with strect do    //定义图形在页面上的中心位置输出
  begin
  left:=(printer.pagewidth -temwd) div 2;
  top:=(printer.pageheight-temhi) div 2;
  right:=left+temwd;
  bottom:=top+temhi;
  end;
   with printer do
   begin
   begindoc;
   canvas.stretchdraw(strect,image1.picture.graphic);
   //将放大的图形向打印机输出
   enddoc;
   end;
end;
end;
       以上代码在DELPHI2.0 上编译通过，通过这些小小的例子，相信大家对于在DELPHI 中打印
图形和文本有一定的了解，同样通过打印机的画布（CANVAS）属性也可以实现数据库表单的打印，
在这里不一一赘述，如果大家有兴趣不妨一试。
       作者地址：北方工业大学801 信箱李晓东邮编100041

调试易

：急急急：怎样打收银小票

解决方案 »