Code VBA:

Sub Macro1()

   Application.ScreenUpdating = False

   On Error Resume Next

   With ActiveSheet

       .PageSetup.Zoom = 100

       ActiveWindow.View = 2

       .VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1

       ActiveWindow.View = 1

   End With

End Sub

DienDan.Edu.Vn Cám ơn bạn đã quan tâm và rất vui vì bài viết đã đem lại thông tin hữu ích cho bạn.
DienDan.Edu.Vn! là một website với tiêu chí chia sẻ thông tin,... Bạn có thể nhận xét, bổ sung hay yêu cầu hướng dẫn liên quan đến bài viết. Vậy nên đề nghị các bạn cũng không quảng cáo trong comment này ngoại trừ trong chính phần tên của bạn.
Cám ơn.