Viết code để dịnh dạng dòng đầu tiên và dòng cuối cùng của mỗi trang

[bee111]

Xin chào tất cả các anh chị em.
-Tôi có một sheet gồm nhiều trang bảng tính, trong sheet có dấu ngắt trang page Break nên số dòng mỗi trang không giống nhau. Nhưng tôi muốn định dạng cho dòng đầu tiên và dòng cuối cùng cho mỗi trang thì code như thế nào?
-Câu lệnh nào để phát hiện dấu ngắt mỗi trang in (page Break Preview)cbằng vba ?
Các bạn giúp tôi với, xin cảm ơn.

 

[vu_tuan_manh_linh]

Tham khảo đoạn code này xem thế nào:

Sub HPB_Thin()
Dim pb As HPageBreak
Dim LastRow As Long
ActiveWindow.View = xlPageBreakPreview
For Each pb In ActiveSheet.HPageBreaks
LastRow = pb.Location.Offset(-1, 0).Row
With ActiveSheet.Range("A" & LastRow & ":G" & LastRow).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
Next pb
ActiveWindow.View = xlNormalView
End Sub

 

[bee111]

Cảm ơn bạn Vu-Tuan -Manh_Linh.
- Code của bạn chạy được nhưng bảng tính của tôi bị trộn 2 ô cel làm 1 nên chạy bị lỗi. Vì bảng tính của tôi các cells bị trộn giữa chỗ phân trang nên khi in có chữ ở ô trộn bị cắt đôi chữ.
- bạn giúp tôi lập code để căn lề tự động top hoặc bottom để chữ không bị cắt đôi ở dòng đầu hoặc cuối mỗi trang in nhé.
Tôi có gửi file mẫu kèm theo, bạn xem giúp.

 

[vu_tuan_manh_linh]

Cảm ơn bạn Vu-Tuan -Manh_Linh.
- Code của bạn chạy được nhưng bảng tính của tôi bị trộn 2 ô cel làm 1 nên chạy bị lỗi. Vì bảng tính của tôi các cells bị trộn giữa chỗ phân trang nên khi in có chữ ở ô trộn bị cắt đôi chữ.
- bạn giúp tôi lập code để căn lề tự động top hoặc bottom để chữ không bị cắt đôi ở dòng đầu hoặc cuối mỗi trang in nhé.
Tôi có gửi file mẫu kèm theo, bạn xem giúp.

Nhìn dữ liệu của bạn thì có thể khẳng định "không thể làm được theo yêu cầu", trừ phi bạn thay đổi cách trình bày dữ liệu tại cột B. Thay vì để nó nằm giữa hai hàng, bạn có thể đưa khoảng cách lẻ xuống hàng dưới. Tôi làm những bảng "phụ lục khối lượng" hay "bảng cao độ" kiểu này nhiều rồi.

 

[bee111]

Chào bạn Linh, do mẫu bảng biểu bắt buộc phải để ở giữa mỗi ô cells, nên không để ở dòng dưới được , bạn xem có cách nào khác xử lý được không ?
cách nào tìm ra được cells nào bị dấu phân trang chạm tới thì canh lại lề cho cell đó được không bạn?