il faut au paravent déclarer et renseigner "PageNumber" sinon voici le code que j'ai eu sur un autre site avec les remerciements aux personnes qui m'ont aider.
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
If e.Cancel = True Then
e.HasMorePages = 0
PageNumber = 0 e.HasMorePages = False
Refresh()
Exit Sub
End If
If PageNumber > 0 Then
e.Graphics.DrawString("ART: " & ReferenceArt, New Font("Impact", 16, FontStyle.Bold), Brushes.Black, 30, 20)
e.Graphics.DrawString("Désignation", New Font("Arial", 8, FontStyle.Regular), Brushes.Black, 42, 80) e.Graphics.DrawString(DesignationArt, New Font("Arial", 12, FontStyle.Bold), Brushes.Black, 40, 100)
e.Graphics.DrawString("QTE :" & QuantiteArt, New Font("Arial", 16, FontStyle.Bold), Brushes.Black, 30, 138) e.Graphics.DrawString(PackArt, New Font("Arial", 12, FontStyle.Bold), Brushes.Black, 30, 165)
PageNumber -= 1 e.HasMorePages = (PageNumber > 0)
End If
End Sub