Hallo,
ich versuche mit VBA Makro aus einer PowerPoint Präsentation heraus mit Adobe PDF eine PDF
Datei zu erzeugen. Die Präsentation enthält mehrere Seiten. Die PDF Datei hat das Makro
erzeugt, enthält aber nur die erste Seite der PowerPoint Präsentation. Mein Code sieht so aus:
Sub PowerPoint2PDF()
Dim ppa As New PowerPoint.Application
Dim ppp As PowerPoint.Presentation
If ppa.Presentations.Count = 0 Then ppa.Presentations.Add
'strPowerPointFile: meine PowerPoint Präsentation
Set ppp = ppa.Presentations.Open(strPowerPointFile)
With ppp.PrintOptions
.RangeType = ppPrintAll
.NumberOfCopies = 1
.Collate = msoTrue
.OutputType = ppPrintOutputSlides
.PrintHiddenSlides = msoTrue
.PrintColorType = ppPrintColor
.FitToPage = msoFalse
.FrameSlides = msoFalse
.ActivePrinter = "Adobe PDF"
End With
ppp.PrintOut
ppp.Close
ppa.Quit
Set ppp = Nothing
Set ppa = Nothing
End Sub
Kann mir irgendjemand erklären, warum das Makro nur die erste Seite der PowerPoint
Präsentation in die PDF konvertiert, und nicht den Rest? Vielen Dank.
Mit freundlichem Gruß
George |