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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen