Переход на следующую страницу

If ListView1.Items.Count > 0 Then
h = 0
End If
For Each Itm As ListViewItem In ListView1.Items
If счёт2 = 0 Then
e.Graphics.DrawString("----------------------------------------------------------------------------------------", New Drawing.Font("Times New Roman", 12), Brushes.Black, 0, h)
h += 20
End If
e.Graphics.DrawString(Itm.Text, New Drawing.Font("Times New Roman", 12, FontStyle.Bold), Brushes.Black, 0, h)
e.Graphics.DrawString(Itm.SubItems(1).Te xt, New Drawing.Font("Times New Roman", 12, FontStyle.Regular), Brushes.Black, 300, h)
h += 20
счёт2 += 1
If счёт2 Mod 11 = 0 Then
e.Graphics.DrawString("----------------------------------------------------------------------------------------", New Drawing.Font("Times New Roman", 12), Brushes.Black, 0, h)
h += 30
счёт2 = 0
End If
Next
Нужно добавить к этому коду, чтобы каждый раз когда не хватает места, переходило на следующую страницу в предпоказе печати.

0

HyperBomj, HasMorePages Свойство

1