Sub pdf(ByVal crit As String, ByVal sht As Integer)
Dim stat As Integer
Dim rngprint As Range
Dim splt As Long
Dim filter() As Variant
Set wb1 = ActiveWorkbook
Application.ScreenUpdating = False
wb1.Sheets(5).Columns("A:AZ").EntireColumn.Hidden = False
wb1.Sheets(5).Columns("A:AZ").ClearFormats
wb1.Sheets(5).Columns("A:AZ").ClearContents
wb1.Sheets(5).AutoFilterMode = False
wb1.Sheets(sht).AutoFilterMode = False
wb1.Sheets(5).ResetAllPageBreaks
filter = Array(crit & "A", crit & "B", crit & "C", crit & "D", crit & "E")
wb1.Sheets(sht).Cells.AutoFilter Field:=5, Criteria1:=filter, Operator:=xlFilterValues
wb1.Sheets(sht).Cells.Copy
wb1.Sheets(5).Cells(1, 1).PasteSpecial xlPasteValues
wb1.Sheets(sht).AutoFilterMode = False
End Sub