Gürol DEMİR

http://www.guroldemir.com

Meslek sahibi olmak bir köye sahip olmaktan daha iyidir.
Benjamin Franklin

::: 4 Şubat Cumartesi :::

:::29 Nisan 2005'den beri 86.352.833 ziyaretci, 2473 günde ortalama 34.918, şu an 86 kişi:::

Sisteme yazıcı kurulmuş mu?

Aşağıdaki fonksiyondan geri dönen değer yoksa sisteme yazıcı kurulmamış demektir. Option Explicit Function YaziciAdi() As String On Local Error Resume Next YaziciAdi = Printer.DeviceName End Function
Bu fonksiyonun kullanımı; Dim Bak$ Bak=YaziciAdi if Bak="" then Msgbox("Yazıcı kurulmamış") else Msgbox("Yazıcı adı:"+Bak) end if
şeklinde olabilir.

:: Bu sayfaya 1.853 kere bakıldı ::