Tüm çalışma sayfalarını yazdırma

[ugurex]

Merhaba,
Aşağıdaki kod ile aktif çalışma sayfasındaki belli bir hücre aralığını yazıcıya gönderiyorum. Çalışma kitabındaki tüm sayfalarda aynı hücre aralığını nasıl yazdırabilirim? Çalışma kitabı içinde yaklaşık 200-300 sayfa var ve bu sayfa isimleri değişiyor sabit değil. Bir butonla mevcut sayfaların tümünde aynı hücre aralığını yazdırmak istiyorum ???

Sub yillikizinyazdir()

    Range("A1:K47").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$K$47"
    ActiveWindow.SmallScroll Down:=-69
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False

End Sub

 

[yanginci34]

Denermisiniz.
Sub yillikizinyazdir()
Dim i
For i = 1 To Worksheets.Count
Worksheets(i).celect
Range("A1:K47").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$47"
ActiveWindow.SmallScroll Down:=-69
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Next

End Sub

 

[Orion1]

Tüm sayfaları yazdırır.
Alternatif.

Sub yillikizinyazdir59()
Dim sh As Worksheet
    For Each sh In Worksheets
        sh.PageSetup.PrintArea = "$A$1:$K$47"
        sh.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Next

End Sub

 

[ugurex]

teşekkür ediyorum her iki kod çalışıyor,
çalışma kitabında ilk üç sayfa hariç (bu sayfaların ismi belli ve sabit), diğer tüm sayfaların yazılmasını istesem çok şey mi istemiş olurum

 

[ugurex]

aynı hücre aralığı olacak yine

 

[Orion1]

teşekkür ediyorum her iki kod çalışıyor,
çalışma kitabında ilk üç sayfa hariç (bu sayfaların ismi belli ve sabit), diğer tüm sayfaların yazılmasını istesem çok şey mi istemiş olurum

Buyurun.

Sub yillikizinyazdir59()
Dim sh As Worksheet
    For Each sh In Worksheets
        If sh.Index > 3 Then
            sh.PageSetup.PrintArea = "$A$1:$K$47"
            sh.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
        End If
    Next

End Sub

 

[ugurex]

Buyurun.

Sub yillikizinyazdir59()
Dim sh As Worksheet
    For Each sh In Worksheets
        If sh.Index > 3 Then
            sh.PageSetup.PrintArea = "$A$1:$K$47"
            sh.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
        End If
    Next

End Sub

emeğinize sağlık hocam istediğim gibi çalıştı teşekkürler...

 

[Orion1]

emeğinize sağlık hocam istediğim gibi çalıştı teşekkürler...

Rica ederim.
İyi çalışmalar.