Discussion :

[Jupsx]

Bonjour,

Alors voici mon code qui permet de générer des documents pdf via une imprimante virtuelle

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
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Dim changePrinterDefaut As String = "PDFCreator"
        'ne pas voir pdf creato ou autre
 
        Dim OkPrint As Boolean
        Dim PDS As Printing.PrinterSettings = New Printing.PrinterSettings
 
        For Each strPrinter As String In Printing.PrinterSettings.InstalledPrinters
            'si PDF Creator est installe chez l'user
            'affecter à pds
            If strPrinter = changePrinterDefaut Then
                OkPrint = True
                PDS.PrinterName = strPrinter
 
 
                Exit For
            End If
        Next
        'installe =>affecter à imprimante à PrintDocument1
        If OkPrint Then
            Me.PrintDocument1.PrinterSettings.PrinterName = PDS.PrinterName
        Else
            MessageBox.Show("l'impression necessite l'installation de " & changePrinterDefaut)
            Return
        End If
        ' Lancer l'impression 
        Me.PrintDocument1.Print()
        MessageBox.Show("Impressions effectuée")

En fait je voudrais que l'utilisateur puisse enregistrer ses document en écrivant le chemin de destination dans sa TextBox, est ce possible?

Merci,

[yonpo]

Salut,

Bien sûr que c'est possible. Utilises un FolderBrowserDialog pour choisir un chemin où enregistrer le fichier PDF.

[Jupsx]

MMMh ok, j'arrive a faire choisir un dossier mais je n'arrive pas à récupérer mon "printdocument1".

[hunteshiva]

Bonjour,

Peux tu nous dire sous quel nom s'enregistre ton fichier? *Nom de l'appli?*
J'ai trouvé une astuce dont l'idée est la suivante:

1. Enregistrer le nom de ton appli
2. Changer le nom de ton appli avec le nom saisi dans ta Texbox
3. Imprimer en PDF
4. Remettre le nom de ton appli (avec le 1.)

Essaye et dit moi si ça fonctionne

PS: Merci de ne pas faire comme l'exemple que j'ai trouvé en mettant ta solution

[Jupsx]

En fait si tu veux mon logiciel fait les pdf sans aucun soucis, c'est à dire actuellement l'enregistrement se fait par une option dans PDFCreator même, mais ce que je dois apporter au logiciel c'est que l'utilisateur ne doit pas avoir de manipulation de cette façon à faire, c'est à dire il va mettre son chemin d'accès via une TextBox, attention le document ne doit pas être écrasé par l'enregistrement d'un autre etc...

Je ne sais pas si je suis assez clair...^^

[hunteshiva]

L'idée que je t'ai donnée a vite ses limites *elle est nul en résumé *

regarde ici,
je pense que tu peux gérer tes pdf comme tu le veux.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim PDFDoc As PDFDocScout.PDFDocument
PDFDoc = New PDFDocScout.PDFDocument ' create new PDFDoc object
 
PDFDoc.InitLibrary("demo", "demo") ' init library
 
PDFDoc.OutputFileName = "c:\HelloWorld.pdf" ' set output filename for generated PDF document
PDFDoc.AutoOpenGeneratedPDF = true ' set to True to automatically open generated PDF document in default PDF viewer application
 
PDFDoc.BeginDocument ' begin PDF document generation
' add text to current page
PDFDoc.Page.AddText "Hello, World!", 100, 100, 15
PDFDoc.EndDocument ' close PDF document

et pour éviter d'écraser les pdf, tu peux utiliser un OpenFileDialogue,
ça permet de faire comme "enregistrer sous".

[Jupsx]

Ouep a vrai dire dire xD

Mais bon en fait ma technique de création de pdf marche très bien car elle garde le contenue e.graphics du printdocument, et la personne veut que je garde son "e.graphics" ^^'


Moi ce que je cherche c'est juste remplacer l'enregistrement
je met un choix de destination dans ma textbox "C:\....." et hop le pdf s'enregistre.

[hunteshiva]

Une idée...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Imports System.Drawing.Printing
    Public Class Form1
        Dim fnt As Font = New Font("Arial", 10, FontStyle.Regular, GraphicsUnit.Point)
        Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
            Dim ps As PrinterSettings = New PrinterSettings
            ps.PrinterName = "CutePDF Writer"
            PrintDocument1.PrinterSettings = ps
            PrintDocument1.Print()
        End Sub
        Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
            Dim gfx As Graphics = e.Graphics
            gfx.DrawString(txtTest.Text, fnt, Brushes.Black, 0, 0)
        End Sub
    End Class

regarde dans "ps",
tu doit pouvoir paramétrer l'emplacement de sauvegarde.