in vùng có dữ liệu tự động

[siv2]

Mình muốn in cố định từ cột A đến hết cột Q , in đến hết hàng nào có dữ liệu đã nhập , bạn nào viết cho mình xin code VAB với , mình cảm ơn!

 

[Hoàng Tuấn 868]

Bạn nào viết cho mình xin code VAB

Bạn nên đăng vào chủ đề: Lập trình với Excel nhé. (Không có code VAB, chỉ có code VBA)

 

[dailame9x]

Trùng hợp mình vừa làm hôm qua. để căn trang in như hình. Rồi sài code



Sub PrintAreapersonalTraning()
Dim n As Integer
For n = 1 To 10000
If Cells(Cells(Rows.Count, "C").End(xlUp).Row - n, "Q").Value = "" Then
ActiveSheet.PageSetup.PrintArea = Range([A1], Cells(Cells(Rows.Count, "C").End(xlUp).Row - n + 1, "Q")).Address
ElseIf Cells(Cells(Rows.Count, "C").End(xlUp).Row - n, "C").Value <> "" Then
ActiveSheet.PageSetup.PrintArea = Range([A1], Cells(Cells(Rows.Count, "C").End(xlUp).Row - n + 1, "Q")).Address
Exit For
End If
Next n
End Sub

 

[siv2]

Mình muốn in cố định từ cột A đến hết cột Q , in đến hết hàng nào có dữ liệu đã nhập , bạn nào viết cho mình xin code VBA với , mình cảm ơn!​

 

[BuiQuangThuan]

Bạn thử cái này coi có đúng ý bạn không

 

[siv2]

Bạn thử cái này coi có đúng ý bạn không

Có thấy gì đau bạn nhỉ

Bài đã được tự động gộp: 8/2/21

Bạn thử cái này coi có đúng ý bạn không

Mình in thì chuẩn luôn nhưng sao ko thấy code ở đâu nhỉ để mình chép file khác , cảm ơn bạn!

 

[siv2]

Cảm ơn bạn để mình thử xem

 

[BuiQuangThuan]

Có thấy gì đau bạn nhỉ

Bài đã được tự động gộp: 8/2/21

Mình in thì chuẩn luôn nhưng sao ko thấy code ở đâu nhỉ để mình chép file khác , cảm ơn bạn!

Cái này không cần code bạn ạ

 

[siv2]

Cái này không cần code

Bạn chỉ mình dc ko hoặc có thể làm giúp mình trên sheet lưu của file này nhé

 

[BuiQuangThuan]

Mình có sửa cho bạn 1 chút code trong file. Code sub Lichsu ấy

 

[Hoàng Tuấn 868]

Bạn làm giúp mình trên sheet lưu của file này nhé

Bạn tham khảo............