yazdırma alanı belirle

[ismailozkan4224]

değerli arkadaşlar aşağıdaki kodla bir alan seçiyorum. bu seçili alanı aynı zamanda yazdırma alanı yapmak istiyorum. kod nasıl revize edilmeli acaba

Sub sec()
sut = ActiveSheet.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
sat = Cells(65536, "B").End(xlUp).Row
Range(Cells(1, 2), Cells(sat, sut)).Select
End Sub

 

[hamitcan]

Makro Kaydet yöntemi ile yapabilirsiniz.

ActiveSheet.PageSetup.PrintArea = Selection.Address

 

[ismailozkan4224]

teşekkür ederim hamitcan.