yazdırma hatası

[bitmez13]

Private Sub yazdır_Click()
Range("A1:T156").Select
ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveWindow.SmallScroll Down:=-165
Range("S3").Select
End Sub

yukardaki kod ile a1 den t 156 arası seçili yarin yazdırılması isteniyor ama ne hikmetse sayfada ne kadar dolu yer varsa yazdırıyor acaba hata nerde olabilir

 

[asi_kral]

Merhaba
Bu kod işinizi görür sanırım.

Sub Makro1()
ActiveSheet.PageSetup.PrintArea = "$A$1:$T$156"
ActiveSheet.PrintOut , , 1, , , , True
Range("S3").Select
End Sub