Aperçu (avant impression)

Version imprimable

Bonjour les développeurs,
ça y est, je désespère, j'ai passé la journée à essayer de créer un apperçu de documents en VB.Net.
En gros, je ne trouve pas comment charger l'image dans le printDocument du printPreviewControl.

Je vous passe mon code en espérant que l'un de vous trouvera ce qu'il manque.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 Private Sub ListView1_MouseClick_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseClick
 
        Dim nomFichier As String = ""
        Dim selection As System.Windows.Forms.ListView.SelectedListViewItemCollection
        selection = ListView1.SelectedItems
 
        If selection.Count = 0 Then
            ' Ne rien faire.
        End If
 
        For Each element As Object In selection
            nomFichier = Mid(element.ToString, 16, element.ToString.Length - 20)  ' Ca c'est très moche mais ça récupère le nom du fichier uniquement.
        Next
 
        Me.SuspendLayout()
        Me.PrintDocument1.DocumentName = "Y:\mesScans\" & nomDossier & "\" & nomFichier & "*.pdf"
        Dir("Y:\mesScans\" & nomDossier)
        Me.PrintPreviewControl1.Name = nomFichier & ".pdf"
        Me.PrintPreviewControl1.Document = docToPrint
        Me.PrintPreviewControl1.Document.DocumentName = nomFichier & ".pdf"
        Me.Controls.Add(Me.PrintPreviewControl1)
        Me.PrintPreviewControl1.Document = Me.PrintDocument1
        Me.PrintDocument1.DocumentName = "Y:\mesScans\" & nomDossier & "\" & nomFichier & "*.pdf"
        Me.PrintPreviewControl1.Show()
 
    End Sub

Merci à vous.

13/08/2008, 17h45
SaumonAgile

Tu dois dessiner l'image avec e.Graphics.DrawImage(...) dans l'event handler associé à l'événement Print du PrintDocument.
14/08/2008, 09h40
fanouk

Désolée, je suis plutôt débutante dans ce langage, tu écrirais ça comment?

Alors, j'ai tenté ça mais j'ai une magnifique erreur OutOfMemoryException:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
  Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
 
        Dim nomFichier As String = ""
        Dim docImage As Image
        nomFichier = Module1.nomFichier
 
        Me.SuspendLayout()
        Me.PrintDocument1.DocumentName = "Y:\mesScans\" & nomDossier & "\" & nomFichier & "*.pdf"
        Dir("Y:\mesScans\" & nomDossier)
        Me.PrintPreviewControl1.Name = nomFichier & ".pdf"
        Me.PrintPreviewControl1.Document = docToPrint
        Me.PrintPreviewControl1.Document.DocumentName = nomFichier & ".pdf"
        Me.Controls.Add(Me.PrintPreviewControl1)
        Me.PrintPreviewControl1.Document = Me.PrintDocument1
        Me.PrintDocument1.DocumentName = "Y:\mesScans\" & nomDossier & "\" & nomFichier & "*.pdf"
        If Dir$("Y:\mesScans\" & nomDossier & "\" & nomFichier & ".pdf", vbNormal) <> "" Then
            docImage = Image.FromFile("Y:\mesScans\" & nomDossier & "\" & nomFichier & ".pdf")
            e.Graphics.DrawImage(docImage, 0, 0)
            Me.PrintPreviewControl1.Show()
        Else
            MsgBox("Erreur! Fichier impossible à charger.", MsgBoxStyle.Critical)
            Me.Close()
        End If
 
    End Sub
 
End Class

Je vais chercher ce qui cloche.
En attendant, si tu as une idée, je prends évidement!
Merci en tout cas pour ton aide précieuse.

Fanny

14/08/2008, 23h01
harz62

Pour l'erreur fais un débogage pas à pas ou met des points d'arrêt pour voir où ça plante. Je pense que c'est méthode Image.FromFile qui plante (d'aileurs c'est la seule dans ton code qui peut renvoyer une exception de type OutOfMemoryException )car le format PDF ne correspond pas à une image.

Espace un peu ton code il sera plus lisible comme ça ;)

A la place des concaténations tu peux utiliser la méthode String.Format pour améliorer la lisibilité du code.

Ceci:

Code:

"Y:\mesScans\" & nomDossier & "\" & nomFichier & ".pdf"

Peut se transformer en ceci

Code:

dim path as String = String.Format("Y:\mesScans\{0}\nomDossier\{1}.pdf", nomDossier,nomFichier)

Tu réutilise ensuite ta chaine dans les méthode que tu appelle lorsque tu en as besoin ;)
15/08/2008, 15h18
fanouk

Merci pour l'astuce que je ne connaissais pas! Ca ressemble un peu au C.

Tu m'as dit que cette méthode requiert une image et pas un fichier pdf mais comment faire alors si je veux créer un aperçu de ce type de fichiers?
15/08/2008, 15h40
harz62

Pour ça je pense qu'il va falloir utiliser une librairie pour manipuler les PDF en utilisant une librairie (je connais plus le nom :?)

Un fichier PDF, C'est un document structuré qui peut contenir des images, du texte... comme des fichiers XPS (apparu en .NET3). On ne peut les considérer en tant qu'images.
18/08/2008, 09h26
fanouk

Ok, alors pour ça, du coup j'ai deux solutions :
-soit je trouve un moyen de transformer les pdf en image juste pour l'aperçu (c'est peut être un peu moche comme méthode)
-soit je regarde pour une librairie pour manipuler les pdf (à première vue c'est payant mais je vais chercher plus sérieusement aujourd'hui)
18/08/2008, 12h49
harz62

J'en ai trouvé une sur codeplex :

http://www.codeplex.com/pdflib
18/08/2008, 20h07
fanouk

Eh mais tu sais que je suis vraiment trop bête des fois : j'ai pas pensé qu'en faisant simplement un shell("mon.pdf") ça marchait tout seul!lol

Enfin, j'aurais quand même appris qu'on peut manipuler les pdf avec vb.net uniquement grâce à toi.

Vivement les vacances! Et merci encore pour ton aide!

Bises