1英寸=2.54厘米
1英寸=25.4毫米
如果你想自己用Delphi编写一个打印程序 那么 下面这些技巧或许对你有所帮助
获取 显示当前打印机的分辨率
GetDeviceCaps(printer.Handle,LOGPIXELSX)
GetDeviceCaps(printer.Handle,LOGPIXELSY)
Windows下的打印分辨对打印程序有着至关重要的作用 如果你想知道打印机的分辨率 请在程序中加入一行
ShowMessage(′水平分辨率′+inttostr(GetDeviceCaps(printer.Handle,LOGPIXELSX))+chr()+′垂直分辨率:′+ inttostr(GetDeviceCaps(printer.Handle,LOGPIXELSY)));
结果就一目了然了
将结果直接送到打印机
Delphi提供了两种打印方式 一是将结果输送到Form 再调用Form的print ... 将结果输送到打印机 二是将结果直接输送到打印机 如果你采用第一种方式 则无论你怎样调整Form的PrintScal属性 打印出来的东西也不会让你满意 因此建议采用第二种方式
尽量不要使用AssignPrn
尽管AssignPrn简化了文本打印操作 使输出到打印机像输出到文件一样简单 但简单带来的是一系列的不方便 你无法知道当前打印的行数 无法准确控制行距 无法灵活改变字体字形等等 还是用打印机的Canvas属性进行打印吧
用打印机的点数做度量单位
如果想让打印程序在任何打印机上都能正常地打印 你就必须改变你的度量单位 如果采用固定的度量 不同分辨率的打印效果是不同的 举例来讲 printer.Canvas.rectangle( )在 × 的佳能 SP上能打出一个 英寸宽 英寸高的矩形 但在 × 的惠普 L上只能打出 英寸宽 英寸高的矩形 使用打印机的点数做为度量单位是一个明智的选择 具体做法如下
Var
PointX PointY:integer;
PointX:=GetDeviceCaps(printer.Handle,LOGPIXELSX);
PointY:=GetDeviceCaps(printer.Handle,LOGPIXELSX);
printer.Canvas.rectangle( PointX* PointY* )
这样 无论你使用什么样的打印机 都能得到一个 英寸宽 英寸高的矩形
添加打印程序单元
procedure TForm1.CheckPrinter();
begin
with TPrinter.Create do
if Printers.Count =0 then
Application.MessageBox('对不起,没有安装好打印机!','打印提示',MB_OK+MB_ICONASTERISK)
else
begin // 获取打印机分别率
SX:=GetDeviceCaps(printer.Handle,LOGPIXELSX);
SY:=GetDeviceCaps(printer.Handle,LOGPIXELSY);
print_card();
end;
end;
procedure TForm1.CacuPosition(Cm_X, Cm_Y: real; var Dot_X, Dot_Y: integer);
//=======================================================================
// 计算打印位置(目的是实现打印机无关)
// 入口参数: Cm_X , Cm_Y 以厘米作单位
// 返回参数: Dot_X, Dot_Y 以点作单位
//=======================================================================
begin
Dot_X:= trunc(Cm_X * SX /2.54);
Dot_Y:= trunc(Cm_Y * SY /2.54);
end;
procedure TForm1.print_card(); // 打印程序
var
x,y : integer;
str : String;
begin
with Printer do
begin
BeginDoc;
Canvas.Font.Style:=[fsBold];
Canvas.Font.Name:='宋体';
Canvas.Font.Size:=12;
CacuPosition(1, 1, x, y);
str := '测试字符串';
Canvas.TextOut(x, y, str); //在坐标为(1cm, 1cm)的位置打印 str
EndDoc;
end;
end;