AW: mehrere registerkarten als pdf speichern vba
29.06.2018 17:47:26
Nepumuk
Hallo Marcus,
teste mal:
Option Explicit
Public Sub PDF_drucken()
Const PDF_FOLDER As String = "C:\Users\HMS7RT\Desktop\Daily Wiki\"
Dim strFilePath As String
Dim objActiveSheet As Object
With Worksheets("Auswertung Wikidaten")
strFilePath = PDF_FOLDER & .Cells(2, 14).Text & .Cells(2, 15).Text
End With
Set objActiveSheet = ActiveSheet
Call Worksheets(Array("Abweichungsübersicht", "Tägliche Ausbringung Bonden TO", _
"Lieferzahlen SMD022-070", "Ablieferung an W050")).Select
Call Worksheets("Abweichungsübersicht").ExportAsFixedFormat(Type:=xlTypePDF, _
Filename:=strFilePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True)
objActiveSheet.Select
Set objActiveSheet = Nothing
End Sub
Gruß
Nepumuk