Discussion :

[thierry007]

Bonjour a tous

au vu du dernier post proposé, je désespère de trouver l'outil recherché

quelqu'un a t'il un tuto ou adresse de tuto / exemple qui me permettrais de pouvoir construire un objet pour la prévisualisation avant impression, afin d'alléger l'utilisation des objets présent dans VB

merci bien

[Bakkach]

Moi aussi j'en ai besoin de ce truc daans la réalisation de mon projet de stage ..

[chaparo]

Pour la previsualisation avant impression il y a le composant intégré PrintPreviewDialog (voir plassere documentation page 693

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim dllg As New PrintPreviewDialog
dllg.Document = pd
dllg.ShowDialog()

apres pour l'impression je peux pas te dire c'est un peu une bete noir ^^
il y a celui la mais personnellement j'ai jamais compris
http://bidou.developpez.com/tutoriel...et/impression/
D'ailleur si d'autre en on des plus ... abordable je suis aussi preneur

[thierry007]

Je voudrais justement éviter a devoir refaire ce genre d'écriture a chaque fois

Quand on voit la quantité de lignes a sortir pour tracer un rectangle
comme ans le tuto

[thierry007]

en fait voici ou je suis bloqué

pour celui qui peu comprendre l'astuce

a télécharger et installer http://www.ppreview.net/

si on lance la demo impeccable tout fonctionne

si je référencie la dll qui se trouve dans le répertoire créé par le programme ppreview ( preview5.dll )

lors de la déclaration et l'instanciation boum sa bloque sur certains poste Windows 7 ou 8 en 32 et 64 bit

Son avantage pas chère et complète

utilisation de la DLL

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  Public Preview As PrintPreview5.Preview = New PrintPreview5.Preview
 
 With Preview
 
                  .Caption = "Impression document"
                  .DrawPicture(StringPathFilesLocaux & "\logo-ls.jpg", CType(1, PrintPreview5.eStoreType), MargeGauche + 5 & " mm", "5 mm", MargeGauche + 60 & " mm", "20 mm")
                  .FontBold = True
                  .FontUnderline = True
                  .FontSize = 9
                  .AddTextAt(CStr(Titre), MargeGauche + 68 & " mm", "15 mm")
 
End With

voici le message d'erreur retourné , mais je ne trouve pas le pourquoi

Une exception de première chance de type 'System.Runtime.InteropServices.COMException' s'est produite dans mscorlib.dll
Une exception de première chance de type 'System.TypeInitializationException' s'est produite dans LunchX.exe

[Jean-Marie Grave]

Bonjour Thierry007.

Je vais vous dire comment je fais quand je veux utiliser sur divers supports le même dessin. Les supports en question pouvant être par exemple un formulaire ou une imprimante, bref tout ce qui peut fournir un objet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Grp As Graphics

Je place tout simplement tout le code du dessin dans un module standard, dont le seul accès possible est précisément la déclaration

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Grp As Graphics

Pour le cas qui vous occupe, vous pourriez prévisualiser en renseignant Grp par l'événement Paint d'un formulaire, et imprimer par l'événement PrintPage d'un objet de classe PrintDocument.

En espérant que cette méthode vous convienne.

[thierry007]

merci pour l'info,

Mais dans le cas de page assez complexe genre listing, qui contiennent du texte , images,...

si vous auriez un petit bout de code explicatif....

[Jean-Marie Grave]

Bonjour.

Je n'en possède pas sous la main, mais je vais vous en préparer un. Je vous demande d'attendre un ou deux jours, étant assez occupé en ce moment.

Cordialement.

[Jean-Marie Grave]

Bonjour thierry007.

Le code que vous m'avez demandé se compose de quatre modules.

1) Un formulaire nommé Accueil, servant de chef d'orchestre, sur lequel sont posés deux boutons nommés bPré et bPst.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Class Accueil
 
    Private Sub Accueil_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Left = 10 : Top = 10
    End Sub
 
    Private Sub bPré_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bPré.Click
        PréVue.Show()
    End Sub
 
    Private Sub bPst_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bPst.Click
        PostImp.Show()
    End Sub
 
End Class

2) Un formulaire nommé PréVue, pour la prévisualisation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Imports System.Drawing.Printing
Imports System.Drawing.Color
Public Class PréVue
 
    Private Sub PréVue_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Left = 10 : Top = 90
    End Sub
 
    Private Sub PréVue_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        CodePartagé.Grp = e.Graphics
    End Sub
 
End Class

3) Un formulaire nommé PostImp, pour l'impression, sur lequel est posé un bouton nommé pImp

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Imports System.Drawing.Printing
Imports System.Drawing.Color
Public Class PostImp
    Private Prt As New PrintDocument
 
    Private Sub PostImp_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        AddHandler Prt.PrintPage, AddressOf Me.Prt_PrintPage
        Left = 10 : Top = 90
    End Sub
 
    Private Sub Prt_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
        CodePartagé.Grp = e.Graphics
    End Sub
 
    Private Sub bImp_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bImp.Click
        Prt.Print()
    End Sub
 
End Class

4) Un module standard nommé CodePartagé, dans lequel se trouve le code de dessin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
28
29
30
Imports System.Drawing.Printing
Imports System.Drawing.Color
Module CodePartagé
    Private _Grp As Graphics
 
    Public Property Grp As Graphics
        Get
            Return _Grp
        End Get
        Set(ByVal g As Graphics)
            _Grp = g
            Dessiner()
        End Set
    End Property
 
    Private Sub Dessiner()
        Dim Txt As String, Pnt As PointF
        Dim Crn As New Pen(Color.Black, 3)
        Dim Pnc As New SolidBrush(Color.Red)
        With Pnt
            .X = 0
            .Y = 0
        End With
        Txt = "Oh! Le beau rectangle!"
        Grp.DrawString(Txt, New Font("Times New Roman", 10, FontStyle.Regular), Brushes.Black, Pnt)
        Grp.FillRectangle(Pnc, 20, 20, 100, 80)
        Grp.DrawRectangle(Crn, 20, 20, 100, 80)
    End Sub
 
End Module

Je vous en souhaite bonne lecture.

[thierry007]

Bien merci Jean-Marie Grave

Pour l'immédia il faut que trouve la solution au problème d'utilisation de cette dll.

Mais pour le bout de code ci-dessus , cela va bien me servire d'inspiration pour un autre projet ( dans le domaine de l'ophtalmoogie, surtout pour les parties graphiques )

Encore grand merci