Select ,copy paste and print sepratly.

Hi visha

Change the indicated Line of Code

For Each cel In Range("CPName")
      .Range("A1:D" & LR).AutoFilter Field:=1, Criteria1:=cel.Value
      With .Range(.Cells(1, 1), .Cells(LR, LC)).SpecialCells(xlCellTypeVisible).Copy
        With ws2
          .Range("A1").PasteSpecial (xlPasteColumnWidths)
          .Range("A1").PasteSpecial (xlPasteValues)
          .PrintPreview  '<---Change to .PrintOut
          .Cells.Clear
        End With
        ws.ShowAllData
      End With
    Next cel