EXCEL ÇALIŞMA KİTAP YAZDIR MAKROSU

[falcon6638]

excel dosyasında bulunan 3 çalışma kitabından bulunan iki çalışma kitabını yazdırmak için makrosunu nasıl yapabiliriz

 

[kulomer46]

Merhaba

Aşağıdaki Kod Bloğu işinizi görür.

Selamlar...

Sub İsteğe_Bağlı_Sayfa_Yazdır()
'18.10.2019   15:49

c = MsgBox("Çalışma Kitabınızdaki Tüm Sayfalardan" & Chr(10) & "Onay Verdiğiniz Çalışma Sayfaları İçin Yazdırılma İşlemi Başlayacak" & Chr(10) & Chr(10) & "Onaylıyor musunuz?", vbOKCancel, "Onayladığınız Sayfalar Yazdırılacak")
If c = vbCancel Then Exit Sub
yazdırılansayfa = 0

For i = 1 To Sheets.Count

    Sheets(i).Select  
    c = MsgBox("Şu an '" & ActiveSheet.Name & "' Sayfası Aktif" & Chr(10) & Chr(10) & "Bu sayfayı Yazdırmak İstiyor musunuz?", vbYesNo, ActiveSheet.Name & "  Yazdırılsın mı?")  
    If c = vbYes Then  
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False      
        yazdırılansayfa = yazdırılansayfa + 1  
    Else  
        yazdırılmayansayfa = yazdırılmayansayfa + 1          
    End If

Next

MsgBox "Çalışma Kitabınızdaki Toplam " & Sheets.Count & " Çalışma Sayfasından " & Chr(10) & Chr(10) & yazdırılansayfa & " adet Çalışma sayfasını Yazdırdınız.", , "İŞLEM TAMAM"

End Sub

 

[falcon6638]

ONAY OLMADAN YAZDIR TUŞUNA BASTIĞIMDA ÇALIŞMA KİTABININ 2 VE 3 ÇALIŞMA SAYFASINI YAZDIRABİLİRMİYİM

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Sub yazdır()
For a = 2 To 3
Sheets(a).PrintOut
Next
End Sub

Alternatif :

Sub yazdır()
Sayfa2.PrintOut
Sayfa3.PrintOut
End Sub

 

[falcon6638]

TEŞEKKÜRLER İSTEDİĞİM GİBİ OLDU