打印机对象的问题？

Question

我是这样做的，我将打印的对象printer放在模块里的一个函数里 public sub pt()  printer.printer "你好"
  printer.enddocend sub在form的代码框里调用这个函数Private Sub Command1_Click() 
  call pt
End Sub为什么打印机步打印呢
但是如果也将pt函数放在form代码框里就执行打印了
这个问题怎么弄呢
谢谢

Answer 1

打印前先用遍历Printers集合中的所有打印机，然后使用DeviceName属性来判断是否是你想要的打印机，如果是，那么用Set Printer = 打印机名来设置默认的打印机。

Answer 2

我都是用" 对象名.print 变量 "打印的.试一下将printer.printer "你好" 改为 printer.print "你好".

Answer 3

打印前先用遍历Printers集合中的所有打印机
    Dim X As Printer
    For Each X In Printers
        If X.DeviceName = Printer.DeviceName Then
            '设定为系统缺省打印机。
            Set Printer = X
            ' 终止查找打印机。
            Exit For
        End If
    Next