Tự động căn dòng trang in có điều kiện

hands
09/12/2017
Excel Ứng Dụng

Em có 1 sheet biên bản nghiệm thu, dữ liệu trong sheet luôn thay đổi (có lúc thêm hoặc bớt hàng hoặc kích thước hàng tăng, giảm) nên trang in có thể bị nhảy thêm hoặc bớt. Em muốn tự động "breaks page" để đảm bảo chỗ ký tên luôn ổn định khi in. Mong các anh chị giúp, em xin cảm ơn!

Sub AddBreaks()
    Dim Ws As Worksheet, fRowNumber As Long, EfRowNumber As Long, NumberRow As Long, I As Long
    Dim DeltaRowHei As Double, fCurr As Long, fP As Long
Application.ScreenUpdating = False
Set Ws = ActiveSheet
fRowNumber = Ws.Range("AB1"): EfRowNumber = Ws.Range("AB2")
For I = fRowNumber To EfRowNumber
    If Ws.Range("C" & I).EntireRow.Hidden = False Then _
            Ws.Range("C" & I).EntireRow.AutoFit
    If Range("B" & I) <> Empty Then FixRow Range("C" & I & ":AA" & I)
Next I
ActiveWindow.View = xlPageBreakPreview
fP = Ws.HPageBreaks.Count
fCurr = ActiveSheet.HPageBreaks(fP).Location.row
NumberRow = EfRowNumber - fRowNumber
If fCurr > EfRowNumber Then
    DeltaRowHei = Ws.Range("E" & EfRowNumber & ":E" & fCurr).Height / NumberRow
    For I = fRowNumber To EfRowNumber
        If Ws.Range("C" & I).EntireRow.Hidden = False Then _
                Ws.Range("C" & I).RowHeight = Ws.Range("C" & I).RowHeight + DeltaRowHei + 16.5 / 5
    Next I
End If
ActiveWindow.View = xlNormalView
Application.ScreenUpdating = True
End Sub

Bạn thử cái này xem. Nhưng nó chậm lắm (Do sơ xuất đínhkèm lại file)

Cảm ơn bác [URL='https://www.giaiphapexcel.com/diendan/members/pacificpr.1101501/']PacificPR, nhưng cách của bác chưa đáp ứng với yêu cầu của em ạ. Ý em muốn là khi xóa hoặc ẩn một số hàng thì vẫn giữ nguyên chiều rộng của các hàng còn lại và không unhide các hàng đã ẩn. Code sẽ tự động breaks page lại để luôn đảm bảo nếu tràn trang thì phần ký biên bản sẽ không bị tách ra mà chuyển sang trang mới

Ai bẩu bạn đưa file ví dụ không có dòng ẩn. Nhưng tốc độ nó chậm đấy
Bạn tải nhầm file rồi. Tải lại File bài 2 đi bạn à
Còn cái vụ không cho hiện dòng ẩn thì thêm 1 bước For nữa là được
Bạn thử file. Mình thấy ổn nhưng tốc độ hơi chậm. Hôm trước xem File bên Giá xây dựng họ có làm cái này nhưng họ khóa ác quá nên chẳng ăn trộm được cái gì :p

www.giaiphapexcel.com/diendan/threads/t%E1%BB%B1-%C4%91%E1%BB%99ng-c%C4%83n-d%C3%B2ng-trang-in-c%C3%B3-%C4%91i%E1%BB%81u-ki%E1%BB%87n.131941/post-830743

Khóa học SprinGO phù hợp

Khóa học Power PI – Ứng dung trong Nhân sự

TỔNG QUAN KHÓA HỌC: POWER BI CHO NGÀNH NHÂN SỰ Khóa học Power BI cho Nhân sự được thiết kế dành riêng cho các...

Xem khóa học

Chia sẻ: