cautran
Messages postés2Date d'inscriptionjeudi 18 mai 2006StatutMembreDernière intervention 8 septembre 2006
-
7 sept. 2006 à 10:24
cautran
Messages postés2Date d'inscriptionjeudi 18 mai 2006StatutMembreDernière intervention 8 septembre 2006
-
8 sept. 2006 à 08:48
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
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)