delphi 获取打印机默认纸张_在DELPHI中实现打印的预览

在DELPHI中实现打印的预览

10月18日 类型:转载 作者:《电脑报》 编辑:王琛

--------------------------------------------------------------------------------

在很多应用程序中，都需要程序具有打印预览功能，以避免用户由于选择不当出现打印错误。预览实现方式为通过创建一个Tpanel的派生类并公开它的canvas属性比例尺或视区范围，使用较为不方便，笔者通过实践实现了用图元文件(Metafile)来实现打印预览的方法，这种方式不需要调整比例尺和视区范围。

基本原理和方法：

使用图元文件的好处在于图元文件也称作"绘图类型"的图形，是以图形对象(线、圆弧、多边形)方式而不是像素方式来储存图像。图元文件将图形定义为编码的确线段和图形。Windows系统下有两种类型的图元文件:标准型(WMF文件格式)和增强型(EMF文件格式)。

它能够任意大小缩放并且任能保持一定的逼真度，这是因为图元文件通常由一系列矢量图形的图元组成，图元是指线条、填充的区域以及轮廓字体等。扩大或缩小图像只是简单地缩放定义这些图元的所有坐标点，所以当调整图像大小时，图元文件对图像的保存比像素更精确，效果更好。

Delphi以Tmetafile对象对 Win32增强型图元文件进行了封装，通过设置Enhanced属性可以设定图元文件是以标准型或可增强型格式存储。

在Delphi中使用图元文件的基本方法是：

创建图元文件

使用参照设备的打印机句柄创建图元文件画布对象(Tmetafilecanvas)

如同在打印机画布上一样，在图元文件画布进行描

将图元文件在屏幕上显示出来

实现步骤：

首先建立一个窗体文件，在适当位置放上一个panel控件 (panel)，一个checkbok控件(chedkbox1),并设定checkbox的 caption为"打印预览"，在panel上放置一个image控件(image), 并设image的align属性为kckient.

在USES中添加打印程序单元(Printers),尽管Delphi在生成窗体时会自动在USESB部分加入许多程序单元，但打印程序单元却不在此列，只能手工给它加上。

关键代码说明：用GetDevice (Printer.Handle,LOGPIXESX)获取当前打印机的水平分辨率。

如果想让打印程序在任何打印机上都能正常的打印，你就必须改变你的度量单位。

Dpm:=trunc(dpi/25.4);

//算出每毫米的打印机点数。

MyMetafile :=Tmetafile.Create;

//创建图元文件

TmetafileCanvas.Create (MyMetafile,printer.Handle)

//以打印机句柄创建图元文件画布

textout(trunc(sx*dpm), trunc(sy*dpm),'我的打印')；//进行打印输入

imagel.Camvas.StretchDraw (imagel.canvas.cliprect, MyMetafile);

//显示图元文件

程序源代码：

unit u_print;

interface

uses

Windows,Messages,SysUtils,Classes,Graphics,Controls,Controls,Fr-ms,Dialogs,

StdCtr;d,Buttons,printers,ExtCtrls;

Type

TF_prin = class(Tform)

………

private

{Private declarations}

public

{Public declarations}

end;

var

F_print: TF_print;

Implementation

{$R*.DFM}

procedure TF_print.BitBtn1Click(Sender:Tobject);

brgin

close;

end;

//定义report过程，使真实打印和打印愈来愈览共用此过程

procedure TF_print.report (Acanvas:Tcanvas);

var

sx,sy,sy0,sx0:real;//开始位置

dpi,dpm:real; //每毫米的点数

Arect: Trect;

Begin

Dpi: =GetDeviceCaps (Printer.Handle,LogPixelsX);

Dpm:=trunc(dpi/25.4); //每毫米的点数

Sx:=100; sx0:=10; sy0:=10 sy:=sy0;

with Acanvas do

try

font.name:='宋体'；

font.size:=18;

textout(trunc (60*dpm),trunc (sy*dpm),'姓名')；

sy:=sy+10;

pen.Width:=5;

MoveTo(trunc(sx0*dpm),trunc(sy*spm));

LineTo(trunc((sX0+200)*dpm),trunc(sy*dpm));

font.size:=12;

sy::=sy+5;

textout(trunc(sx0*dpm),trunc(ay*dpm),'内容')；

sy:=sy+5

MoveTo(trunc(sx0*dpm),trunc(sy*dpm));

LineTo(trunc((sX0+200)*dpm),trunc(sy*dpm));

finally

Free;

End;

End;

Procedure TF_print,BitBtn2Click(Sender:Tobject);

Var

mymetafile:Tmetafile;

Ifprt:Boolean;

Begin

Ifprt:=not checkbok1.checked;

//是false则打印预览，true则打印

if ifprt then

begin

printer.BeginDoc;

report(printer.canvas);

//将打印机画布对象传给report过程

end

else

begin

MyMetafile: =Tmetafile.Create

//创建图元文件

//以打印机句柄创建图元文件画布对象(Tmetafilecanvas),并调用report过程

report (TmetagileCanvas.Create(MyMetafile, printer.Handle));

end;

//如果是打印则结束打印

if ifprt then printer.enddoc;

//如果是打印预览，则在image1上显示出来

if not ifprt then image1.Canvas.StretchDraw (image1.canvas.cliprect,MyMetafile);

end;

end.