Kod ile yazıcının tepsisini nasıl seçtirebilirim

Katılım
22 Nisan 2005
Mesajlar
121
Excel Vers. ve Dili
xp
Merhaba arkadaşlar,

Yazıcının 1.tepsisinde A4, 2.tepsisinde yine A4 antetli kağıt var.
Ben excel sayfamın printer komutu ile sürekli 2.tepsiye (antetli kağıda)yönlenmesini
istiyorum.
Bir network ağında birkaç tane printer var kod ile yazıcıyı
seçtirebiliyorum. Bu kodları record macro ile elde ettim.
Ancak yazıcının properties/özelliklerine girerek 2.tepsiyi
seçtiğimde record macro bu kodu vermiyor.
Yazıcının default ayarlarında 1.tepsi ayarlı olduğundan
düz A4'dün bulunduğu 1.tepsiye gidiyor.

Record Macro'nun verdiği kod:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Application.ActivePrinter = "\\server1\Kyocera Mita FS-9520DN KX on Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\server1\Kyocera Mita FS-9520DN KX on Ne01:", Collate:=True

End Sub

şeklinde.


VBA kodları ile yazıcının properties/özelliklerine müdahale ettirebilirmiyim?

Birde kodu Thisworkbook'a yazmak zorunda kaldım.
Ã?rneğin Sheet1'e yazamazmıyım. Çünkü Sheet2'ninde başka bir yazıcıya veya başka bir tepsiye gitmesini istiyorum. Workbook'a
Private Sub Workbook_BeforePrint(Cancel As Boolean)
şeklinde yazdığım zaman tüm sayfalar aynı yazıcıya gidiyor.
Bunu Modül içine kod yazarak herbir sheet'i istediğim yazıcıya veya
tepsiye yönlendirme yapabilirmiyim?

Yardımlarınız için şimdiden teşekkürler.
 

yavuzadak

Altın Üye
Katılım
31 Mayıs 2005
Mesajlar
92
Excel Vers. ve Dili
Excel 2019 Türkçe 64 bit
Altın Üyelik Bitiş Tarihi
18-02-2026
ekteki dosyayı inceleyin işinize yarar diye düşünüyorum
 
Katılım
5 Ağustos 2005
Mesajlar
37
Excel Vers. ve Dili
Office 2007 Pro Eng
Sevgili GALKAN,

Bunu ben yeni macro kaydet ile çözmüştüm.Bütün yaptırmak istediğimiz işlemleri macro kaydederken yapıyoruz.Tepsi seçme imkanıda yazdırma seçeneklerinde printer setup ında mevcut. bütün hepsini macro kayıt ederken yapıyorsun.. daha sonra macro içinde ayıklayabilirsin.istemediğin kodları çıkarabilirsin.

eğer bununla ilgili sorun olursa jolaus_e@hotmail.com msn messenger adresime yaz

sevgiler.


jolaus
 
Katılım
22 Nisan 2005
Mesajlar
121
Excel Vers. ve Dili
xp
Sayın jolaus
ilginiz için teşekkürler
Dediğiniz gibi zaten yaptım ancak "Record Macro"
Printer'ın Ã?zellikler'inde yaptığınız işlemleri
kaydetmiyor.
Printer'ı seçebiliyorum, Marjin, Kağıt Tipi, Baskı Sayısı gibi seçenekleri
"Record Macro" ile kaydedip kodları görebiliyorum.
Ancak Preoperties/Ã?zellikler ile ilgili yapılan işlemleri kaydetmiyor.
Tepsi seçimini de buradan yapmam gerekiyor.
Bahsettiğim Printer Network üzerinde ve birden fazla printer var.
Sanırım bu iş beni biraz aşıyor.
Haluk arkadaşımızın verdiği linke baktım ama benim o kodları
anlayacak kadar bilgim yok.
Anlayacağınız Word'de de bu işi çözemedim.
Yinede ümidimi kesmiş değilim. Forumda bana yardım edebilecek
birileri mutlaka vardır.
Yardımlarınızı beklemeye devam edeceğim.
Tesekkurler
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Denemedim ama, belki şöyle bir şey olabilir ...

Kullanacağınız her tepsi için Windows'a ayrı ayrı yazıcıyı tanıtın ve oluşturun. Her birinde değişik tepsileri ayarlayın. Yani aynı yazıcıyı, "varsayılan" tepsileri değişik olmak üzere istenilen adette oluşturun.

Daha sonra, hangi tepsiye göndermek istiyorsanız VBA ile o yazıcıyı seçin.
 
Katılım
9 Haziran 2006
Mesajlar
16
Excel Vers. ve Dili
Excel-2003
Türkçe
Evet olabilir. Teşekkür ederim.
 
Üst