Delphi 简化了打印时用户所必须了解的大部分内容。用户可以很轻松地写出简单的打印程序来输出文本和位图化了的图像。
对于更为复杂的打印，仅需了解几个要领和技术，用户就可以实现任何类型的自定义打印。 
Delphi 的TPrinter对象封装了 Windows 的打印引擎，为程序员做了大量原本需要亲自做的工作。

本章告诉用户怎样用TPrinter来完成各种打印作业。用户可以看到一个简单的例子，
从中可以了解到创建高级打印程序的技术，而这些技术正是用户成为打印高手的起点。 

1  TPrinter 对象 
      Delphi 中的 TPrinter类可以方便地实现通常的打印任务。通过Printer 全局函数可以返回TPrinter类的一个对象，该对象在Printers单元中定义。

      可以把Printer 全局函数看作一个全局变量，并利用这个全局变量来与打印机进行打印操作。 
利用 Printer 来实现打印的一般过程如下： 
（1）调用BeginDoc 过程向打印机发送一个打印作业（此时还没有在打印机上开始打印）。 
（2）通过一个 Text 变量或调用 Canvas 对象方法建立打印输出。 
（3）调用 EndDoc过程结束当前的打印作业，该打印作业开始在打印机上打印。 
（4）如果出现问题，调用 Abort过程取消当前打印的作业。 

1.1  TPrinter对象的常用属性 
属性  　　作用 
Aborted  判断是否中止打印作业 
Canvas  画布属性 
Capabilities  当前打印机驱动设备的设置信息 
Copies  打印的份数 
Fonts  字体属性 
Handle  打印机句柄 
Orientation  纸张的方向：横向或纵向 
PageHeight  纸张的高度 
PageNumber  当前打印的页数 
PageWidth  纸张的宽度 
Printers  系统中安装的所有打印机 
Printing  标识是否正在进行一个打印作业 
PrinterIndex  打印机属性中当前打印机的索引值 

1.2  TPrinter对象的几个常用方法 :
方法  　　作用 
Abort  中止正在打印的打印作业 
BeginDoc  向打印机发送一个打印作业 
EndDoc  结束当前的打印作业并关闭文本文件变量 
GetPrinter  获得当前打印机序号 
NewPage  开始新的一页并增加 PageNumber属性 
Refresh  更新字体和打印机的属性

通常，在打印前要进行打印预览。在打印预览的时候，往往要将打印的结果在屏幕上显示出来。

这时，就要注意屏幕的分辨率和打印机的分辨率的差别了。读取屏幕信息可以通过全局变量 Screen 来实现，Screen 为TScreen类的一个实例，在创建工程的时候就自动创建了，并在程序开始运行时读取了屏幕的一些设置信息。 

值得注意的一点是 TPrinter.Canvas。TPrinter.Canvas 对于窗体来说像一个画布，在它上面可以显示文本和图形。

不同的是， TPrinter.Canvas 表示的是打印输出的画布，而非显示用的画布。大多数用来显示文本、图像和画图的程序可以用同一种方式来打印输出。

但是，在打印时必须考虑到其中的不同之处： 
      ¾  在屏幕上绘画是动态的，可以擦去在屏幕上输出的内容。而向打印机中输出则不那么灵活，凡是向 TPrinter.Canvas 输出的内容将被打印机打印出来。 
      ¾  在屏幕上显示文本和图是很快的，而向打印机输出，即使是高性能的激光打印机，也是较慢的。因此，必须允许用户能够终止打印作业或者采用其他办法来放弃打印作业。 
      ¾  由于用户运行的是 Windows，可以假定支持图形显示。但是，不能对他们的打印机做同样的假定。一些打印机也许具有非常低的分辨率，或者根本不支持图形打印。在打印程序中必须考虑到这些问题。 
      ¾  用户从来没有看到过诸如“显示超出屏幕空间”、“请插入更多的屏幕空间”此类的信息，但是肯定见过“打印纸不够”的信息。当这些错误发生时， Windows NT/2000 和Windows 95/98能够处理这些错误，但程序员应该向用户提供在发生这些问题时取消打印的办法。 
      ¾  对于屏幕上的文本和图形来说，硬拷贝操作看起来是不同的。打印机和显示器具有非常不同的分辨率。300×300 的位图在 640×480 的显示器中显得很漂亮。但是在300dpi 的激光打印机上，它仅仅是一个1×1 inch 的小方块。程序员必须负责调整打印程序，使用户不必用放大镜就可以看清他们的打印输出。

