Có file mẫu mà đến đổ khùng còn chưa làm được huống hồ nói suông.
Xin lỗi a.e cũng sơ xuất quá.Em đăng lại file lên mong a xem giúp gì được không a.Thank a.
Trong file có thấy code nào đâu nhỉ bạn?
Với file của bạn mình làm theo cách đơn giản như sau:
Code bạn nói "trong trang 1 e có sử dụng code dãn dòng tự động" ở đâu? Chừ không biết gọi là sơ suất hay gì nữa đây?
Thật sự rất cám ơn vì sự quan tâm của a!e có gửi lại a file ,a xem lại giúp e xem có hướng giải quyết không ạ.e cảm ơn.
e up lại rồi a!
em úp lại rồi a xem giúp e với a.
A ƠI!a xem giúp e với xem có hướng giải quyết tốt nhất không a.
Cái form này lúc nào cũng có 2 trang à. Và cái chính là bạn muốn nếu dòng 12 mà có giãn nở độ rộng, Thì nó sẽ không bị nhảy trang hả
Tôi đã có đáp án cho bạn, nhưng trước tiên bạn hãy sửa lại những từ viết tắt đi, rồi sẽ nhận được đáp án.
vâng anh!vì em chỉ muốn in 2 trang mà dòng B12 co dãn nên các dòng .... sẽ nhảy sang trang 2 sẽ tạo thành 3 trang mất.
Rất mong được anh/chị giúp đỡ.
Bạn nên làm những cái gì bài #10 nói đi đã. Có vẻ hợp lí ấy
Tôi khuyên bạn là: Hãy dùng tiếng mẹ đẻ một cách chuẩn nhất có thể, chứ đừng đua ngôn ngữ của chít chát, Fb, của Ông Ts Bùi Hiền nào đó lên những câu nói bài viết thể hiện nhân cách của mình.
Sub CoDanRowBB()
Dim i&, Trang&
MergeCellFit Sheets("TRANG CAN SUA").Range("B12:AB12")
Rows("18:28").Select
Selection.EntireRow.Hidden = False
Trang = Sheets("TRANG CAN SUA").HPageBreaks(1).Location.Row
MsgBox Trang
If Trang < 29 Then
Rows(Trang & ":28").EntireRow.Hidden = True
End If
End SubSub ABC()
Dim t
With Sheet8
.Rows("12:29").EntireRow.Hidden = False
t = .Rows("12:12").RowHeight
If Int(t / 28) > 1 Then
.Rows("13:" & 13 + Int(t / 28) + 1).EntireRow.Hidden = True
End If
End With
End SubChỗ MsgBox Trang:
vâng!em xin chân thành cảm ơn anh.
Nhắc bạn rồi mà vẫn cứ "e" với "ấp". Khổ ghê á
em cảm ơn anh!để em chạy thử xem sao a.
Em chạy code của anh thì rất tuyệt ạ,nhưng em dùng addin in hàng loạt thì lại không in được như ý muốn ,em dùng phần mềm pdf factory để nối file và xuất pdf.Anh xem giúp em với a.
Không thể viết đầy đủ được hả bạn?
