在vb中如何指定某台打印机打印?

[nosence]

我的机器上连有两台打印机:printer1,printer2
在一project中有两个Form,如何做到:
Form1.PrintForm '在printer1打印
Form2.PrintForm '在printer2打印

[yanz]

在每个窗体中使用：
Set Printer = Printers(n) 'n为第几号打印机

[yanz]

打印机号从0开始

[lihonggen0]

Dim X As Printer
For Each X In Printers
If X.Orientation = vbPRORPortrait Then
'将打印机设置为系统缺省的打印机。
Set Printer = X
'停止寻找打印机。
Exit For
End If
Next

可以用 Set 语句将 Printers 集合中的一种打印机设置为缺省打印机。上例中将对象变量 X 所标识的打印机指定为应用程序的缺省打印机。

[lihonggen0]

Printers 集合允许对可用打印机进行查询，这样就可以为自己的应用程序指定缺省打印机。例如，您可能想查出哪种可用打印机使用特定的打印机驱动程序。下列代码对所有可用打印机进行搜索，对第一个打印机定位，并将其走纸方向设置为纵向，然后将打印机设置为缺省打印机：

[seemon]

显示打印机设置界面，然后返回选择的打印机。