Thema Datum  Von Nutzer Rating
Antwort
Rot Powerpoint ausgeblendete Folien nicht drucken
 07.07.2022 14:41:51 Markus
NotSolved
07.07.2022 18:11:56 Gast26624
NotSolved
08.07.2022 08:05:43 Markus
NotSolved

Ansicht des Beitrags:
Von:
Markus		 Datum:
07.07.2022 14:41:51		 Views:
669		 Rating:
     
Antwort:
  Ja
Thema:
Powerpoint ausgeblendete Folien nicht drucken

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.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Powerpoint ausgeblendete Folien nicht drucken
 07.07.2022 14:41:51 Markus
NotSolved
07.07.2022 18:11:56 Gast26624
NotSolved
08.07.2022 08:05:43 Markus
NotSolved