Dolu sayfaları yazdırma

[kmlpyrz]

Programımda dolu sayfaların sayısını B1 hücresinde görüyorum. Bu sayfaya bir buton ekledim ve yazdır komutu verdim ve şu makroyu atadım.

Sub Yazdır()
ActiveSheet.Shapes("Button 44").Select
Selection.Characters.Text = "YAZDIR"
With Selection.Characters(Start:=1, Length:=6).Font
.Name = "Arial"
.FontStyle = "Kalın"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
Sheets("Sayfa2").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=7, Copies:=1, Collate _
:=True
End Sub

Ancak ben burada "To:= B1 hücresindeki değer" olarak nasıl düzeltebilirim..

 

[aliakgul]

Merhaba;

a=[B1]
Sheets("Sayfa2").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=a, Copies:=1, Collate _
:=True

şeklinde düzenleyebilirsin...

 

[kmlpyrz]

Sayın aliakgul, yardımlarınızdan dolayı teşekküreder, çalışmalarınızda başarılar dilerim.