Giúp đỡ viết code in cho từng đối tượng

[chisinhvnn]

Nhờ GPE giúp mình viết đoạn code để in ra chi tiết từng hộ

 

[PacificPR]

Nhờ GPE giúp mình viết đoạn code để in ra chi tiết từng hộ

Em làm đền cho anh File này đó anh nha

 

[chisinhvnn]

Em làm đền cho anh File này đó anh nha

Sửa giúp mình nếu muốn in một loạt hết luôn thì làm răng rứa bạn (in từng hộ, nhưng thực hiện lệnh in lần thôi)

 

[PacificPR]

Sửa giúp mình nếu muốn in một loạt hết luôn thì làm răng rứa bạn (in từng hộ, nhưng thực hiện lệnh in lần thôi)

Bấm 1 lần chạy hết luôn á anh

 

[chisinhvnn]

Bấm 1 lần chạy hết luôn á anh

umh

 

[PacificPR]

umh

Sub Indulieu()
    Dim eN As Long, Rng As Range, N As Long
    With Sheets("Thamdinh")
        Set Rng = .Range("A6:A" & .Range("B65535").End(3).Row)
        eN = Application.Max(Rng)
        For N = 1 To eN
            .Range("T5").Value = N
            Laydulieu
            ActiveWindow.SelectedSheets.PrintOut
        Next N
    End With
End Sub

 

[chisinhvnn]

Cho mình hỏi thêm với. Trong trường hợp dữ liệu gốc không nằm trong 1 file, thì mình chọn vùng để set dữ liệu thì làm sao vậy. trong form mình thấy có công cụ Refedit1 nhưng không biết sử lý code như thế nào