Discussion :

[jijie]

Bonjour,

Je souhaite imprimer un pdf avec des champs modifiable se trouvant sur un Webbrowser en pdf non modifiable!

Cela est possible en l'imprimant grâce pdf créator , c'est à dire en choisissant l'imprimante :

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
Dim eQuery As OLECMDF 'return value type for QueryStatusWB
 
If Me.WebBrowser1.Busy Then
MsgBox "Chargement de la page en cours"
Exit Sub
End If
 
On Error Resume Next
eQuery = Me.WebBrowser1.QueryStatusWB(OLECMDID_PRINT) 'get print command status
If Err.Number = 0 Then
If eQuery And OLECMDF_ENABLED Then
Me.WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, 0, 0 'Ok to Print
Else
MsgBox "La commande 'Imprimer' est désactivée."
End If
End If
If Err.Number <> 0 Then MsgBox "Erreur pendant l'impression: " & Err.Description

Mais est-il possible de récupérer ce pdf en pdf non modifiable sans ouvrir une boîte de dialogue et en le plaçant dans un dossier choisi?

[kiki29]

Salut, peut-être en adaptant Conversion dossier Jpg/Jpeg en PDFs protégés par mots de passe propriétaire/utilisateur à ton contexte ?

[jijie]

ça commence mal, en prenant ton code tel quel, après la sélection du dossier je plante ici:

Code :

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

    Set Tools = CreateObject("pdfforge.tools")