cách để in tự động, số thứ tự nhảy tự động, tiêu đề cố định

[thanhhong.hr]

Các chế giúp em cách để in tự động, số thứ tự nhảy tự động, tiêu đề cố định với ạ. em in nhưng nó cứ hiện ra mỗi cái tiêu đề đầu hàng loạt ý

 

[befaint]

Sub PrintBP()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Arr, i As Long, lr As Long
Sheet1.AutoFilterMode = False
lr = Sheet1.Cells(Rows.Count, "G").End(xlUp).Row + 1
With Sheet1
    Arr = UniqueArray(.Range("G5:G" & lr))
    .Range("G4:G" & lr).AutoFilter
    For i = 1 To UBound(Arr, 1)
        If Arr(i, 1) <> "" Then
            .Range("C3").Value = Arr(i, 1)
            .Range("G4:G" & lr).AutoFilter Field:=1, Criteria1:=Arr(i, 1), Operator:=xlOr, Criteria2:="="
            .PrintPreview
'            .PrintOut ' To print
        End If
    Next i
End With
Sheet1.AutoFilterMode = False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

[thanhhong.hr]

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