sadece bir sayfa için default olmayan yazıcı seçmek

[flamenker]

Merhaba,
Daha önce sanırım eksik sordum.
Ben sadece özel 1 sayfada yazdır dendiğinde default olmayan bir yazıcının otomatik seçilmesini istiyorum sonra bu sayfadan çıkınca başka sayfada yine default yazıcının seçili olmasını istiyorum.

http://www.sendspace.com/file/pjz69l
Çalışmam burda .

 

[mustafaine1]

  ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
            "hp laserjet 1022 on ne02:"
            
            Dim STDprinter As String
    STDprinter = Application.ActivePrinter
    Application.ActivePrinter = "Kyocera TASKalfa 300ci KX on ne01:"

kodu bu sekilde deneyiniz...

hp laserjet 1022 ----> yazdirmak istediginiz printer adi..
Kyocera TASKalfa 300ci KX ----------> default printer adi..

ne01 degisken olabilir ne02,ne03,ne04 seklinde deneyiniz zaten o networkte tanimazsa o bolumde hata verecektir, hata vermediginde dogru on ne yapmissiniz demektir..

 

[flamenker]

Ben bu kodu visual basic düzenleyicisinden ilgili sayfaya yazıyorum.
Hiç öyle hata falan vermiyor.İster "ne" yazayım ister yazmayım ister de rastgele yazayım.
Adeta bu kod yokmuş gibi hem çalışmıyor hem de hata da vermiyor.
İlginize çok teşekkür ederim.

 

[mustafaine1]

hp laserjet 1022 Bu printer adinin yerine kendi printer adinizin tamamini yazip butonla macro gibi calistiriyorsaniz, sorununuz baska kisimda olmali sanirim, yardimci olamadigim icin uzgunum fakat kendim denedigimi tekrar bildirmek isterim; iyi aksamlar...

 

[flamenker]

Şimdi anlaşıldı.
Ben butona falan yazmıyordum. Direk sayfaya yazıyordum.
Peki o şekilde olamaz mı? Butonda olmasada o sayfa seçilir seçilmez o yazıcı seçilse.
Sayfadan çıkınca da defaulta dönse.
Çünkü buton olunca yine unutulur sanırım.
Yardımınız için çok teşekkürler.

 

[mustafaine1]

Nail yani her sayfayi actiginizda direk print mi alicak?

 

[flamenker]

Hayır şimdi diyelim 5 sayfa var çalışmamızda.
ben sayfa 2 yi butonuna basarak seçince ve yazdır dediğimde default olmayan başka 1 printer otomatik olarak seçilmiş olsun sonra sayfa 1 e geçersem default printer seçili olsun.
Biz kendi çalışmamızla fatura bastığımız için çıkınca bu unutulunca sefer extreler de fatura kağıdına basılıyor ve hem faturalar ziyan oluyor hem sinirler.
Ayrı bir yazdırma butonuna ihtiyacımız yok.Sadece o sayfada istenen yazıcı seçili olsa yeter.

 

[mustafaine1]

Tamam bence en sagliklisi zaten buton koymak butona bastiginizda emin olursunuz ki her seferinde istediginiz printer`a gidicek; yanlis mi dusunuyorum..

 

[flamenker]

Doğru sanırım ama bu butona basılınca direk çıktı mı alınıyor yoksa sade yazıcı mı seçiliyor ona göre değişir.
Eğer butona basınca istenen yazıcıdan direk çıktı alınıyorsa bu süper.
Şimdi butona gelirsek
PrintOut Copies:=1 satırında 1 de hata veriyor ve diyor ki:
compile error invalid outside procedure

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. YAZICILAR isimli sayfaya sisteminizdeki yüklü yazcılar listelenir. A3 (Sarı) renkli hücredeki yazıcıyı ben kendi sistemime göre kullandım. Sayfa3 isimli sayfa seçilince A3 hücresindeki yazıcı varsayılan olarak atanır. Siz yazdırma işlemi yaptığınızda otomatik olarak bu yazıcıya çıktı gönderilir. Diğer sayfalarda ise eski varsayılan yazıcı devreye girer. Kodlar ThisWorkbook bölümündedir.

Dilerseniz YAZICILAR isimli sayfayı gizleyebilirsiniz.

 

[mustafaine1]

Doğru sanırım ama bu butona basılınca direk çıktı mı alınıyor yoksa sade yazıcı mı seçiliyor ona göre değişir.
Eğer butona basınca istenen yazıcıdan direk çıktı alınıyorsa bu süper.
Şimdi butona gelirsek
PrintOut Copies:=1 satırında 1 de hata veriyor ve diyor ki:
compile error invalid outside procedure

direk cikti aliyor sayin flamenker rica etsem dosyanizin son halini eklermisiniz, hatanin nasil olustugunu anlayamiyorum, tesekkurler..

 

[flamenker]

dosya

Dosyanın son hali burada.

http://www.sendspace.com/file/kctth5
Macro fatura irsaliyeli butonuna basınca çıkan sayfada alttaki liste butonuna atanmış durumda.tıklayarak kontrol edebilirsiniz.
Umarım olur vakşt ayırdığınız için teşekkürler.
Korhan bey sizin vermiş olduğunuz kodları da inceliyorum çok sağolun.

 

[flamenker]

Korhan Bey
Peki sadece tek sayfa değilde 2 sayfa için varsayılan olmayan bir yazıcı kullanmak istersek ?
Bu if li kodları tekrar yazdım oldukça yavaşladı sizin öneriniz var mı?
Mesela sadece sayfa 3 de değilde hem 3 hemde 5 te bu yazıcıyı kullansın dersek nasıl ifade ederiz.

 

[mustafaine1]

kodlari module icerisine yazmamissiniz o yuzden hata veriyor..

  Sub fatura_bas()
  End Sub
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
            "panasonic kx-p1150"
            
            Dim STDprinter As String
    STDprinter = Application.ActivePrinter
    Application.ActivePrinter = "Kyocera TASKalfa 300ci KX on ne01:"
End Sub

ve fatura bas macrosuna bir buton atayiniz..

 

[mustafaine1]

kodlari module icerisine yazmamissiniz o yuzden hata veriyor..

  Sub fatura_bas()
  End Sub
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
            "panasonic kx-p1150"
            
            Dim STDprinter As String
    STDprinter = Application.ActivePrinter
    Application.ActivePrinter = "Kyocera TASKalfa 300ci KX on ne01:"
End Sub

ve fatura bas macrosuna bir buton atayiniz..

bu arada Kyocera TASKalfa 300ci KX yazan yere default printerinizin adini yazmaniz gerekiyor..

 

[flamenker]

Çok teşekkürler emeğinize sağlık.

 

[mustafaine1]

Sorunun cozulup cozulmedıgını anlayamadım ? soruna dair bisey yazmamissiniz..

 

[flamenker]

Sonucu yazmamışım farketmedim.
Sorun çözüldü teşekkürler.

 

[baydeniro]

Teşekkürler

 

[l_a_b]

yazıcı buton

iyi geceler.
benim sorum oluşturduğumuz butonlara varsayılan yazıcıiçin farklı buton . ağ yazıcıları için farklı buton tanımlayabilirmyiz.
örnrk buton 1 e basınca varsayılan yazıcıya göndersin.
buton 2 ye basınca ağ üzrinde hp5500 e gödersin
buton 3 e basınca nokta vurşlıya göndesin
buton 4 e basınca bilgisayarıma bağlı barkod yazıcıya göndersin ?
teşekkürler.