Folgendes Problem:
Ich habe eine Arbeitsmappe mit 5 Tabellenblättern.
Ich möchte nun die komplette Arbeitsmappe als eine PDF Datei ausgeben. Hierfür nutze ich standardmäßig Adobe Acrobat 9 Pro.
Sub MappeAlsPdf()
Dim strPfad As String
strPfad = "C:\DeinPfad\..." 'Nach Bedarf anpassen
With ThisWorkbook
.Worksheets.Select
End With
'To:= nicht angegeben,um alle/volle Seiten zu exportieren
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strPfad, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, From:=1, OpenAfterPublish:=True
End Sub
LG