- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
KONU : Aktif Yazıcının Değiştirilmesi
Bu kodlar Windows'un varsayılan yazıcısını değiştirmez. O an çalışan programın içindeki aktif yazıcıyı değiştirir.
Private Sub Form_Load()
prnlist
MsgBox ("Şu anki aktif yaziciniz : " & Printer.DeviceName & " ")
End Sub
Private Sub prnlist()
Dim X As Printer
For Each X In Printers
prncombo.AddItem X.DeviceName
Next
End Sub
Private Sub prncombo_Click()
Dim X As Printer
For Each X In Printers
Set Printer = X
If Printer.DeviceName = prncombo.Text Then
Exit For
End If
Next
MsgBox ("Şu anki aktif yaziciniz : " & Printer.DeviceName & " ")
End Sub
Bu kodlar Windows'un varsayılan yazıcısını değiştirmez. O an çalışan programın içindeki aktif yazıcıyı değiştirir.
Private Sub Form_Load()
prnlist
MsgBox ("Şu anki aktif yaziciniz : " & Printer.DeviceName & " ")
End Sub
Private Sub prnlist()
Dim X As Printer
For Each X In Printers
prncombo.AddItem X.DeviceName
Next
End Sub
Private Sub prncombo_Click()
Dim X As Printer
For Each X In Printers
Set Printer = X
If Printer.DeviceName = prncombo.Text Then
Exit For
End If
Next
MsgBox ("Şu anki aktif yaziciniz : " & Printer.DeviceName & " ")
End Sub