baskı önizleme makrosunda hata mesajı

[microaim]

değerli arkadaşlar
baskı ön izlemede sayfanın yazdırılacağı sınırları belirliyorum.ama satırlar silindiği zaman yazdırılacak alan büyüklüğünün sabit kalması gerekiyor.
ekte detaylı anlatmaya çalıştım.
iyi çalışmalar...

 

[Levent Menteşoğlu]

Aşağıdaki kodu denermisiniz.

Sub yazdir()
Application.ScreenUpdating = False
ActiveSheet.PageSetup.PrintArea = ""
ActiveWindow.View = xlPageBreakPreview
say = ActiveSheet.HPageBreaks.Count + 1
For a = 1 To say - 1
Set ActiveSheet.HPageBreaks(a).Location = Range("A" & a * 50 + 1)
Next
ActiveWindow.View = xlNormalView
ActiveWorkbook.PrintOut
End Sub

 

[microaim]

hocam çok güzel olmuş ellerinize,bilginize sağlık.bir teşekkürün çok az olduğunu biliyorum.ama şimdilik elimden sadece bu geliyor.Allah razı olsun