Hallo zusammen.
Ich möchte an einer Powerpoint Präsentation, bei der Folien ausgeblendet werden können, eine PDF erzeugen, in der die ausgeblendeten Folien nicht gedruckt werden. ich weiß, dass es den Befehl ".PrintOptions.PrintHiddenSlides = msoFalse" gibt. Nur wo und wie baue ich den ein?
Mein VBA Code sieht bisher so aus, aber die ausgeblendeten Folien werden immer mitgedruckt: 

Private Sub CommandButton1_Click()
Dim Druck As Presentation
Set Druck = ActivePresentation
   With ActivePresentation
   .PrintOptions.PrintHiddenSlides = msoFalse
   End With 
  Dim strName As String
strName = Left(Druck.Name, InStrRev(Druck.Name, ".") - 1)
Druck.SaveCopyAs FileName:=Druck.Path & "\" & strName & ".PDF", FileFormat:=ppSaveAsPDF
MsgBox "Gespeichert als :" & Druck.Path & "\" & strName & ".PDF"
End Sub

Gruß und Danke schonmal.