PDF aus Excel erzeugen

Question

WIN 7
Office 2010
--------------------
Meine Exceldatei hat folgende Tabellen:
- Deckblatt
- Fragen
- Bemerkung
- Zusammenfassung
- Maßnahmen
-Titel (entspricht Tabelle Deckblatt)

Alle Tabellen sind untereinander verknüpft.

Mit folgendem Makro soll eine PDF-Datei aus der Exceldatei erzeugt werden (Reihenfolge der Tabellenblätter ist zwingend notwendig)

Var. 1

Sub PDFerstellen()
'
' PDFerstellen Makro
'

'
Application.Run "Fragebogen"
Application.Run "Bemerkung"
Application.Run "Zusammenfassung"
Sheets("Titel").Select
Sheets(Array("Titel", "Bemerkung", "Zusammenfassung")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF auf Ne05:", Collate:=True, Preview:=False
End Sub
oder
Var. 2

Sub pdfprint1()
'
' pdfprint Makro
' Makro am 14.12.2011 von ei9qij aufgezeichnet
'
' Tastenkombination: Strg+p
'

Sheets(Array("Titel", "Bemerkung", "Zusammenfassung")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF auf Ne05:", Collate:=True, Preview:=False
Sheets("Deckblatt").Select
End Sub

Leider kann ich mit beiden Makros nicht das erwünschte Ziel erreichen. Unter einer älteren Officeversion hat es damit gut geklappt.
Entweder wird nur eine Seite ('Titel') in PDF angezeigt, oder es werden die Seiten 'Bemerkung', 'Zusammenfassung' ohne 'Titel' in PDF umgewandelt.
Leider kommt es aber auch ständig zu "Keine Rückmeldung" bei Excel.

Kann ggf. jemand helfen??? Danke im Voraus.

Answer 1

Hallo,

probier es mal so:

Sub PDF_Druck()

With Sheets(Array("Titel", "Bemerkung", "Zusammenfassung"))
.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF auf Ne05:", Collate:=True, Preview:=False
End With

Sheets("Deckblatt").Select

End Sub

Gruß

M.O.

Answer 2

Danke M.O. für Deinen Vorschlag.

Beim ersten Versuch (Test über F8-Taste) kam zunächst eine Meldung von Adobe Reader:
"Beim Öffnen dieses Dokuments ist ein Fehler aufgetreten. Diese Datei kann nicht gefunden werden. -OK-"

Nach OK drücken wird in Adobe dann nur eine Seite - "Titel" angezeigt, die anderen Seiten aus " Bemerkung" und "Zusammenfassung" fehlen.

Bei einem zweiten Versuch (Test über einen Button dem das Makro zugeordnet wurde) wurde dann Adobe geöffnet und die Seiten aus "Bemerkung" und "Zusammenfassung" angezeigt, "Titel" fehlte.
Nach dem Schließen von Adobe hängt sich Excel wieder auf "Keine Rückmeldung".

Anmerkung: unter Geräte und Drucker werden unter mehreren Druckern (Hardware) auch "Adobe PDF" und "PDFCreator" angezeigt.

Answer 3

Hallo,

schau mal im VBA-Editor - Extras - Verweise nach, ob auf Adobe-PDF und / oder den PDF-Creator entsprechende Verweise (Haken) gesetzt sind.

Bei mir (Excel 2007) funktioniert das Makro einwandfrei.

Gruß

M.O.