DorukTR.com Kişiselleştir-->

Site İçi Arama

Site Anket

Dost Siteler

www.azedizayn.com
www.sinemay.com
www.google.com
www.e-devlet.com
www.kelebek.cc
www.sevgisohbet.net
www.askialem.net
www.turkchat.biz
www.turkchat.in
www.sultangazi.info
www.pespembe.net
www.ischat.net

Sistemdeki Yazıcıları Okumak | Hit : 102

Sistemdeki Yazıcıları Okumak

Sistemde kurulu olan bütün yazicilarin listesini cikarabiliriz.

Kod Alanı:

Option Explicit

Private Sub Form_Load( )
Dim X%, AA$

For X = 0 To Printers.Count - 1
AA = Printers(X ).DeviceName
AA = AA & Space$(35 - Len(AA ) ) & Printers(X ).Port
List1.AddItem AA

If Printer.DeviceName = Printers(X ).DeviceName Then
Label1.Caption = "Varsayilan Yazici: " & AA
End If
Next X
End Sub

Yorumlar

İsminiz
Yorumunuz

Henüz bu içeriğe yorum yazılmamış.
İlk yazan siz olun

Doruktr.Com, Bu sayfada yer alan bilgilerin her hakkı, aksi ayrıca belirtilmediği sürece Doruktr.Com'a aittir. Sitemizde yer alan içerik ilgili telif hakları şiirler bölümü için şairlerin kendilerine, diğer bölümler için içeriği ekleyen kişiye aittir. Sitemiz hiç bir şekilde kâr amacı gütmemektedir ve sitemizde yer alan tüm materyaller yalnızca bilgilendirme ve eğitim amacıyla sunulmaktadır.Hiçbir şekilde sorumluluk kabul edilmez.