تعويض چاپگر هنگام چاپ

[seddighi]

مي خواهم به هنگام چاپ از كاربر بخواهم كه چاپگر مورد نظر را ( از چاپگرهاي تعريف شده در ويندوز) انتخاب كند. چگونه مي توان اين كار را كرد؟

[ASKaffash]

با سلام
اول به این سئوال پاسخ دهید که با چه روشی میخواهید ارسال به چاپگر صورت گیرد

[majjjj]

'Add a CommonDialo And 2 CammandButton And a List Box On Form
Option Explicit
Dim Prn As Printer
Dim Ind As Integer

Private Sub Command1_Click()
CCD.Flags = cdlPDPrintSetup + cdlPDPageNums
CCD.CancelError = True
On Error GoTo Ex
CCD.ShowPrinter
Cls
Print Printer.DeviceName
Printer.RightToLeft = True
Exit Sub
Ex:
MsgBox Err.Description
Err.Clear
End Sub
Private Sub Combo1_Click()
Set Prn = Printers(Combo1.ListIndex)
Ind = Combo1.ListIndex
End Sub
Private Sub Command2_Click()
Cls
Print Prn.DeviceName
End Sub
Private Sub Form_Load()
Printer.ScaleMode = vbMillimeters
For Each Prn In Printers
Combo1.AddItem Prn.DeviceName
Next
Combo1.Text = Combo1.List(0)
End Sub

[ASKaffash]

با سلام
از کد ذیل کمک بگیر :
For Each P In Printer
If (Y = 1) Then 'Your Where
Set Printer = x
End If
Next