Probleme mit PDF-Druck per VBA
11.03.2008 13:47:43
Michael
Ich verwende folgenden Code um aus einer Arbeitsmappe bestimmte Arbeitsblätter als PDF zu drucken. Mein eigentliches Ziel ist es, dass alle diese Arbeitsblätter nun in einer PDF Datei zusammenfasster werden sollten. Stattdessen werden aber 5 PDF Dateien produziert.
Sub PDF_drucken()
Dim strRelPfad As String
Dim strTitel As String
Dim sFile As String
MsgBox "Bitte im nächsten Speichern unter Fenster" & Chr(13) & _
"die Datei nochmals speichern. Das PDF steht dann an der selben Stelle."
sFile = Application.GetSaveAsFilename(InitialFileName:="RR_BAH_", fileFilter:="Excel-Dateien, *. _
xls")
If sFile = "Falsch" Then Exit Sub
ActiveWorkbook.SaveAs Filename:=sFile
strTitel = InputBox("Unter welchem Titel abspeichern? (ohne .pdf)", , "RR_BAH_")
strRelPfad = "c:\" & strTitel
Sheets(Array("Title", "Overview_NS_Month", "Overview_NS_YTD", _
"Overview_OI_YTD", "World_NS_Market", "EU_NS_Market", "AM_NS_Market", _
"AAA_NS_Market", "Top10_Products", "Core_Products")).Select
Sheets("Title").Activate
' ActiveWindow.ScrollWorkbookTabs Sheets:=1
' ActiveWindow.ScrollWorkbookTabs Sheets:=1
Application.ActivePrinter = "Adobe PDF auf Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF auf Ne00:", Collate:=True
End Sub
Hier Aufstellung welches Sheet in welcher PDF Datei landet:
1. PDF: Sheet Title
2. PDF: Sheets Overview_NS_Month, Overview_NS_YTD, Overview_OI_YTD
3. PDF: Sheets World_NS_Market, EU_NS_Market, AM_NS_Market, AAA_NS_Market
4. PDF: Sheet Top10_Products
5. PDF: Sheet Core_Products
Was muss ich tun, damit alle diese Arbeitsblätter in einem PDF ausgegeben werden.
Viele Grüße
Michael