2   打印操作常用函数 (Windows API)
函数  　　　　说明 
AbortPrinter  在假脱机的情况下删除打印缓冲文件 
AbortProc  当打印作业取消时调用的一个应用程序定义的回调函数 
AddForm  为指定的打印机从有效窗体列表中新增一个窗体 
AddJob  获取一个文件名用来保存打印缓冲工作 
AddMonitor  新安装一个打印机管理器 
AddPort  新增一个打印机端口 
AddPrinter  在指定的服务器上新安装一个打印机 
AddPrinterConnection  在当前用户和指定的打印机之间建立一个联系 
AddPrinterDriver  为本地或网络打印机安装打印机驱动程序 
AddPrintProcessor  在指定的打印服务器上安装一个打印处理器 
AddPrintProvidor  新增一个打印机支持器 
AdvancedDocumentProperties  设置打印机的高级属性 
ClosePrinter  关闭指定的打印机 
ConfigurePort  通过端口设置对话框来设置指定服务器上的端口 
ConnectToPrinterDlg  显示一个浏览对话并与网络打印机连接 
DeleteForm  从窗体列表中删除一个窗体名称 
DeleteMonitor  删除打印机监视器 
DeletePort  删除打印机端口 
DeletePrinter  删除指定的打印机对象 
DeletePrinterConnection  删除一个打印机连接 
DeletePrinterData  删除打印机的配置数据 
DeletePrinterDriver  删除指定打印机的驱动程序 
DeletePrintProcessor  删除一个打印机的处理器 
DeletePrintProvidor  删除一个打印机的支持器 
DocumentProperties  取得或设置打印机的初始化信息或显示打印机配置对话框 
EndDocPrinter  结束指定打印机上的打印作业 
EndPagePrinter  在指定打印机上结束一页并开始新的一页 
EnumForms  列举打印机支持的窗体信息 
EnumJobs  获取打印机的作业信息 
EnumMonitors  获取指定服务器上的打印监视器信息 
EnumMonitors  获取指定服务器上的打印监视器信息 
EnumPorts  列举指定服务器上支持的端口信息 
GetPrinter  获取指定打印机的信息 
GetPrinterData  获取指定打印机的配置信息 
GetPrinterDriver  获取指定打印机驱动程序的数据信息 
GetPrinterDriverDirectory  获取指定打印机驱动程序所在的目录 
GetPrintProcessorDirectory  获取指定服务器上打印处理器所在的目录 
OpenPrinter  获取指定打印机或服务器的句柄 

PrinterMessageBox  显示打印异常信息对话框 
PrinterProperties  显示指定打印机的属性对话框 
ReadPrinter  从指定的打印机读取数据 
ResetPrinter  设置打印机的数据类型和设备模式等 
ScheduleJob  获取指定打印作业的打印缓冲时间表 
SetForm  设置指定打印机的窗体信息 
SetJob  暂停、继续、取消和重新开始指定打印机上的打印作业 
SetPort  设置打印机端口的状态 
SetPrinter  设置打印机的状态信息 
SetPrinterData  设置打印机的配置信息 
StartDocPrinter  通知打印缓冲器一个打印作业将被送往打印 
StartPagePrinter  通知打印缓冲器一个页面将送往打印 
WritePrinter  通知打印缓冲器数据将被写到指定的打印机

3   打印操作 (实现打印输出的方法 )
3.1   打印文本 
         在Delphi 中实现文本的打印功能需要做的只是取得打印参数，打开打印机，然后发送文本的每一行内容。

         在 Delphi 中提供了一个 Printers程序单元，它说明了一个 TPrint 对象，封装了Windows 打印工作和输出打印机之间的接口，并提供常用的属性和方法，其中画布Canvas 是一个非常有用的属性，它代表了当前打印文件的表面，是以图形方式来工作的，整个的打印输出工作仅仅是将用户打印的内容输出到TPrinter的属性 Canvas 上，当全部的输出工作完成之后，打印对象（TPrinter）把 Canvas 的属性值送到打印机上。

一个例子：在 Form中加入 Memo，PrintDialog,PrintSetupDialog 和两个 Button 控件，两个Button 的Caption分别为“打印设置”和“打印”。然后编写Button 的事件驱动程序如下： 

implement   
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);// 将prnsetup分配给打印机   
　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;   

3.2   打印位图 
打印位图也很简单。下面列出了相应代码。 

procedure TBMPForm.mmiPrintClick(Sender:TObject)   
begin   
  inherited;   
    with ImgMain.Picture.BitMap do   
  begin   
    Printer.BeginDoc;   
    Printer.Cavas.StretchDraw(Cavas.ClipRect,ImgMain.Picture.Bitmap);   
    Printer.EndCode;   
  end;   
end;   

调用 TCanvas.StretchDraw()来打印位图仅需三行代码。

在Delphi 中，位图的默认格式是DIB 格式，而 DIB 格式正是打印机驱动程序所需要的，这就大大简化了打印位图的工作。

如果遇到一个非DIB 格式的位图，可以把它复制给一个临时的TBitmap 对象，然后把TBitmap.HandleType 特性设为 bmDIB ，以强制把位图临时转化为 DIB 格式，这样就可以打印出DIB 格式的位图。 注意打印的关键之一是打印图像时能够以其与在屏幕上近似相同的尺寸打印。

例如，一个3×3inch的图像在 640×480 的屏幕上要比在 300dpi 的打印机上需要较少的像素。因此，在调用 StretchDIBits()时，把位图位伸以便与 TPrinter.Canvas 匹配。 

