Oppure

Loading
30/06/11 11:58
Marco5874
Salve a tutti, sono un nuovo iscritto.
Ho un problema per stamapare su più pagine in VB 2008. Vorrei stampare 2 grafici su 2 pagine diverse, ma il programma me li stampa tutti e due sulla stessa pagina

Questo è l'esempio:

e.Graphics.DrawEllipse(a, x, y, z, k)

e.Graphics.DrawEllipse(b, x2, y2, z2,k2)

come devo fare per far stampare le due ellissi su 2 pagine diverse (in pratica il vecchio printer.newpage in VB6)?
Seguendo alcuni esempi online, ho provato ad usare e.HasMorePages ma non funziona, o forse nn ho capito io come va usato!

Datemi una mano che mi ci sta venendo l'ulcera dal nervoso, sono ben accetti anche link che spieghino in maniera chiara come si fa!!!!

Vi ringrazio tutti anticipatamente!
aaa
01/07/11 9:17
Il Totem
L'Evento è PrintPage, quindi è associato alla stampa di UNA e UNA sola pagina. Se vuoi stampare più pagine devi impostare alla fine dell'evento e.HasMorePages = True.
Il comportamento del codice va cambiato a seconda di quale pagina stai cambiando, magari usando un contatore.
Dim pageIndex As Int32 = 1
Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs) Handles PrintDocument1.PrintPage
   e.Graphics.DrawString("Pagina N." & pageIndex, New Font("Tahoma", 11), Brushes.Black, 270, 100)
   e.Graphics.DrawEllipse(Pens.Black, 200, 200, 20, 20)
   ' Stampa solo due pagine
   e.HasMorePages = (pageIndex <= 1)
   pageIndex += 1
End Sub
aaa