Macro thiết lập vùng in động trong excel 2010 (1 người xem)

[Phuongdong 2005]

Tôi muốn tạo 1 macro để thiết lập 1 vùng in động trong 1 sheet (vd : NẾU LÀ (1) THÌ VÙNG IN LÀ A1:T49; NẾU LÀ (2) THÌ VÙNG IN LÀ A1:T90)
Tôi đã tìm kiếm trên mạng và có thấy đoạn code này :
Sub SetPrintArea()
Dim x As Long, y As Long
Dim rngPrintArea As Range

x = Cells(1, Columns.Count).End(xlToLeft).Column
y = Cells(Rows.Count, 1).End(xlUp).Row

Set rngPrintArea = Range(Cells(4, 1), Cells(y, x))

ActiveSheet.PageSetup.PrintArea = rngPrintArea.Address

End Sub
Tôi không biết về macro, nên không biết có được không và cũng không biết cách sử dụng
Rất mong mọi người trợ giúp
Cảm ơn

 

[phucbugis]

Tôi muốn tạo 1 macro để thiết lập 1 vùng in động trong 1 sheet (vd : NẾU LÀ (1) THÌ VÙNG IN LÀ A1:T49; NẾU LÀ (2) THÌ VÙNG IN LÀ A1:T90)
Tôi đã tìm kiếm trên mạng và có thấy đoạn code này :
Sub SetPrintArea()
...
EndSub
Tôi không biết về macro, nên không biết có được không và cũng không biết cách sử dụng
Rất mong mọi người trợ giúp
Cảm ơn

- tuỳ thuộc vào bố cục của sheet đó,
- bạn nên đính kèm thêm File thì người khác mới biết được chính xác code đó có chạy đúng hay là ko?