Runtime error '2147467261 (80004003)': Automation error invalid pointer

Hello Experts:

I have an AutoExec function called ChangePrinter that captures what the current default printer is (global) and then sets it to a specific printer.

On the Switchboard form, in the on close event, it calls GoDefaultPrinter to change it back to the original printer that Windows was set to prior to the db being opened.

I am able to capture the correct printer name if I uncomment the message box in the code.  I am able to get the code (autoexec and the on close) to do what I want without errors if I step line by line.  When I open the database, the autoexec code fires off without a hitch.  When I try to close out of the Switchboard, I receive the error, "Runtime Error '2147267261 (80004003'): Automation error invalid pointer."

Any suggestions on how to correct this?

Thank you!

Option Compare Database
Option Explicit
Global GBL_Printer As String
 
Public Function ChangePrinter()
'Set Reference to Windows Script Host Object Model \System32\wshom.ocx.
Dim w As New WshNetwork, p As String
GBL_Printer = Printer.DeviceName 'Gets the default printer
w.SetDefaultPrinter ("ImageMaster")
Set w = Nothing
End Function
 
Function GoDefaultPrinter()
Dim n As New WshNetwork, p As String
p = GBL_Printer
n.SetDefaultPrinter p
Set n = Nothing
'MsgBox "The original printer was " & GBL_Printer & ".", vbInformation, "Testing"
End Function

Select allOpen in new window