如何设定打印机.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

你 不 应 该 修 改 Printer.Port， 它 指 的 是 打 印 机 连 接 到 哪 个 端 口 ， LPT1或 是 LPT2等 等 。 而 要 指 定 打 印 机 需 要 借 助 Printers集 合 ， 下 面 的 程 序 列 出 系 统 内 所 有 的 打 印 机 ： 
     Dim x 
     
     For Each x In Printers 
     Print x.DeviceName 
     Next 
    如 果 要 指 定 使 用 某 台 打 印 机 ， 可 以 使 用 下 面 的 过 程 ： 
    Sub SetPrinterByName(s As String) 
     Dim x 
     
     For Each x In Printers 
     If x.DeviceName = s Then 
     Set Printer = x 
     Exit Sub 
     End If 
     Next 
    End Sub 
    在 打 印 前 ， 调 用 
     SetPrinterByName "PIC-PRINTER" 
    就 可 以 切 换 到 PIC-PRINTER， 以 后 使 用 Printer对 象 输 出 就 是 通 过 PIC-PRINTER进 行 传 真 。 
    这 种 修 改 方 法 可 以 改 变 输 出 的 打 印 机 ， 但 不 会 改 变 系 统 默 认 打 印 机 ， 也 就 是 说 当 你 的 程 序 退 出 后 ， 系 统 的 默 认 打 印 机 仍 然 是 原 来 的 ， 不 会 给 用 户 带 来 不 方 便 。 
<END>