| Navigation |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
SİSTEMDEKİ YAZICILARI 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 |
|
|
|
|
|
|
|
|
|
|
| |
Bugün 33 ziyaretçi (40 klik) buradaydı |
|
|
|
|
|
|
|
