用Delphi编写打印程序的窍门

如果你想自己用Delphi编写一个打印程序 那么 下面这些技巧或许对你有所帮助

获取 显示当前打印机的分辨率

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:integerPointX:=GetDeviceCaps(printerHandle LOGPIXELSX)PointY:=GetDeviceCaps(printerHandle LOGPIXELSX)printerCanvasrectangle( PointX＊ PointY＊ )

这样 无论你使用什么样的打印机 都能得到一个 英寸宽 英寸高的矩形

添加打印程序单元

lishixinzhi/Article/program/Delphi/201311/24867

添加打印机驱动程序步骤：

1、选择电脑开始菜单，选择设备和打印机选项，进入页面。

2、设备和打印机页面中，点击打印服务器属性选项，进入页面。

3、在驱动程序一栏下选项添加选项进入页面。

4、系统出现添加打印机驱动程序向导，点击下一步。

5、新的页面中选择要安装的打印机驱动的制造商和型号，继续点击下一步。

6、系统提示成功完成了添加打印机驱动程序向导，选择完成按钮，打印机就安装成功了。

#include&ltstdio.h&gt

#defineN7//以7行7列为例

intmain()

{

inta[N][N]//N行N列的杨辉三角

inti,j

for(i=0i&ltNi++)//先赋值两边

{

a<i>[0]=1

a<i><i>=1

}

for(i=2i&ltNi++)//计算中间的数值

{

for(j=1j&ltij++)

a<i>[j]=a[i-1][j-1]+a[i-1][j]

}

for(i=0i&ltNi++)//输出部分

{

for(j=0j&lti+1j++)

printf("%d",a<i>[j])

printf("\n")

}

}

运行效果：

扩展资料：

说明：

a<i>[j]=a[i-1][j-1]+a[i-1][j]；该语句用于求中间值

表示：中间值等于上一行前一列的数加上上一行同一列的数

例图中6（a[4][2]位置）等于上行两个3（前a[3][1]，后a[3][2]）相加

即表示为：a[4][2]=a[3][1]+a[3][2]

相当于：a[4][2]=a[4-1][2-1]+a[4-1][2]

等价于：a<i>[j]=a[i-1][j-1]+a[i-1][j]

printf函数使用注意事项

1、域宽

%d：按整型数据的实际长度输出。

如果想输出指定宽度可以指定域宽，%md--&gtm域宽,打印出来以后，在控制台上，显示m位；

如果我们要打印的数的位数如果超过我们设定m则原样输出；

如果我们要打印的数的位数如果小于我们设定的位数，则补空白,具体如下:

如果m为正数，则左对齐(左侧补空白)；

如果m为负数，则右对齐(右侧补空白)。

2、转义字符

如果想输出字符"%",则应该在“格式控制”字符串中用连续两个%表示。

如：printf("%f%%",1.0/3)输出结果:0.333333%。

---