10 Sayfa çizelgeyi aynı anda yazıcıya gönderebilirmiyiz?

[yyhy]

Kolay gelsin iyi günler…Benim hazırladığım çizelgede bulunan 10 sayfayı ayrı ayrı sayfalara girmek suretiyle yazdırıyorum. Yazdır butona tek tıklamak suretiyle 10 sayfayı aynı anda yazıcıya göndermek istiyorum. Acaba bir makroatama konusunda yardımcı olursanız memmun olurum. İlgilenen arkadaşlara şimdiden teşekkürler. Örnek dosya ektedir.

 

[AS3434]

Butonunuza aşağıdaki kodları bağlayın.

Sub Yazdır()
    ilk = Application.InputBox("Hangi Sayfadan?")
    If ilk= Cancel Then Exit Sub
    son = Application.InputBox("Hangi Sayfaya Kadar?")
    If son = Cancel Then Exit Sub
    For a = ilk To son
    Sheets(a).PrintOut Copies:=1
    Next
    MsgBox ("Yazdırma Tamamlandı")
End Sub

Aşağıdaki kodlarla 1 den fazla nüshayı aynı anda alabilirsiniz.

Sub Yazdır()
ilk = Application.InputBox("Hangi Sayfadan?")
If ilk = Cancel Then Exit Sub
son = Application.InputBox("Hangi sayfaya Kadar?")
If son = Cancel Then Exit Sub
nsh = Application.InputBox("Kaç Nüsha?")
If nsh = Cancel Then Exit Sub
For a = ilk To son
Sheets(a).PrintOut Copies:=nsh
Next
MsgBox ("Yazdırma Tamamlandı")
End Sub

 

[hamitcan]

Eki inceleyin.

 

[Seyit Tiken]

Sub Düğme1_Tıklat()
For s = 1 To 10
Sheets(s).PrintOut
Next
End Sub

Şeklinde deneyiniz.

 

[yyhy]

Excel Web tr ve ilgilenen arkadaşlara teşekkürler