Anasayfa > Kodlar > VB6 ile Aktif yazıcının değiştirilmesi

VB6 ile Aktif yazıcının değiştirilmesi


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

Fatih Adıgüzel
(fatiha@gop.edu.tr)

Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: