# 做不到预设的印表机

Posted by Alex on May 06, 1999 at 00:22:49:

Dim X As Printer
For Each X In Printers
If X.Orientation = vbPRORPortrait Then
'将印表机设定为系统预设的印表机。
Set Printer = X
'停止搜寻印表机。
Exit For
End If
Next

如我需要一直用 4L 印表机做预设的印表机，但别的程式要用 LQ300，
用以上方法找到印表机，但为何在我印到一半(我用 Debug.Print Printer.DeviceName 检查) ，
它会变回 4L (电脑预设的印表机)，令到 LQ300 出现乱码？

Follow Ups:

- Re: 做不到预设的印表机 纪文和 00:58:12 5/06/99 (4)
  - Re: 做不到预设的印表机 Alex 01:13:08 5/06/99 (3)
    - 你是用什么版本的 VB 呢? 小吴 08:40:24 5/06/99 (2)
      - Re: 你是用什么版本的 VB 呢? Alex 00:39:12 5/07/99 (0)
      - 我以前也遇到同一个问题,装sp3立即ok kkcheung 20:24:40 5/06/99 (0)