3
« en: Martes 30 de Mayo de 2006, 19:12 »
hola necesito de su gran ayuda se supone que tengo que hacer un programa para poder imprimir numeros consecutivos es decir con un bucle for que en cada hoja me imprima un numero el problema es que me imprime todos los numeros amontonados y en una sola hoja y no se como hacerle para que me imprima un numero en cada hoja este es el codigo que tengo ojala y le entiendan y me digan donde esta el error
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PrintPreviewDialog1.ShowDialog()
Dim printdialog1 As New PrintDialog()
printdialog1.Document = PrintDocument1
Dim resultado As DialogResult = printdialog1.ShowDialog
If (resultado = DialogResult.OK) Then
PrintDocument1.Print()
End If
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim a, b As Integer
a = txtinicio.Text
b = txtfin.Text
Dim i As Integer
For i = a To b
e.Graphics.DrawString(i, New Font("arial", 20, FontStyle.Bold), Brushes.Black, 510, 310)
Next i
End Sub
End Class
ayudenme porfitas
Mostrar Mensajes
hola senzao18 osea si imprime pero a la hora de mandar a imprimir salen los numeros amontonados y en una sola hoja lo que quiero es que el cada numero se imprima en una hoja por ejemplo el 1 en una hoja, el 2 en otra hoja, el tres en otra hoja y asi sucesivamente. como le puedo hacer por favor ayudame me super urge