Detail hinzufügen bei PDF Ausdruck

ActiveSheet.PageSetup.PrintArea = "b3:H22" 'Druckbereich wird markiert ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\" & Range("E3").Value & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

ActiveSheet.PageSetup.PrintArea = "b3:H22" 'Druckbereich wird markiert ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\" & Range("A1") & Range("E3") & ".pdf", Quality:=xlQualityStandard, _ _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False

Hallo Helmut,
weil vielleicht doch noch jemand bescheid weiß, lasse ich diesen Thread in Deinem Sinne ebenfalls auf. Jedoch,wenn man dieses Thema mal recherchiert, findet man Leute mit ähnlichen Problemen und dazu noch spärliche Informationen ;-) Am Ende KÖNNTE es wohl über das XMP Toolkit SDK von Adobe laufen. Das hat allerdings keine COM Schnittstelle und lässt sich deshalb nicht direkt mit Excel VBA ansprechen. Ich gehe mal davon aus, dass Deine Java oder C++ Kenntnisse auch eher eingeschränkt sind? ;-)
Hier kannst Du das SDK runterladen:
http://www.adobe.com/devnet/xmp.html
Um zu verstehen, was das ist und was es kann, müsstest Du allerdings die 3 verlinken PDF Dokumente studieren (Part 1, Part 2, Part 3). Zu PDF-Dateien steht da auch etwas drin, aber ehrlich gesagt habe ich persönlich damit gar nix anfangen können.
Das was Du als Markierungen bezeichnest, heißt im Englischen Tags oder auch Keywords, wenn ich es richtig verstanden habe. Die wurden in Windows XP noch in der entsprechenden Spalte angezeigt, die du im Windows Explorer willst. Mit Windows 7 ging das plötzlich nicht mehr, wenn man den vielen verzweifelten Forenbeiträgen glauben darf, die ich aufgerufen habe. Hier schaffte die Installiton von Adobe Acrobat Abhilfe. Das ist nur leider nicht der Reader (Freeware) sondern der Writer (kostenpflichtig). Wie es mit Windows 10 ist, weiß ich nicht. Dazu gab es keinen einzigen Beitrag. (Danach habe ich aber nicht gezielt gesucht.)
Auf das SDK bin ich über diesen Foren Beitrag gekommen, in dem jemand das gleiche Problem hatte, wie Du:
http://forums.adobe.com/thread/1356165
Das ist übrigens alles englischsprachig. Auf Deutsch wäre es ein mittleres Wunder, zu so einem speziellen Thema etwas sinnvolles zu finden ;-) Du kannst natürlich trotzdem mal versuchen, in dem zuletzt verlinkten Forumsbeitrag, verlinktem Adobe-Forum (was für eine Satzkonstruktion ;-), einen Beitrag zu starten und einfach mal abzuwarten, ob jemand eine Idee hat.
Ansonsten rate ich bei solchen "Hardcore Problemen" zu Stack Overflow. Wahrscheinlich eines der kompetentesten Foren für Programmierer in allen Lebenslagen (natürlich auch auf englisch):
http://stackoverflow.com/
Zur Abrundung des Ganzen, bin ich auch auf einen Thread gestoßen, in dem jemand sagte, das es über JavaScript gehe. Dummerweise hat er aber nur einen Code Ausschnitt gepostet, der mich auch nicht weitergebracht hat. (Auch im Adobe Forum):
http://forums.adobe.com/message/4456776
Ich wünsche Dir echt viel Erfolg bei der Sache, Aber ehrlich gesagt scheint es dafür jemanden zu brauchen, der sich mit genau dieser Materie auskennt.
Viele Grüße,
Zwenn

ActiveSheet.PageSetup.PrintArea = "b3:H55" 'Druckbereich wird markiert ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\" & Range("b1").Value & Format(Date, "/ DD.MM.YY") & ".pdf", Quality:= _ xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False 'Name des Dokuments = Zelle B1 + aktuelles Datum(In diesem Fall QR Codenummer + Datum) 'ThisWorkbook.Path heißt, dass das PDF Dokument dort abgespeichert wird, wo sich die Excel _ Datei befindet Range("B1").Select

Hallo Helmut,
na, das funktioniert doch. Sogar "Filename" geht, obwohl dies lt. Firmus (Kommentar in seinem Skript ...) ausgeschlossen ist.
Ich vermisse in deinem Code irgendwas, mit dem die Properties gesetzt werden, z. B.:

ActiveWorkbook.BuiltinDocumentProperties("Keywords").Value = "Hello world"

Wenn die Excel-Datei vorher noch nie gespeichert wurde, landet das PDF im root-Verzeichnis.
Letzlich werden (bei mir) die Excel-Properties in die Dokumenteigenschaften des PDF übernommen. Mit einem halbwegs tauglichen PDF-Reader kann man die sich dann angucken.
Das bedeutet aber noch lange nicht, das der Windows-Explorer ebenfalls in der Lage ist, die Metadaten darzustellen. Wie in dem Beitrag von Robert Werner bereits angedeutet ist dies problematisch. Mir ist es hier (Windows 2012R2) nicht gelungen, auch nur den Autor des PDF-Dokuments im Explorer anzuzeigen, auch in den Dateieigenschaften ist nix zu sehen. Ganz zu schweigen von "weniger wichtigen" Feldern.

Beliebteste Forumthreads (12 Monate)

Detail hinzufügen bei PDF Ausdruck

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread