Private Sub pdLABELS_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pdLABELS.PrintPage

        Dim myFont As New Font("Arial", 10, FontStyle.Regular)
        Dim myFormat As New StringFormat

        myFormat.Alignment = StringAlignment.Center
        myFormat.LineAlignment = StringAlignment.Center

        Dim nCol As Integer = 5
        Dim nRow As Integer = 8

        Dim pageW As Integer = Me.pdLABELS.DefaultPageSettings.PaperSize.Width
        Dim pageH As Integer = Me.pdLABELS.DefaultPageSettings.PaperSize.Height

        Dim labelW As Integer = pageW / nCol
        Dim labelH As Integer = pageH / nRow

        Dim nLabel As Integer = 1

        For iRow As Integer = 1 To nRow
            For iCol As Integer = 1 To nCol
                e.Graphics.DrawString((myLabels(nLabel).Text), myFont, Brushes.Black, (iCol * labelW) - (labelW / 2), (iRow * labelH) - (labelH / 2), myFormat)
                nLabel += 1
            Next
        Next

    End Sub