Une seule page apparaît lors de l'aperçu ou de l'impression

Résolu
Messages postés
2
Date d'inscription
jeudi 18 mai 2006
Statut
Membre
Dernière intervention
8 septembre 2006
-
Messages postés
2
Date d'inscription
jeudi 18 mai 2006
Statut
Membre
Dernière intervention
8 septembre 2006
-
Bonjour,

J'ai un problême avec l'impression, je me suis créer un logiciel pour la gestion des dvd avec une base sql.
Lorsque je lance l'aperçu ou l'impression qu'une seule page s'affiche, le reste n'est pas visible ???? Je comprends pas
D'avance merci pour votre aide...

Private

Sub BoutonImpression_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles ToolStripButton5.Click
   Dim

pd As PrintDocument = New PrintDocument
   AddHandler
pd.PrintPage, AddressOfMe.Pd_Printpage

   Dim dllg
As
New PrintPreviewDialog

   dllg.Document = pd
   dllg.ShowDialog()

End

Sub

__________________________________________________________________________________________________________

Private

Sub Pd_Printpage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)

Dim i
As
Integer
Dim j
As
Integer

'Selection de la Table
DataTable = DatabaseDataSet.Tables(
"Video")i = 0
j = 0

For i = 0
To DataTable.Rows.Count - 1
Step 1

Dim Titre
As
String = DataTable.Rows(RowNumber + i).Item(
"Titre").ToString
e.Graphics.DrawString(Titre,
New Font(
"Arial", 12, FontStyle.Bold), Brushes.Black, 260, 20 + j)

'Insertion de l'image
e.Graphics.DrawImage(PhotoPictureBox.Image, 40, 20 + j, 200, 260)

Dim Numéro
As
String = DataTable.Rows(RowNumber + i).Item(
"Numéro").ToString
e.Graphics.DrawString(
"N°" + Numéro,
New Font(
"Arial", 10, FontStyle.Regular), Brushes.Black, 260, 40 + j)

Dim Datedesortie
As
String = DataTable.Rows(RowNumber + i).Item(
"Date de sortie").ToString
e.Graphics.DrawString(
"Date de sortie : " + Datedesortie,
New Font(
"Arial", 10, FontStyle.Regular), Brushes.Black, 260, 60 + j)

Dim Pays
As
String = DataTable.Rows(RowNumber + i).Item(
"Pays").ToString
e.Graphics.DrawString(
"Film " + Pays,
New Font(
"Arial", 10, FontStyle.Regular), Brushes.Black, 260, 80 + j)

Dim Genre
As
String = DataTable.Rows(RowNumber + i).Item(
"Genre").ToString
e.Graphics.DrawString(Genre,
New Font(
"Arial", 10, FontStyle.Regular), Brushes.Black, 260, 100 + j)

Dim Réalisateur
As
String = DataTable.Rows(RowNumber + i).Item(
"Réalisateur").ToString
e.Graphics.DrawString(
"Réaliser par : " + Réalisateur,
New Font(
"Arial", 10, FontStyle.Regular), Brushes.Black, 260, 120 + j)

Dim Acteurs
As
String = DataTable.Rows(RowNumber + i).Item(
"Acteurs").ToString
e.Graphics.DrawString(
"Acteurs : " + Acteurs,
New Font(
"Arial", 10, FontStyle.Regular), Brushes.Black, 260, 140 + j)

Dim Durée
As
String = DataTable.Rows(RowNumber + i).Item(
"Durée").ToString
e.Graphics.DrawString(
"Durée : " + Durée,
New Font(
"Arial", 10, FontStyle.Regular), Brushes.Black, 260, 160 + j)

Dim Résumé
As
String = DataTable.Rows(RowNumber + i).Item(
"Résumé").ToString
e.Graphics.DrawString(
"Synopsis : " + Résumé,
New Font(
"Arial", 8, FontStyle.Regular), Brushes.Black, 260, 180 + j)

Me.BindingNavigatorMoveNextItem.PerformClick()j = j + 290

Next

End
Sub

2 réponses

Messages postés
282
Date d'inscription
lundi 29 septembre 2003
Statut
Membre
Dernière intervention
15 août 2012
2
Salut

il faut que tu utilise la propriété HasMorePage.
Celle-ci True s'il y a d'autres pages  et bien sûr elle False s'il y en a plus.

Vérifie dans l'aide de VB ou sinon sur le site de microsoft pour un exemple.
Messages postés
2
Date d'inscription
jeudi 18 mai 2006
Statut
Membre
Dernière intervention
8 septembre 2006

Un grand merci à toi....