title: Cant set OutputType for PowerPoint Print with VBScript
body: <p>I am able to open a pptx file via vbscript and print it, but I can't for the life of me get the <code>OutputType</code> set. I continuallly get this error no matter my formatting, I even copied direct from Microsoft docs. Any idea whats wrong?&gt;</p>
  <p><a href="https://docs.microsoft.com/en-us/office/vba/api/powerpoint.printoptions" rel="nofollow noreferrer">https://docs.microsoft.com/en-us/office/vba/api/powerpoint.printoptions</a></p>
  <p>Error:</p>
  <pre><code>C:\Windows\system32&gt;cscript.exe C:\tmp\print_ppt.vbs
  Microsoft (R) Windows Script Host Version 5.812
  Copyright (C) Microsoft Corporation. All rights reserved.
  
  C:\tmp\print_ppt.vbs(26, 9) Microsoft PowerPoint 2016: PrintOptions.OutputType : Invalid enumeration value.
  </code></pre>
  <p>Code:</p>
  <pre><code>Dim objPPT
  Dim objPresentation
  Dim objPrintOptions
  
  Set objPPT = CreateObject(&quot;PowerPoint.Application&quot;)
  objPPT.Visible = True
  
  'Presentations.Open &quot;filename&quot;, boolReadOnly, boolOpenUntitled, boolWithWindow
  Set objPresentation = objPPT.Presentations.Open(&quot;C:\tmp\test.pptx&quot;,msoTrue,,msoFalse)
  
  Set objPrintOptions = objPresentation.PrintOptions
  objPrintOptions.PrintInBackground = False
     'https://docs.microsoft.com/en-us/office/vba/api/powerpoint.printoptions.outputtype
  'objPrintOptions.OutputType = ppPrintOutputSixSlideHandouts
  'objPresentation.PrintOut
  
  
  With objPresentation 
      With .PrintOptions 
          .NumberOfCopies = 2 
          .Collate = False 
          .PrintColorType = ppPrintColor 
          .PrintHiddenSlides = True 
          .FitToPage = True 
          .FrameSlides = True 
          .OutputType = ppPrintOutputSlides 
      End With 
      .PrintOut 
  End With
  
  objPresentation.PrintOptions.PrintInBackground = True
  objPPT.Quit
  Set objPPT = nothing
  </code></pre>