yazdırma alanı sayı ile sınırlama

[ikikan]

Sub yazdirma_alani()
sol_ust = "$A$1"
sag_alt = "$G$20"
alan = sol_ust & ":" & sag_alt
ActiveSheet.PageSetup.PrintArea = alan
End Sub
-----------
arkadaşlar üsteki formülü a1 den g20 kadar degilde
1ila 1000 satır arasını 60 şar 60 şar bölerek sayfala diye bilirmiyiz
ayrıca sınırladıgımız yerdeki veriler dige sayfaya geçmiyecek şekilde

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz..

Sub Yazdır()
 
Application.ScreenUpdating = False
 
On Error Resume Next
 
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$1000"
 
ActiveWindow.View = xlPageBreakPreview
    Set ActiveSheet.HPageBreaks(1).Location = Range("A61")
ActiveWindow.View = xlNormalView
 
[COLOR=green]'ActiveSheet.PrintOut[/COLOR]
 
Application.ScreenUpdating = True
 
End Sub

.