Bonjour
Nous utilisons Adobe Creative Cloud
J'ai un petit progemme en vb.net qui utilise cette librairie AcroExch.PDDoc
Lorsque je sauvegarde le fichier sur le disque dur on me demande ceci :
Si je dis yes le fichier va s'écrire sur le disque dur. Excellent!
Le problème est que si le client a 31 fichiers à modifier il doit dire 31 fois yes 🙂
voici le code que j'ai comme code:
Sub MAKE_COPIES(ByVal SOURCE_FILENAME As String, ByVal WORKORDER As String, ByVal NUM_PROJ As String, ByVal ITEM_NUMBER As String, ByVal QTY As String, ByVal OFOLDER As String)
Dim ODOC As AcroPDDoc
ODOC = CreateObject("AcroExch.PDDoc")
ODOC.Open(SOURCE_FILENAME)
Dim JSO As Object
JSO = ODOC.GetJSObject
Dim OCOLOR As Object
OCOLOR = JSO.COLOR.BLACK
Dim INFOS As String
' Preparation de la ligne de texte que nous voulons ajouter dans le bas de la page du fichier pdf courant.
INFOS = "WO: " & WORKORDER & " / " & "# Projet: " & NUM_PROJ & " / " & "Item: " & ITEM_NUMBER & " / " & "Qté: " & QTY & " / " & DateTime.Now.Date
' Ajouter le texte dans le pdf
Call JSO.ADDWATERMARKFROMTEXT(INFOS, 0, "HELVETICA", 16, OCOLOR, 0, 0, True, True, True, 0, 0, 0.0, -0.48, True)
' Selon la dimendion du fichier pdf on défini le répertoire dans lequel le fichier doit se sauvegarder
If PAGE_SIZE(ODOC) = "8,5X11" Then
OFOLDER = Path.Combine(OFOLDER, "FORMAT A")
ElseIf PAGE_SIZE(ODOC) = "11X17" Then
OFOLDER = Path.Combine(OFOLDER, "FORMAT B")
ElseIf PAGE_SIZE(ODOC) = "22X34" Then
OFOLDER = Path.Combine(OFOLDER, "FORMAT D")
End If
' On récupère le nom du fichier de type pdf
Dim TARGET_FILENAME As String = Path.Combine(OFOLDER, Path.GetFileNameWithoutExtension(SOURCE_FILENAME) & ".pdf")
Dim I As Integer = 1
Dim TEST_FILENAME As String
' Ici on boucle pour vérifier si la version du fichier que nous avons présentement existe dja si oui alors on incrément de 1 la variable I et on revéfiei si le fichier existe tant et aussi longtemps que nous trouvons une version libre non exisante sur le disque dur
If File.Exists(TARGET_FILENAME) = True Then
Do
TEST_FILENAME = Path.Combine(OFOLDER, Path.GetFileNameWithoutExtension(TARGET_FILENAME) & "-" & I & ".pdf")
I += 1
Loop Until File.Exists(TEST_FILENAME) = False
TARGET_FILENAME = TEST_FILENAME
End If
' C'est ici que nous devons donner les privileges pour ecrie sur le disque dur mais je ne sais pas comment
' Ici on sauvegarde le fichier sur le dique dur
JSO.SAVEAS(TARGET_FILENAME, "", "", True, False)
' On ferme le document
ODOC.Close()
End Sub
Merci d'avance
1
Reply
AdChoices