TEK BUTON İLE İKİ FARKLI YAZICIDAN YAZDIRMA

[quetri]

Merhaba herkese iyi çalışmalar. Şuan aktif kullandığım bir macro'm var. Kendi yaptığım butona basıyorum ve yazdırma sayfamdaki alan otomatik olarak varsayılan yazıcıdan çıktı olarak geliyor.
Fakat şimdi yapmak istediğim şu; yine aynı şekilde tek buton kullanarak 2 farklı yazıcıdan çıktı alabilirmiyim ?
Örneğin, butona tıkladığımda 1. sayfa 1. yazıcıdan 2. sayfa 2. yazıcıdan direkt olarak çıksın.

bunu yapabileceğimiz bir macro yada yöntem varmıdır. Şimdiden teşekkürler

 

[quetri]

Yani sayfa dediğim aynı sayfadaki alandan bahsetmiyorum farklı sayfalardan yazdıracağım

 

[bmutlu966]

İnceleyiniz.

 

[quetri]

bu bir nevi iş görür fakat ben 2 farklı sayfanın 2 farklı yazıcıdan çıkmasını sağlayacak bir kod arıyorum. tek buton ile!
Örneğin; bir print butonu yaptım macro ile

Sub SIPARISYAZDIR()
'
' SIPARISYAZDIR Makro
'

'
    Sheets("SIPARISFORMU").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

bu şuanki kullandığım buton. ben yine bu butona tıklayınca yine bu sayfayı yazdıracak ve 2.sayfayıda farklı yazıcıdan yazdıracak
umarım iyi anlatabilmişimdir

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
Anladığım kadarı ile, Sub SIPARISYAZDIR() makrosunu siz hazırlamışsınız. Bir daha printer seçerek hazırlayın lütfen. Aynı şekilde diğer sayfa için de makro hazırlayın. Diyelim Sayfa2_YAZDIR olsun adı. Bu makroda End Sub satırının üzerindeki satır olarak Call Sayfa2_YAZDIR ifadesini yazarak tamamlayın bu makroyu. Düğmeye bastığınızda iki yazıcı da verilenleri basacaktır.
İyi çalışmalar

 

[quetri]

Merhaba, ya kusura bakmayın kodlardan hiç anlamıyorum o yüzden destek istiyorum. Şuanki kodları yardımcı oldularda öyle yaptık

 

[quetri]

Yardımcı olabilecek varmı ? halen yapamadım

 

[quetri]

ana sayfamdaki macro kaydettiğim butona basınca çalışma sayfası 1 hpden yazılsın, çalışma sayfası 2 epsondan yazılsın istiyorum bunu yapmaya çalışıyorum

 

[Korhan Ayhan]

Merhaba,

Yazıcı kodlarını tespit etmek için MAKRO KAYDET yöntemini deneyebilirsiniz.

 

[quetri]

Malesef o yöntem ile de olmuyor fakat ben çözümü buldum çok teşekkürler herkese

 

[quetri]

Belki benim gibi ihtiyacı olan olursa diye paylaşıyorum çözümü:

Sub YAZDIR()
'
' YAZDIR Makro
'

'
    Sheets("SAYFA1").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="HP", Collate:=True, _
    IgnorePrintAreas:=False
    
    Sheets("SAYFA2").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="EPSON", Collate:=True, _
        IgnorePrintAreas:=False
End Sub

BURADA BENİM YAZICILAR HP VE EPSON OLARAK SİZ KENDİNİZE GÖRE DEĞİŞTİREBİLİR VE KOPYA SAYILARINIDA DEĞİŞTİREBİLİRSİNİZ. SORUNSUZ ÇALIŞIYOR