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
Dim a,b As Integer
a = txtCount.Text
For b = 1 To a
PrintDocument1.Print()
Application.DoEvents();
Next b
End Sub
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