我在用PrintDocument打印前显示一个printDialog对话框，然后取得用户所选择的打印机，再把获取的值斌给printDocument如：
PrintDocument1.DefaultPageSettings.PrinterSettings.PrinterName = PrintDialog1.PrinterSettings.PrinterName
PrintDocument1.PrinterSettings.PrinterName = PrintDialog1.PrinterSettings.PrinterName '设定打印机
为什么还是调用系统默认的打印机？
请问如何给PrintDocument指定打印机？
谢谢谢

[此贴子已经被作者于2007-1-4 17:25:35编辑过]

你得自己设置defaultprinter

Imports System.Management

Dim gManagementObject As New ManagementObject
gManagementObject.Scope = New ManagementScope(String.Format("\\{0}\root\cimv2", computerName))
Dim gSearcher As New ManagementObjectSearcher(String.Format("SELECT DeviceID FROM {0}", "Win32_Printer"))
gSearcher.Scope = gManagementObject.Scope
Try
For Each mManagementObject As ManagementObject In gSearcher.Get()
If mManagementObject.Properties.Item("DeviceID").Value.ToString.Equals(PrinterName) Then
mManagementObject.InvokeMethod("SetDefaultPrinter", Nothing)
Exit For
End If
Next

Catch ex As Exception
Console.WriteLine(ex.Message)
Finally
gSearcher.Dispose()
gManagementObject.Dispose()
End Try

－－这段代码是摘来的

如果你是用的Crystal report,
Rpt.PrintOptions.PrinterName = PrinterName
Rpt.PrintToPrinter(1, False, 0, 0)

如果不是。。。改变默认打印机，打印完再改回去好了。。。

好，谢谢