3.3   打印 TMemo组件中的内容 
事实上，用 AssignPrn()来打印文本行相当简单。AssignPrn() 可以为当前打印机分配一个文本文件变量，它与 Rewrite() 和CloseFile()等过程一起使用。下面几行代码说明了用法： 

var 
  f:TextFile; 
begin 
  AssignPrn(f); 
  try 
    Rewrite(f); 
    Writeln(f, 'Print the output'); 
  finally 
    CloseFile(f); 
  end; 
end; 

向打印输出一行文字与向文件中输出一行文字一样，可以使用下面的语句： 
Writeln(f,'This is my line of text'); 
下面的一段程序演示了如何从 TMdiEditForm 打印窗体上的内容。用户可以用同样的技术来打印任何文本。 

procedure TForm1.mmiPrintClick(Sender:TObject)   
var   
  i:integer;   
  PText:TextFile;   
begin   
  inherited;   
  if PrintDialog.Execute then   
  begin   
    AssignPrn(PText);   
    Rewrite(PText);   
    try   
      Printer.Cavas.Font:=memMainMemo.Font;   
      for i:=0 to memMainMemo.Lines.Count-1 do   
        writeln(PText,memMainMemo.Line[i]);   
    finally   
      CloseFile(PText);   
    end;   
  end;   
end;   

注意打印机的字体被指定为TMemo组件的字体，导致打印输出的字体与memMainMemo的字体一样。只有指定打印机所支持的字体，打印机才能以指定的字体打印。否则打印机以与指定字体特征最接近的字体打印。

3.4   打印 RTF 格式的文本 
RTF 格式文本的打印同样简单，只要调用一个方法就行了。相应代码如下所示： 
procedure TMdiRtfForm.mmiPrintClick(Sender:TObject); 
begin 
inherited; 
reMain.Print(Caption); 
end;

4   打印技巧 
4.1   获取显示当前打印机的分辨率 
Windows 下的打印分辨率对打印程序有至关重要的作用，利用函数 GetDeviceCaps() 可以得到打印分辨率。 
例如： 

var 
  iHorizontal,iVertical:integer; 
  iHorizontal:=GetDeviceCap s(printer.handle,LOGPIXELSX); 
  iVertical:= GetDeviceCaps(printer.handle,LOGPIXELSY); 
begin 
  ShowMessage( '水平分辨率：'+inttostr(iHorizontal)+chr(12)+ ' 垂直分辨率：'+Inttostr(iVertical)); 
end;

4.2   尽量不要使用 AssignPrn 
尽管 AssignPrn简化了文本打印操作，是输出到打印机像输出到文件一样简单。但简单带来的是一系列不方便：用户无法知道当前打印的行数，无法准确控制行距，也无法灵活改变字体字型，所以最好使用 Canvas 属性。 

4.3   用打印机的点数做度量单位 
如果要让打印程序在任何打印机上都能正常打印，就必须改变用户的度量单位。如果采用固定度量，不同分辨率打印效果是不同的。举例来说：printer.Canvas.rectangle(0,0,360,720)
在佳能 4200SP上能打出一个 1 inch  宽，2 inch  高的矩形，但在 600×600de HP6L上只能打出0.6 inch  宽，1.2inch  高的矩形。使用打印机的点数作为度量单位是一个明智的选择。具
体做法如下： 

var   
  PointX:integer;   
  PointY:integer;   
Begin   
    PointX := GetDeviceCap s(printer.Handle,LOGPIXELSX);   
    PointY := GetDeviceCap s(printer.Handle,LOGPIXELSY);   
  Printer.Canvas.rectangle(0,0,PointX*1,PointY*2);   
End;   

这样，无论使用什么打印机，都能得到一个1 inch  宽，2 inch  高的矩形。

4.4   将打印结果直接送到打印机 
Delphi 提供了两种打印方式：

一种将结果输出到Form，再调试 Form的Print 方法将结果输送给打印机。如果用户采用第一种方式，则无论用户怎样调整Form的PrintScal 属性，打印出来的东西也不能让用户满意，所以建议使用第二种方式。

4.5   获取默认打印机的信息 
在Windows 的Win.ini 文件中有下面的一些配置信息： 
[Window] 
load= 
run= 
NullPort=None; 
Device=HP LaserJet III,HPPCL5MS,LPT1: 
… 
其中windows 节的Device 键中默认打印机的信息，可以通过 Windows API 函数
GetProfileString获取该信息。函数 GetProfileString的原型如下： 
DWORD GetProfileString( 
  LPCTSTR lpAppName,    // 指定节名的字符串 
  LPCTSTR lpKeyName,    // 指定键名的字符串 
LPCTSTR lpDefault,   // 没有找到键名返回的字符串 
LPCTSTR lpReturnString,    // 找到键名返回的字符串 
DWORD nSize    //lpReturnedString的字节数 
);

创建时间：2015-04-27　　　　更新时间：2020.01.06　　2020.05.04