vb 2012 อยากพิมพ์สำเนา เหมือนๆกัน สัก 100 แผ่น แต่มันนับนานไป

Private Sub btnPrinter_Click(sender As Object, e As EventArgs) Handles btnPrinter.Click 
   Dim a,b  As Integer
     a = txtCount.Text 
      For b = 1 To a 
          PrintDocument1.Print() 
     Next b 
End Sub 

Private Sub btnPrinter_Click(sender As Object, e As EventArgs) Handles btnPrinter.Click
        If Not IsNumeric(txtCount.Text) Then
            MessageBox.Show("ระบุจำนวนแผ่นที่ต้องการพิมพ์", "แจ้งเตือน",
                            MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            Dim b As Integer
            b = txtCount.Text
            PrintDocument1.PrinterSettings.Copies = b
            PrintDocument1.Print()
        End If
    End Sub