DÜŞEYARADAN GELEN SAYFALARI TOPLU YADA SECEREK YAZDIRMA

[maznun5255]

Merhaba Sn Excel hocalarım.Ekte gorulen dosyamda tarif ettiğim gibi,düşeyara ile aldıgım sayfaları tek tek yada toplu olarak bütün sayfaları yazdırmak için bir makro rica ederim.Yardımcı olur musunuz ?Allah sizlerden razı olsun.Tesekkurler.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.
Boş sayfa yazdırmamak için başlangıç ve bitiş değerlerini kontrol etmeyi unutmayınız.

Sub kod()
With Sheets("FORM")
    bas = .Range("E8").Value
    bit = .Range("F8").Value
    kopya = .Range("E9").Value
    For a = bas To bit
        .Range("E2").Value = a
        .PrintOut Copies:=kopya
    Next
End With
End Sub

 

[maznun5255]

Çok Tesekkurler.Emeğinize saglık.