Labels can be printed on the current Windows printer by calling the Print() method, which has parameters to specify where on a sheet of labels to start printing, how many “records” to print labels for, how many copies of each record, and (for the benefit of sequenced labels) the value to start sequence numbering.
Each parameter can be entered directly into the Print() method parameter list, or a Print Options dialog may be displayed to enable the values to be entered.

Dim iAcross, iDown, nLabels, seqOffset As Integer
If (Alabel11.ShowPrintOptions()) Then
Try
AddHandler Alabel11.Label, AddressOf Me.NextLabel
Alabel11.getStart(iAcross, iDown, nRecords, nCopies, seqOffset, nStart)
Alabel11.Print(iAcross, iDown, nRecords, nCopies, seqOffset, nStart)
Catch ex As Exception
MessageBox.Show("An error occurred while printing", ex.ToString())
End Try
End If
More: