vb打印机选择问题

选择打印机的方法有很多，你这样做也行，因为printform方法只打印到默认的打印机，照你的写法，你可以先用PRINTER取得默认打印的名字，me.printform完后。再将打印机设回，不过这方法不是最好的。

如：

如果你的默认打印机名为：

dim defPrinter as string

defPrinter = Printer.devicename

'**** 这里放你的代码

Dim X As Printer

For Each X In Printers

if X.devicename = defPrinter then

Set Printer = X

exit for

end if

Next

点按桌面左下角的“Win键”，选中“开始”菜单中的“设置”应用。

请点击输入图片描述

2

在“Windows设置”窗口中选中“设备”选项。

请点击输入图片描述

3

选中左侧的“打印机和扫描仪”，然后在右侧页面中即可找到本机已连接的所有打印机和扫描仪，选中准备设置为默认打印机的设备，点按“管理”按钮。

请点击输入图片描述

4

在“管理设备”页面中点按如图位置的“设为默认值”，这样即可将该设备设置为默认打印机。

请点击输入图片描述

5

默认打印机设置成功后，该设备的名称下方就会出现“默认”两个字。

请点击输入图片描述

6

如果经常使用的打印机较多，也可以选中“让Windows 管理默认打印机”，这样系统就会默认将最近使用的打印机设置为默认打印机。

请点击输入图片描述

---