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常数	序号	说明
vbPRPSLetter	1	信笺， 8 1/2 x 11 英寸。
vbPRPSLetterSmall	2	+A611 小型信笺， 8 1/2 x 11 英寸。
vbPRPSTabloid	3	小型报， 11 x 17 英寸。
vbPRPSLedger	4	分类帐， 17 x 11 英寸。
vbPRPSLegal	5	法律文件， 8 1/2 x 14 英寸。
vbPRPSStatement	6	声明书，5 1/2 x 8 1/2 英寸。
vbPRPSExecutive	7	行政文件，7 1/2 x 10 1/2 英寸。
vbPRPSA3	8	A3, 297 x 420 毫米
vbPRPSA4	9	A4, 210 x 297 毫米
vbPRPSA4Small	10	A4小号， 210 x 297 毫米
vbPRPSA5	11	A5, 148 x 210 毫米
vbPRPSB4	12	B4, 250 x 354 毫米
vbPRPSB5	13	B5, 182 x 257 毫米
vbPRPSFolio	14	对开本， 8 1/2 x 13 英寸。
vbPRPSQuarto	15	四开本， 215 x 275 毫米。
vbPRPS10x14	16	10 x 14 英寸。
vbPRPS11x17	17	11 x 17 英寸。
vbPRPSNote	18	便条，8 1/2 x 11 英寸。
vbPRPSEnv9	19	#9 信封， 3 7/8 x 8 7/8 英寸。
vbPRPSEnv10	20	#10 信封， 4 1/8 x 9 1/2 英寸。
vbPRPSEnv11	21	#11 信封， 4 1/2 x 10 3/8 英寸。
vbPRPSEnv12	22	#12 信封， 4 1/2 x 11 英寸。
vbPRPSEnv14	23	#14 信封， 5 x 11 1/2 英寸。
vbPRPSCSheet	24	C 尺寸工作单
vbPRPSDSheet	25	D 尺寸工作单
vbPRPSESheet	26	E 尺寸工作单
vbPRPSEnvDL	27	DL 型信封， 110 x 220 毫米
vbPRPSEnvC3	29	C3 型信封， 324 x 458 毫米
vbPRPSEnvC4	30	C4 型信封， 229 x 324 毫米
vbPRPSEnvC5	28	C5 型信封， 162 x 229 毫米
vbPRPSEnvC6	31	C6 型信封， 114 x 162 毫米
vbPRPSEnvC65	32	C65 型信封，114 x 229 毫米
vbPRPSEnvB4	33	B4 型信封， 250 x 353 毫米
vbPRPSEnvB5	34	B5 型信封，176 x 250 毫米
vbPRPSEnvB6	35	B6 型信封， 176 x 125 毫米
vbPRPSEnvItaly	36	信封， 110 x 230 毫米
vbPRPSEnvMonarch	37	信封大王， 3 7/8 x 7 1/2 英寸。
vbPRPSEnvPersonal	38	信封， 3 5/8 x 6 1/2 英寸。
vbPRPSFanfoldUS	39	U.S. 标准复写簿， 14 7/8 x 11 英寸。
vbPRPSFanfoldStdGerman	40	德国标准复写簿， 8 1/2 x 12 英寸。
vbPRPSFanfoldLglGerman	41	德国法律复写簿， 8 1/2 x 13 英寸。
vbPRPSUser	256	用户定义

▲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    是手送盘