PowerPoint Default Printer

[Milo_Minderbinder]

Hi,

I'm trying to force Powerpoint to use a different default printer than every other program (except excel: I use an add-in with excel to make excel choose the printer).

To accomplish this I think I need a PPT add-in.

The code is pretty simple, but it doesn't work as intended.

Sub Auto_Open()
Call SingleSide
End Sub

 
Sub SingleSide()
    With ActivePresentation.PrintOptions
        .ActivePrinter = "PPTPrinter"
    End With
End Sub

If I simply run the SingleSide macro with an open file, all is good. However, it doesn't work correctly when run in the add-in. I think the problem lies with the object ActivePresentation instead of Application. However, unlike excel, it appears I can't use Application in ppt.

Does anyone know how to change the default printer with VBA for all of powerpoint, preferably when opening the program?