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

[galkan]

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.

 

[Haluk]

MS Word ile bu iş API'ler ile yapılabiliyor ama Excel'in PageSetUp özelliği bu işi desteklemiyor galiba...

http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=101

 

[yavuzadak]

ekteki dosyayı inceleyin işinize yarar diye düşünüyorum

 

[jolaus]

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

 

[galkan]

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

 

[haydar]

Bu yanıt bana da lazım...

 

[Haluk]

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.

 

[haydar]

Evet olabilir. Teşekkür ederim.