• Global community
    • Language:
      • Deutsch
      • English
      • Español
      • Français
      • Português
  • 日本語コミュニティ
    Dedicated community for Japanese speakers
  • 한국 커뮤니티
    Dedicated community for Korean speakers
Exit
0

Problème lors d'ecriture sur le disque dur d'un pdf

New Here ,
Nov 04, 2022 Nov 04, 2022

Copy link to clipboard

Copied

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 :

 

Adobe Acrobat NeedsWriteAcces.png

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

 

TOPICS
Edit and convert PDFs , Windows

Views

59

Translate

Translate

Report

Report
Community guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
community guidelines
Community Expert ,
Nov 04, 2022 Nov 04, 2022

Copy link to clipboard

Copied

LATEST

Try the forum for Acrobat SDK.

Votes

Translate

Translate

Report

Report
Community guidelines
Be kind and respectful, give credit to the original source of content, and search for duplicates before posting. Learn more
community guidelines