Yazıcı seçimi

Katılım
6 Aralık 2021
Mesajlar
38
Excel Vers. ve Dili
Excel2016
Türkçe
Merhabalar
Ben bir yazdırma programı yaptım fakat şöyle bir şey istiyorum
Yazdır butonuna bastığımda eğer "pantum 250 series" isimli yazıcı seçili ise devam etsin, ama başka bir yazıcı seçili ise yazıcı seçme ekranını getirsin
Şimdiden teşekkürler
Şirket dosyası olduğu için dosyayı paylaşamıyorum
 
Katılım
1 Aralık 2017
Mesajlar
222
Excel Vers. ve Dili
Microsoft Office 365 ProPlus
Altın Üyelik Bitiş Tarihi
18-01-2025
hocam excell pc varsayılanı ne ise onu görür direk diye biliyorum.
yada yazıcı makrosundan once msgbox ile yazıcıyı kontrol et diye uyarı verdirebilirsiniz.
 

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,405
Excel Vers. ve Dili
2007 Türkçe
Merhaba,
Aşağıdaki şekildeki bir yapı işinizi görecektir sanıyorum.
Burada dikkat edeceğiniz husus yazıcı isminin görünenden farklı olacağıdır. Şurada yer alan kod ile bilgisayarınızdaki yazıcı isimlerini listeleyebilirsiniz.
Kod:
If Application.ActivePrinter Like "*pantum 250 series " Then
    'devam et
Else
    Application.Dialogs(xlDialogPrint).Show
End If
 
Katılım
6 Aralık 2021
Mesajlar
38
Excel Vers. ve Dili
Excel2016
Türkçe
Merhaba,
Aşağıdaki şekildeki bir yapı işinizi görecektir sanıyorum.
Burada dikkat edeceğiniz husus yazıcı isminin görünenden farklı olacağıdır. Şurada yer alan kod ile bilgisayarınızdaki yazıcı isimlerini listeleyebilirsiniz.
Kod:
If Application.ActivePrinter Like "*pantum 250 series " Then
    'devam et
Else
    Application.Dialogs(xlDialogPrint).Show
End If
Teşekkürler hocam
 

ilhan mermer

Altın Üye
Katılım
17 Mayıs 2024
Mesajlar
3
Excel Vers. ve Dili
2404 ingilizce
Altın Üyelik Bitiş Tarihi
18-05-2026
Merhaba,
Aşağıdaki şekildeki bir yapı işinizi görecektir sanıyorum.
Burada dikkat edeceğiniz husus yazıcı isminin görünenden farklı olacağıdır. Şurada yer alan kod ile bilgisayarınızdaki yazıcı isimlerini listeleyebilirsiniz.
Kod:
If Application.ActivePrinter Like "*pantum 250 series " Then
    'devam et
Else
    Application.Dialogs(xlDialogPrint).Show
End If

merhaba,

ben farklı birşey ararken karşılaştım cevabınızla. Acaba kablosuz bağlantı mevcutsa şu yazıcıyı seç, kablo kullanılıyorsa şu yazıcıyı seç demek gibi, bağlantıları kontrol etme şansımız var mı ?

tşk
 
Üst