VB Printer对象

VB Printer对象  

2011-04-29 22:54:37|  分类：编程设计 |字号 订阅

===========Printer 的属性==========
■■■一般属性，与窗体属性同
▲hDC
▲DrawMode、 DrawStyle、 DrawWidth
▲ScaleMode、ScaleHeight、ScaleWidth、ScaleLeft、ScaleTop
▲FillColor、FillStyle
▲Font 、    FontCount、 Fonts(i)
▲CurrentX、CurrentY     水平或垂直坐标
■■■特殊属性
▲ColorMode [= value]    彩色（１）还是单色（２）
▲Copies [= number]      打印的份数
--------------
▲DeviceName             返回驱动器支持的设备名。
DriverName             返回 Printer 对象的驱动器名。一般是去掉扩展名的驱动程序文件名。
--------------
▲Duplex [= value]    是否要双面打印
vbPRDPSimplex   1 按当前设置的方向单面打印。
vbPRDPHorizontal 2 用水平页面旋转格式双面打印。
vbPRDPVertical 3 用垂直页面旋转格式双面打印。
▲TrackDefault [= boolean]          是否跟踪系统的控制面板的缺省指向
▲TwipsPerPixelX、TwipsPerPixelY    返回水平或垂直每一像素中的缇数
▲PrintQuality [= value] 分辨率
vbPRPQDraft -1 草稿分辨率
vbPRPQLow -2 低分辨率
vbPRPQMedium -3 中等分辨率
vbPRPQHigh -4 高分辨率
-------
▲PaperSize [= value] 纸张大小 1-41,(256为用户定义)
▲Height [= number]纸张大小（PaperSize 属性自动设置为256）
▲Width [= number]
　　打印机纸张类型（PaperSize 属性）设置
　

vb常数序号说明vbPRPSLetter1信笺， 8 1/2 x 11 英寸。vbPRPSLetterSmall2+A611 小型信笺， 8 1/2 x 11 英寸。vbPRPSTabloid3小型报， 11 x 17 英寸。vbPRPSLedger4分类帐， 17 x 11 英寸。vbPRPSLegal5法律文件， 8 1/2 x 14 英寸。vbPRPSStatement6声明书，5 1/2 x 8 1/2 英寸。vbPRPSExecutive7行政文件，7 1/2 x 10 1/2 英寸。vbPRPSA38A3, 297 x 420 毫米vbPRPSA49A4, 210 x 297 毫米vbPRPSA4Small10A4小号， 210 x 297 毫米vbPRPSA511A5, 148 x 210 毫米vbPRPSB412B4, 250 x 354 毫米vbPRPSB513B5, 182 x 257 毫米vbPRPSFolio14对开本， 8 1/2 x 13 英寸。vbPRPSQuarto15四开本， 215 x 275 毫米。vbPRPS10x141610 x 14 英寸。vbPRPS11x171711 x 17 英寸。vbPRPSNote18便条，8 1/2 x 11 英寸。vbPRPSEnv919#9 信封， 3 7/8 x 8 7/8 英寸。vbPRPSEnv1020#10 信封， 4 1/8 x 9 1/2 英寸。vbPRPSEnv1121#11 信封， 4 1/2 x 10 3/8 英寸。vbPRPSEnv1222#12 信封， 4 1/2 x 11 英寸。vbPRPSEnv1423#14 信封， 5 x 11 1/2 英寸。vbPRPSCSheet24C 尺寸工作单vbPRPSDSheet25D 尺寸工作单vbPRPSESheet26E 尺寸工作单vbPRPSEnvDL27DL 型信封， 110 x 220 毫米vbPRPSEnvC329C3 型信封， 324 x 458 毫米vbPRPSEnvC430C4 型信封， 229 x 324 毫米vbPRPSEnvC528C5 型信封， 162 x 229 毫米vbPRPSEnvC631C6 型信封， 114 x 162 毫米vbPRPSEnvC6532C65 型信封，114 x 229 毫米vbPRPSEnvB433B4 型信封， 250 x 353 毫米vbPRPSEnvB534B5 型信封，176 x 250 毫米vbPRPSEnvB635B6 型信封， 176 x 125 毫米vbPRPSEnvItaly36信封， 110 x 230 毫米vbPRPSEnvMonarch37信封大王， 3 7/8 x 7 1/2 英寸。vbPRPSEnvPersonal38信封， 3 5/8 x 6 1/2 英寸。vbPRPSFanfoldUS39U.S. 标准复写簿， 14 7/8 x 11 英寸。vbPRPSFanfoldStdGerman40德国标准复写簿， 8 1/2 x 12 英寸。vbPRPSFanfoldLglGerman41德国法律复写簿， 8 1/2 x 13 英寸。vbPRPSUser256用户定义
▲Port     返回端口的名字
▲PaperBin 缺省纸盒
▲Page     返回当前页号
▲Zoom     输出比例的百分比
▲Orientation [= value] 打印方向
vbPRORPortrait 1 文档打印以纸的窄边作顶部。纵
vbPRORLandscape 2 文档打印以纸的宽边作顶部。横

===========Printer 的方法==========
■■■一般方法，与窗体方法同
▲Circle、Line 、PSet、Scale 方法
▲PaintPicture                绘制图形文件
▲ScaleX、ScaleY              从一种 ScaleMode 属性的度量单位转换到另一种
▲TextHeight、TextWidth       方法
■■■特殊方法
▲EndDoc    将文档释放到打印设备或后台打印程序。
▲KillDoc   立即终止当前打印作业。
▲NewPage   换页

=========== 例子1 ，更改系统默认打印机
Dim X As Printer'找出页码方向设置为纵向的打印机，然后将其设置为缺省打引机
For Each X In Printers
If X.Orientation = vbPRORPortrait Then
Set Printer = X '设定为系统缺省打印机
Exit For
End If
Next

=========== 例子2 ，在纸张正中打印
Private Sub Command1_Click()
   Dim I As Long, nStr As String
   For I = 1 To 5
      Printer.Font.Size = 9 + I * 3 '设置字体大小：字号
      nStr = "这是第 " & I & " 页" '设置打印字符
      Printer.CurrentX = (Printer.Width - Printer.TextWidth(nStr)) * 0.5   '左右居中
      Printer.CurrentY = (Printer.Height - Printer.TextHeight(nStr)) * 0.5 '上下居中
      Printer.Print nStr '发送到打印机
      Printer.NewPage    '换页
   Next
   Printer.EndDoc '开始打印
End Sub

 

 

 PaperBin参数说明:

  

常量

值

说明

vbPRBNUpper

1

使用上层纸盒中的纸张。

vbPRBNLower

2

使用下层纸盒中的纸张。

vbPRBNMiddle

3

使用中间纸盒中的纸张。

vbPRBNManual

4

等待手动插入每张纸。

vbPRBNEnvelope

5

使用信封送纸器中的信封。

vbPRBNEnvManual

6

使用信封送纸器中的信封，但等待手动插入。

vbPRBNAuto

7

使用当前默认纸盒中的纸张。（这是默认设置。）

vbPRBNTractor

8

使用牵引式送纸器送入的纸张。

vbPRBNSmallFmt

9

使用小型送纸器中的纸张。

vbPRBNLargeFmt

10

使用大型纸盒中的纸张。

vbPRBNLargeCapacity

11

使用大容量送纸器中的纸张。

vbPRBNCassette

14

使用附加纸盒中的纸张。

 vbPRBNTractor    是手送盘