چگونگی ارسال به یک چاپگر خاص

[mraminr]

با سلام به دوستان
می خوام در برنامه اطلاعات رو به دوچاپگر بفرستم یکی چاپگر Default سیستم جاری ویکی چاپگر دیگه ای رو شبکه که قبلا یوزر انتخاب کرده .برای چاپگر دوم باید چکار کنم؟

[mraminr]

لطفا یکی جواب بده

[Mbt925]

برای چاپگر اول که مشکلی نیست.

بعد از اینکه برای این چاپگر فرستادید ، چاپگر Default رو به چاپگر موردنظر که می خواین براش بفرستین تغییر بدین و بعد از فرستادن براش ،
چاپگر Default رو به مقدار اولیش برگردونید.

[vbhamed]

Printer.DeviceName = "Printer Model 1"
Printer.DriverName = "DriverName 1"
Printer.Port = "Port 1"

Printer.Print "test print with printer 1"

Printer.DeviceName = "Printer Model 2"
Printer.DriverName = "DriverName 2"
Printer.Port = "Port 2"

Printer.Print "test print with printer 2"

[mraminr]

ممنونم پیداش کردم
dim Prn as Printer
For Each Prn In Printers
If Prn.DeviceName = "Printer Name" Then
Set Printer = Prn
Exit For
End If
Next