For Each itm As ListViewItem In ListView1.Items
            e.Graphics.DrawString(itm.Text, New Drawing.Font("Arial", 8), Brushes.Black, 40, H)
            e.Graphics.DrawString(itm.SubItems(1).Text, New Drawing.Font("Arial", 8), Brushes.Black, 90, H)
            e.Graphics.DrawString(itm.SubItems(2).Text, New Drawing.Font("Arial", 8), Brushes.Black, 300, H)
            e.Graphics.DrawString(itm.SubItems(3).Text, New Drawing.Font("Arial", 8), Brushes.Black, 350, H)
            e.Graphics.DrawString(itm.SubItems(4).Text, New Drawing.Font("Arial", 8), Brushes.Black, 400, H)
            e.Graphics.DrawString(itm.SubItems(5).Text, New Drawing.Font("Arial", 8), Brushes.Black, 435, H)
            e.Graphics.DrawString(itm.SubItems(6).Text, New Drawing.Font("Arial", 8), Brushes.Black, 480, H)
            e.Graphics.DrawString(itm.SubItems(7).Text, New Drawing.Font("Arial", 8), Brushes.Black, 525, H)
            H += 18
        Next