VBA lệnh in trong vòng lặp (1 người xem)

[xuvudo]

Trong bảng tính có nhiều đoạn được tính cho nhiều người, khi in ấn thì phải in cho từng người để gỏi đi. Danh sách có tới hàng trăm người, vì vậy mong mọi người giúp đỡ cho việc in trên. Xin cảm on

 

[Quang_Hải]

Thay vì gởi cái file to đùng, xóa hết dữ liệu, chỉ chừa lại đủ hiểu là được. Thấy cái file đó là mình chạy mất dép.

 

[xuvudo]

hàng trăm người là mình đặt vấn đề thôi chứ danh sách co vài người thôi.

 

[TrungChinhs]

Đã gửi file để hỏi sao còn khóa hả bạn

Tôi thường làm như thế này. Bạn thử xem có được không ?

Sub Macro4()
    [a10:a5000].EntireRow.Hidden = True
    With Range("a10:a" & [e65000].Row).SpecialCells(4)
        For i = 1 To .Areas.Count
            With .Areas(i)(0).Resize(.Areas(i).Rows.Count+1)
                .EntireRow.Hidden = False
                ActiveWindow.SelectedSheets.PrintOut
                .EntireRow.Hidden = True
            End With
        Next
    End With
    [a10:a5000].EntireRow.Hidden = False
End Sub

 

[xuvudo]

xin loi minh quen pass
xuanvu203

 

[phuyen89]

Trong bảng tính có nhiều đoạn được tính cho nhiều người, khi in ấn thì phải in cho từng người để gỏi đi. Danh sách có tới hàng trăm người, vì vậy mong mọi người giúp đỡ cho việc in trên. Xin cảm on

Bạn qua Bên Sheet 1 làm 1 cái Form y chang như vậy.
Sau đó dùng Tên người, hay 1 cái ID nào đó làm chính.
Phần còn lại dùng Vlookup, Index để tra ra các dữ liệu chúng ta cần làm.
Như vậy khi In chỉ In người, đâu cần phải In hết tất cả.