Private Sub test()
 
   With datagridview1
      For Each row As DataGridViewRow In .Rows
          With row
             If FilterRow(row) Then
                For Each cell As DataGridViewCell In row.Cells
                    dim x as string = ""
                    If cell.Visible Then
                       If Not cell.Value Is Nothing Then
                          x = DirectCast(cell.Value, String)                         
                       End If
                       pdfTable.AddCell(x) '???????????
                    End If                
                 Next cell
             End If
          End With
      Next row
  End With
 
End Sub