Đo đọ dài của trang in

[boysanhdieu]

Các bạn help mình với,
Mình có file excel Bảng lương nhân viên, mình muốn tìm đoạn code để đo độ dài của bản in khổ a4
Mục đích là khi trang in đến 1 độ dài nhất định thì tự động break page nhằm cố định phần bên dưới (không bị tách làm 2 trang in, mỗi trang dính 1 ít)

Mình có đính kèm file, mình muốn cố định phần bôi vàng (chổ các phòng ban ký). Do nhân viên hằng tháng có thay đổi nên khi Fillter "x" rồi bấm Print thì dòng bôi vàng bị chạy (giống file, nữa nằm trang 1, nữa nằm trang 2). Mình không sd code auto zoom do nhiều khi bản in ra nhỏ quá với lại không đúng kích cỡ quy định

Các bạn help mình với, mình tính viết code if height page = 270 thì break page row(A) nhưng không bít viết làm sao để đo

 

[Maika8008]

Tôi có làm cho 1 bạn việc tương tự thế này. Tuy nhiên, tôi không tìm được giải pháp tổng quát cho trang in mà chỉ làm cho 1 dữ liệu in cụ thể.

Tôi sẽ xem lại với trường hợp cụ thể của bạn thì xử lý thế nào.

 

[boysanhdieu]

Tôi có làm cho 1 bạn việc tương tự thế này. Tuy nhiên, tôi không tìm được giải pháp tổng quát cho trang in mà chỉ làm cho 1 dữ liệu in cụ thể.

Tôi sẽ xem lại với trường hợp cụ thể của bạn thì xử lý thế nào.

Cám ơn bạn nhiều nhé

 

[Maika8008]

Cám ơn bạn nhiều nhé

Bạn xem thử cách làm trong file có đúng ý không nhé. Nhưng như đã nói thì đem vào trang in bảng lương của bạn thì sẽ không còn đúng nữa (vì chiều cao dòng dữ liệu và chiều cao trang in khác với file ví dụ này).

 

[boysanhdieu]

Bạn xem thử cách làm trong file có đúng ý không nhé. Nhưng như đã nói thì đem vào trang in bảng lương của bạn thì sẽ không còn đúng nữa (vì chiều cao dòng dữ liệu và chiều cao trang in khác với file ví dụ này).

Sub ChieuCaoDong()
Dim arr, i As Long, Rws As Long
Rws = 64
ReDim arr(1 To 64, 1 To 1)
For i = 1 To Rws
arr(i, 1) = Rows(i).Height
Next
Range("S1").Resize(64, 1).Value = arr
End Sub

Chổ này mình muốn thêm điều kiện nếu cột O từ 1-64 nếu có "x" thì mới thực thi đoạn code trên thì thêm vào sao vậy bạn do khi fillter bản in sẽ ẩn các đòng ko có "x", bạn giúp mình với