Thema Datum  Von Nutzer Rating
Antwort
Rot Erzeugung PDF mit individuellen Eigenschaften - Code - VBA
 11.08.2017 13:06:12 Christian Meyer
NotSolved
11.08.2017 14:10:40 Ben
NotSolved
11.08.2017 14:12:40 Ben
NotSolved

Ansicht des Beitrags:
Von:
Christian Meyer		 Datum:
11.08.2017 13:06:12		 Views:
1091		 Rating:
     
Antwort:
  Ja
Thema:
Erzeugung PDF mit individuellen Eigenschaften - Code - VBA

Hallo,

 

ich bin dabei mit VBA-Code über Excel eine PDF Datei zu erzeugen. Über den angefügten Code ist es mir möglich beim öffnen die Lesezeichen/Bookmarks anzeigen zu lassen.

Allerdings verzweifel ich bei zusätzlichen Eigenschaften. Ich weiß zwar wie ich die PDF doppelseitig abspeicher, allerdings nützt es mir nichts, weil ich ja immer wieder eine neue erzeuge. Ich bräuchte hier also einen gleichwertigen Code wie mein angefügter. Zudem soll automatisch das Menü nicht angezeigt werden. Auch hier habe ich keine passende Funktion gefunden. Der VBA Code ist optional, ich würde mich ebenfalls über Lösungen freuen, die mit anderen Sprachen oder Programmen geschrieben sind. Wichtig ist nur, dass der Prozess in der Erzeugung der PDF-Datei mit eingebunden werden kann.  Eine ausführliche Lösung wäre dann hilfreich weil ich die Objekt-Erzeugung eines Adobe Dokument bisher nur mit Vba hatte. 

 

 


Sub propbs()

Dim AVDocu As Object
Dim strArgument2 As String

Set gApp = CreateObject("AcroExch.app")
Set AVDocu = CreateObject("AcroExch.AVDoc")
Set PDDocu = CreateObject("AcroExch.PDDoc")

strArgument2 = ("C:\Datei.pdf")
AVDocu.Open strArgument2, strArgument2
Set PDDocu = AVDocu.GetPDDoc
PDDocu.SetPageMode (3)
PDDocu.SetView (1)

savFull = PDDocu.Save(1, "C:\Datei.pdf")

AVDocu.Close (True)
gApp.Exit
Set AcroApp = Nothing
Set AVDocu = Nothing
Set gApp = Nothing
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Erzeugung PDF mit individuellen Eigenschaften - Code - VBA
 11.08.2017 13:06:12 Christian Meyer
NotSolved
11.08.2017 14:10:40 Ben
NotSolved
11.08.2017 14:12:40 Ben
NotSolved