Office: (Office 2010) Excel VBA eingebettes Objekt drucken

Hi Excel-Gurus,

ich bräuchte einmal bitte eure Hilfe.

Ich habe schon die ganze letzte Woche gesucht, aber nichts gefunden.



Ich habe eine Excel-Datei (Druckbereich vorgegeben) mit einem eingebetteten Word Objekt.


Gibt es einen Weg nun über einen Button-Klick das Exceldokument und die eingebettete Datei mit Free-PDF zusammendrucken zulassen und zu speichern, sprich dass ich dann untereinander durchgehend ein Dokument habe? Das ganze natürlich automatisch ohne dass nochmal händisch Drucker etc. ausgewählt werden muss.


Vielen vielen Dank im Voraus.

Gruß Alex

:)

 

Ab XL2010 kannst du es auch asl PDF speichern.

 

Hi Xlph,

danke für deine schnelle Antwort.

Ja das ist schon richtig, aber die Datei ist als Symbol eingebettet, tut mir leid, das habe ich nicht erwähnt.

Hättest du dafür dann auch eine Lösung?


Grüße

 

Ja, nicht als Symbol einbetten. Dann ist die Word-Seite sichtbar.
Und was sichtbar ist kann gedruckt werden bzw. als PDF gespeichrt werden.

 

Hi Xlph,

das ist mir auch klar.

Problem wenn ich es normal einbette ohne Symbol zeigt er mir immer nur die erste Seite des Word-Dokuments an.

Außerdem zerhakt es mir dann ab und an die Formatierung des Word-Dokuments.

Wenn es als Symbol eingebettet ist läuft alles ganz sauber ab.

 

Das Symbol ist im Grunde ein Schaltfläche die mit der Word-Datei verlinkt ist,
die bei Betätigung die Word-Datei öffnet.

Ach verstehe jetzt, du möchtest mit Free-PDF die Excel-Datei mit der Word-Datei zusammenführen.

Funktioniert es denn manuell? Kann ich mir nur schwer vorstellen.

 

Riiiiichtig. Jetzt sind wir auf einem Nenner ;-)


Klar manuell funktionierts, kann sie ja über multidoc in freepdf zusammenfügen .

 

Hallo,

ein eingebettetes Word-Dokument kannst du so drucken:

Public Sub Word_Drucken()
Dim objWord As Object
With Tabelle1.OLEObjects(1)
Call .Verb(Verb:=xlOpen)
Set objWord = .Object.Application
End With
Call objWord.ActiveDocument.PrintOut
Call objWord.Quit
Set objWord = Nothing
Call Cells(1, 1).Select
End Sub

 

Hi Nepumuk,

danke für deinen Ansatz *Smilie


Dann habe ich es allerdings leider ímmer noch nicht geschafft dass alles automatisiert ist.

Die Haupt-Excel Datei und das eingebettete Worddukument (über Symbol) sollen ja nur durch einen Klick als pdf direkt hintereinander zusammengefügt werden.

 

Hallo,

da kann ich dir nicht weiter helfen, habe kein FreePDF installiert.

 

Trotzdem danke ;-)


Vielleicht kann noch jemand anderes helfen? *Smilie

 

Verwende den PDFCreator. Dieser lässt sich per VBA steuern.

PDFCreator >>

Code:
Code:

Siehe Datei.

 

Hey xlph,

super danke.


Problem ist dass bei uns in der Firma nur der FreePDF installiert ist.

Ich werde versuchen hier über den Admin den pdfCreator installieren zu lassen und dann teste ich das ganze mal.

Dafür schonmal tausend Dank *Smilie


Mit dem FreePDF gibt es aber garkeine Lösung?


Gruß Alex

 

Gibt es, aber nicht so elegant:

Code:

 

Morgen *Smilie

bin jetzt im Büro erst wieder dazu gekommen.

Wie würde der gesamte Code dazu dann aussehen?



Was meinst du mit nicht so elegant?

Lg