Bonjour =E0 tous,
Question tr=E8s basique je pense mais je bloque...
J'ai une appl qui doit afficher un =E9tat de deux pages.=20
J'ai cr=E9=E9 deux proc=E9dures permettant de dessiner les deux=20
pages (avec gdi) et maintenant je voudrais lancer un=20
aper=E7u de mes deux pages. Le pb est que je n'y arrive pas.=20
En effet, =E0 l'aper=E7u je n'obtiens toujours qu'une seule=20
page qui en fait est la deuxi=E8me page de mon =E9tat. Je=20
pense que je dois mettre un HasMorePages quelque part mais=20
o=F9. exemple de code :
Private Sub PrintDocument1_PrintPage(ByVal sender As=20
System.Object, _
ByVal e As=20
System.Drawing.Printing.PrintPageEventArgs) Handles _
PrintDocument1.PrintPage
Dim i As Integer
For i =3D 0 To 1
PrintLabel(Panel1, e, i)
If i =3D 0 Then
e.HasMorePages =3D True
Else
e.HasMorePages =3D False
End If
Next
End Sub
Nb : PrintLabel est ma proc=E9dure qui dessine les objets.=20
En fonction du i je cr=E9e la premi=E8re et deuxi=E8me page.
"Olan" a écrit dans le message de news:26ef01c4aadd$50f27da0$ Bonjour à tous, Question très basique je pense mais je bloque... J'ai une appl qui doit afficher un état de deux pages. J'ai créé deux procédures permettant de dessiner les deux pages (avec gdi) et maintenant je voudrais lancer un aperçu de mes deux pages. Le pb est que je n'y arrive pas. En effet, à l'aperçu je n'obtiens toujours qu'une seule page qui en fait est la deuxième page de mon état. Je pense que je dois mettre un HasMorePages quelque part mais où. exemple de code :
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles _ PrintDocument1.PrintPage Dim i As Integer For i = 0 To 1 PrintLabel(Panel1, e, i) If i = 0 Then e.HasMorePages = True Else e.HasMorePages = False End If Next End Sub Nb : PrintLabel est ma procédure qui dessine les objets. En fonction du i je crée la première et deuxième page.
D'avance merci Olan
Effectivment c'est e.HasmorePage= true
Relit ton code tu dois sortir à quelque part sur la deuxième page oublie pas
que :
"Olan" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:26ef01c4aadd$50f27da0$a501280a@phx.gbl...
Bonjour à tous,
Question très basique je pense mais je bloque...
J'ai une appl qui doit afficher un état de deux pages.
J'ai créé deux procédures permettant de dessiner les deux
pages (avec gdi) et maintenant je voudrais lancer un
aperçu de mes deux pages. Le pb est que je n'y arrive pas.
En effet, à l'aperçu je n'obtiens toujours qu'une seule
page qui en fait est la deuxième page de mon état. Je
pense que je dois mettre un HasMorePages quelque part mais
où. exemple de code :
Private Sub PrintDocument1_PrintPage(ByVal sender As
System.Object, _
ByVal e As
System.Drawing.Printing.PrintPageEventArgs) Handles _
PrintDocument1.PrintPage
Dim i As Integer
For i = 0 To 1
PrintLabel(Panel1, e, i)
If i = 0 Then
e.HasMorePages = True
Else
e.HasMorePages = False
End If
Next
End Sub
Nb : PrintLabel est ma procédure qui dessine les objets.
En fonction du i je crée la première et deuxième page.
"Olan" a écrit dans le message de news:26ef01c4aadd$50f27da0$ Bonjour à tous, Question très basique je pense mais je bloque... J'ai une appl qui doit afficher un état de deux pages. J'ai créé deux procédures permettant de dessiner les deux pages (avec gdi) et maintenant je voudrais lancer un aperçu de mes deux pages. Le pb est que je n'y arrive pas. En effet, à l'aperçu je n'obtiens toujours qu'une seule page qui en fait est la deuxième page de mon état. Je pense que je dois mettre un HasMorePages quelque part mais où. exemple de code :
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles _ PrintDocument1.PrintPage Dim i As Integer For i = 0 To 1 PrintLabel(Panel1, e, i) If i = 0 Then e.HasMorePages = True Else e.HasMorePages = False End If Next End Sub Nb : PrintLabel est ma procédure qui dessine les objets. En fonction du i je crée la première et deuxième page.
