VB Printer对象

===========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 属性）设置
　

===========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参数说明:

 vbPRBNTractor    是手送盘