yazıcı seçme

[teonet]

Merhaba,
Aşağıdaki kodu bir butona yazdığımda o sayfayı yazıcıya gönderiyor.
Sorum şu; Bu bilgisayara bağlı birden çok yazıcı var. yazıcı ismini nasıl sabitleyebilirim.


Private Sub CommandButton1_Click()
Sheets("1").PrintOut
End Sub


Saygılarımla

 

[hamitcan]

Cells(, 1) = Application.ActivePrinter 'Önce aktif yazıcınızı bulun.
     Application.ActivePrinter = "Aktif yazıcınızın ismi " 'Sonra kod satırına yazın.

 

[teonet]

Sayın Hamitcan

Yazıcının adresi aşağıdaki gibi. Bunun hangi kısmını nasıl uygulayacağım. Yardımcı olabilir misiniz? Bir şeyler denedim başaramadım.

Denetim Masası\Tüm Denetim Masası Öğeleri\Aygıtlar ve Yazıcılar\10.xxx.x.xxx üzerinde EPSON FX Series 1 (136)

Saygılarımla

 

[Emir Hüseyin Çoban]

Calismaniz sadece kendi bilgisayarinizda mi kullanilacak yoksa
Baska bilgisayarlarda da yazdirma islemi olacak mi.

.

 

[teonet]

Sayın Emir
Başka bilgisayarlarda da olacak.

Saygılar

 

[Emir Hüseyin Çoban]

. . .

Makro kaydet ile yazıcınızın Ne:* ile başlayan ismini bulabilirsiniz.
Daha sonra linkteki gibi bir çalışma yaparak çözülebilir.

http://www.excel.web.tr/f48/vba-yazycy-secimi-yapma-atama-deoi-tirme-t154920.html

. . .

 

[teonet]

Yarın işe geçtiğimde denemeye çalışacağım. değerli zamanın için teşekkür ederim