Discussion :

[Attila54]

Bonjour,
Je me posais une question
Mon appli, après divers calculs, me "sort" un formulaire qui regroupe tout ce qui doit être imprimé.
J'utilise la méthode printform, et pour le moment le logiciel fait une capture du formulaire, crée une image .jpg que je peux ensuite imprimer ou transferer ou autre.
L'idée future est de ne plus avoir de .jpg contraignant car impossible d'avoir 2 feuilles, mais du PDF.

En cherchant j'ai trouvé un article qui dit que concrètement, en utilisant la méthode printform, on pouvait faire du PDF en installant "PDF virtual printer" (je suppose une imprimante pdf virtuelle quelconque)

J'aurais aimé votre avis quant a la pertinence de cette méthode

Merci beaucoup

[Pol63]

une imprimante pdf c'est le moyen simple de gérer ca, ca dérange rarement l'utilisateur
et comparé au printform ce n'est pas un mal

un fichier excel c'est codable facilement aussi
sinon il y a le printdocument pour placer ce qu'on veut où on veut et sans passer par excel, en laissant le choix de l'imprimante qui peut etre une imprimante pdf ou une imprimante normale

[_Ez3kiel]

Tu peux également utiliser une dll exeterne (ItextSharp, PDFLib, etc)

Elles sont assez complète, ça nécessite un peu de temps pour comprendre comment ça marche, comment "créer" à la main son PDF etc, mais elles sont très bien fournies et assez intuitive.

[Attila54]

bonjour a vous 2
j'ai deja essaye via la dll Itextsharp et j'avoue n'avoir absolument rien compris au fonctionnement

[_Ez3kiel]

Il y a ce cours : http://dotnet.developpez.com/articles/itextsharp/

C'est du C# mais c'est compréhensible à la lecture ...

Après si c'est juste qlqes petits trucs je peux (peut-être) t'aider.

[Attila54]

merci ezkiel
ben déjà je voudrais procéder en 2 étapes si c'est faisable

Etape 1 : Pouvoir imprimer et enregistrer sur deux feuilles A4
Voila le classimpression

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Imports System.Drawing.Printing
Public Class ClassImpression
    Private Declare Function StretchBlt Lib "gdi32.dll" Alias "BitBlt" (ByVal _
           hdcDest As IntPtr, ByVal nXDest As Integer, ByVal nYDest As _
           Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal _
           hdcSrc As IntPtr, ByVal nXSrc As Integer, ByVal nYSrc As Integer, _
           ByVal dwRop As System.Int32) As Long
    Private myimage As Bitmap
    Private thectrl As Control
    Private Function Capturectrl(ByVal ctrl As Control) As Bitmap
        Dim memoryImage As Bitmap
        Dim mygraphics As Graphics = ctrl.CreateGraphics()
        Dim s As Size = ctrl.Size
        memoryImage = New Bitmap(s.Width - 3, s.Height - (SystemInformation.FrameBorderSize.Width + 3 + SystemInformation.CaptionHeight), mygraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)
        Dim dc1 As IntPtr = mygraphics.GetHdc
        Dim dc2 As IntPtr = memoryGraphics.GetHdc
        StretchBlt(dc2, 0, 0, ctrl.ClientRectangle.Width, _
           ctrl.ClientRectangle.Height, dc1, 0, 0, 13369376)
        mygraphics.ReleaseHdc(dc1)
        memoryGraphics.ReleaseHdc(dc2)
        Return memoryImage
    End Function
    Public Function GetPreview() As Bitmap
        Return Capturectrl(thectrl)
    End Function
    Public Sub printdoc()
        Try
            Dim prtd As New PrintDialog
            'document à imprimer
            Dim doc As New PrintDocument
            myimage = Capturectrl(thectrl)
            AddHandler doc.PrintPage, AddressOf printform
            'paramètres de page
            Dim ps As New PageSettings
            ps.Landscape = False
            doc.DefaultPageSettings = ps
            'indique à la prévisualisation le document à montrer
            prtd.Document = doc
            If prtd.ShowDialog = DialogResult.OK Then
                prtd.Document.Print()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Private Sub printform(ByVal sender As Object, ByVal e As PrintPageEventArgs)
        Try
            e.Graphics.DrawImage(myimage, 0, 0)
            e.HasMorePages = False
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Public Sub New(ByVal ctrl As Control)
        thectrl = ctrl
    End Sub
End Class

Il y a donc capture d'écran du formulaire et transformation en .jpg pour ensuite être traitée (imprimée, sauvegardée, transferée, etc ...)

Mon formulaire est au maximum des dimensions possibles et, le logiciel évoluant, j'ai plus d'informations a stocker mais pas de place pour les mettre.

Concrètement, j'ai actuellement cela :


Moi je voudrais cela :


autrement dit comment faire pour que mon printform ait "plus de place"

Etape 2 : Passer le .jpg en PDF en gardant le même "visu"

Je bloque complètement la dessus et me demande surtout si il faut proceder en 2 etapes ou carrement tout changer d'un coup
Merci bien