yazdır butonu

[polis-53]

Merhaba arkadaşlar benim excel dosyamda icmal sayfasında yazdır butonum var ben bu butonun hangi sayfadaysam o sayfada gözüksun istiyorum acaba münkünmü böyle birşey yazdır kodum aşağıdaki gibidir.
İyi çalışmalar.
Sub Sayfaları_Yazdır_Polis()
Dim asi As String, Polis, a As Long
Polis = InputBox("Kopya Sayısı", "Kopya Sayısı Giriniz")
If Polis = "" Then Polis = 1
asi = Application.Dialogs(xlDialogPrinterSetup).Show
If asi = False Then Exit Sub
For a = 1 To 14
Sheets(a).PrintOut copies:=Polis
Next
MsgBox "İşelm Tamamlandı", vbInformation, "Polis"
End Sub

 

[Seyit Tiken]

UserForm kullanabilirsiniz.

 

[Murat OSMA]

Ayrıca butonu menülerinize ek yapabilirsiniz.
Ya da her sayfanın sabit bir hücresine tıkladığınızda yazdırabilirsiniz... vs. vs.