Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Sub PrintArea_Test02() 'Thiết lập vùng in tới dòng cuối
Sheet1.PageSetup.PrintArea = Sheet1.Range("B2", Sheet1.Range("G65536").End(xlUp)).Address
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment