编程学习biancheng.45soft.com 本站提供了各种在线教程和资料,供大家学习与参考.
编程学习
当前位置: 主页 > VB6 > 界面设计 > VB6 界面设计 打印机输出

VB6 界面设计 打印机输出

打印机对象名称:Printer

属性:CurrentX和CurrentY、Page

方法:NewPage、EndDoc、PrintForm

将数据从打印机上打印出来,有两种方式:

1.直接将数据送到打印机上打印。

2.先将打印数据送到窗体上面,然后将窗体打印出来。

直接打印,其语法格式为:

[对象.]Print [{Spc(n)|Tab(n)}][ExpressionList][{;|,}]

VB用Printer对象来代表系统目前所安装的打印机。要在打印机上打印各种字体和字形也是方便的。例如:

Printer.FontName=”宋体” : Printer.FontSize=18: Priter.FontItalic=True
Printer.Print ”小荷才露尖尖角,早有蜻蜓立上头。”

打印机对象也有CurrentX和CurrentY两个属性,因此打印机打印的起点设置也时非常容易的。例如将打印位置移到范围的左上角,则可:

Printer.CurrentX=0 : Printer.CurrentY=0

如果要换页,可以运行NewPage方法,例如:

Printer.Print ”第1页”
Printer.NewPage
Printer.Print ”第2页”
Printer.NewPage

在换页之后,如果只需继续打印两三行后文章就结束,此式打印机并不会自动将这一页“挤”出来。一定要用EndDoc方法才能将缓冲区中的数据(不满一页)全部作为一页打印出来。例如:

Printer.Print ”第1页”
Printer.NewPage
Printer.Print ”第2页”
Printer.EndDOC

在NewPage之后,如果立即就运行EndDoc,并不会打印一张空白页。


Printer对象有一个Page属性是专门用来纪录页数的。它的起始值等于1。每运行一次NewPage,Page就会自动加1。而每次运行EndDoc之后,Page的值就变为1。因此可用它来打印页数。

例如:

Printer.Print ”第” &Str(Printer.Page) &”页”
Printer.NewPage
Printer.Print ”第” &Str(Printer.Page) &”页”
Printer.EndDoc

PrintForm方法用来将窗体的内容打印出来,其语法格式:

[form.]PrintForm

它是以“位图”方式来打印,并且窗体上的所有可件控件也都会打印出来。如果要连用绘图命令画出来的图案也要打印出来,就必须先将窗体的AutoRedraw属性设置为True。


由于PrintForm是将屏幕上的像素(Pixel)直接送到打印机上,因此当打印机的分辨率高过屏幕时(例如,激光打印机),所得效果并不好。例如:

Form1.FontName=”宋体”
Form1.FontSize=20
Form1.Print “”见到你很高兴”
Form1.PrintForm

打印出来的效果就比不上将TrueType字体直接送打印机打印:

Printer.FontName=” ”宋体”
Printer.FontSize=20
Printer.Print ”见到你很高兴”



编程学习 VB6 界面设计 打印机输出 转载请保留此行.谢谢.

VB6