Yazdır Makrosu (Buton ve data farklı sayfalarda)

[1Al2Ver]

Merhaba, aşağıdaki linkte sorulmuş ancak cevap dosyası silindiğinden cevabı göremedim,

http://www.excel.web.tr/f48/onizleme-ve-yazd-rma-makrosu-t46042.html

İsteğim ; 5 sayfalık çalışma kitabında "sayfa3(fatura)" isimli sayfada yazdır butonum var, bu butona "sayfa4(yazıcı)" isimli sayfadaki A6:F55 aralığını atamak ve sonucunda da bu buton ile yazdırmak istiyorum,

Bu işlemi gerçekleştirecek kodu rica ediyorum, teşekkür ederim.

 

[Ömer]

Merhaba,

Sub Yazdır()
     Sheets("yazıcı").Range("A6:F55").PrintOut
End Sub

Doğru anladıysam bu şekilde kullanabilirsiniz..

.

 

[1Al2Ver]

Merhaba,

Sub Yazdır()
     Sheets("yazıcı").Range("A6:F55").PrintOut
End Sub

Doğru anladıysam bu şekilde kullanabilirsiniz..

.

Sayın espiyonajl merhaba,

Sorunum çözüldü, ilginiz ve emeğiniz için teşekkür ederim,

Saygılarımla.

 

[Ömer]

Rica ederim, iyi çalışmalar.

Saygılar..

 

[1Al2Ver]

Sub Yazdır()
     Sheets("yazıcı").Range("A6:F55").PrintOut
End Sub

Yukarıdaki koda ilave yaparak ;

Sistemde 2 farklı yazıcı varken ( 1- Brother M... 2- Panasonic KX-P 1150 ) ve Brother M... varsayılan yazıcıyken,

Yazdır butonu tıklandığında verileri 2 nolu yazıcı olan Panasonic KX-P 1150'den yazdırmak mümkün mü ? Mümkün ise ilave kodu değil ise işlemi gerçekleştirebilen yeni kodu rica ediyorum,

Teşekkür ederim.

 

[1Al2Ver]

Sub Yazdır()
     Sheets("yazıcı").Range("A6:F55").PrintOut
End Sub

Yukarıdaki koda ilave yaparak ;

Sistemde 2 farklı yazıcı varken ( 1- Brother M... 2- Panasonic KX-P 1150 ) ve Brother M... varsayılan yazıcıyken,

Yazdır butonu tıklandığında verileri 2 nolu yazıcı olan Panasonic KX-P 1150'den yazdırmak mümkün mü ? Mümkün ise ilave kodu değil ise işlemi gerçekleştirebilen yeni kodu rica ediyorum,

Teşekkür ederim.

Merhaba,

Çözüm olabilecek bir kod rica ediyorum.

Teşekkür ederim.

 

[SER973]

Kodu Şu Şekilde denermisiniz..

Sub Yazdır()
Application.ActivePrinter = "Panasonic KX-P 1150 on Ne01:"
Sheets("yazıcı").Range("A6:F55").PrintOut

End Sub

 

[1Al2Ver]

Kodu Şu Şekilde denermisiniz..

Sub Yazdır()
Application.ActivePrinter = "Panasonic KX-P 1150 on Ne01:"
Sheets("yazıcı").Range("A6:F55").PrintOut

End Sub

Merhaba Sayın SER973,

Cevap için teşekkür ederim, anılan yazıcı büroda, Pazartesi deneyip sonucu bildireceğim,

Saygılarımla.