Sub getPageBreak()
Dim sh As Worksheet, ra As Range, hPB As HPageBreak
With Application
.ScreenUpdating = False
Set sh = ActiveSheet
sh.ResetAllPageBreaks
sh.Range("A:A").ClearComments
ActiveWindow.View = xlPageBreakPreview
For i = 1 To sh.HPageBreaks.Count
sh.HPageBreaks(i).Location.Offset(-1).AddComment ("Ngat trang tai day")
Next
ActiveWindow.View = xlNormalView
.ScreenUpdating = True
End With
End SubSub getPageBreak()
Dim sh As Worksheet, ra As Range, hPB As HPageBreak, i As Long
With Application
.ScreenUpdating = False
Set sh = ActiveSheet
sh.ResetAllPageBreaks
sh.Range("A:A").ClearComments
ActiveWindow.View = xlPageBreakPreview
On Error Resume Next
For i = 1 To sh.HPageBreaks.Count
'thay doi gia tri 3 trong Resize(2, 3) theo so cot thuc te cua bang tinh'
With sh.HPageBreaks(i).Location.Offset(-1, 1).Resize(2, 3)
.Borders(xlInsideHorizontal).LineStyle = xlLineStyleNone
.Borders(xlInsideHorizontal).LineStyle = xlContinuous ' 1 net - 2 net: xlDouble'
End With
Next
On Error Goto 0
ActiveWindow.View = xlNormalView
.ScreenUpdating = True
End With
End Sub
đây là mình làm thủ công từng trang in rất mất thời gian khi in nhiều trang)
Chào các bạn!
Bạn nào có thể giúp mình khắc phục cái này được không?
Khi in trong Excel 2010 mà có từ 2 trang in trở lên, và khi qua trang in thì trang đó lạị không có đường viền trên viền dưới(và kể cả trang đầu tiên cũng không có viền dưới), khi in ra nhìn rất mất thẩm mỹ:
View attachment 108826
Mình muốn trang in phải tự động có viền mỗi khi qua trang
View attachment 108827
Mong nhận được sự giúp đỡ từ các bạn.
Cảm ơn rất nhiều!
