Giúp mình xử lý lỗi khi dùng HPageBreaks (1 người xem)

[qtm1987]

Có bạn nào giúp mình khắc phục lỗi này với. Mình đang làm dòng tổng cộng cuối mỗi trang in, nếu gặp trường hợp tổng số trang = tổng số đoạn ngắt trang thì code mình bị lỗi. Mình xin gửi file kèm theo mong mọi người giúp đỡ.

 

[ndu96081631]

Có bạn nào giúp mình khắc phục lỗi này với. Mình đang làm dòng tổng cộng cuối mỗi trang in, nếu gặp trường hợp tổng số trang = tổng số đoạn ngắt trang thì code mình bị lỗi. Mình xin gửi file kèm theo mong mọi người giúp đỡ.

Thay vì:

For Each myPage In .HPageBreaks
  Rows(myPage.Location.Row - 1).Insert xlShiftDown, True
Next

Bạn thử cách khác:

Dim i as Long
For i = 1 To .HPageBreaks.Count
  Rows(.HPageBreaks(i).Location.Row - 1).Insert xlShiftDown, True
Next

xem thế nào nhé

 

[qtm1987]

Code anh NDU hay quá. Em chạy code được rồi. Cám ơn anh ndu nhiều nhiều.