PrintSpoolExecutable Example

Using Programming Languages other than VBA

Sub Example_PrintSpoolExecutable()
	' This example returns the current setting of
	' PrintSpoolExecutable. It then changes the value, and finally
	' it resets the value back to the original setting.

	Dim preferences As AcadPreferences
	Dim currPrintSpoolExecutable As String
	Dim newPrintSpoolExecutable As String

	Set preferences = ThisDrawing.Application.preferences

	' Retrieve the current PrintSpoolExecutable value
	currPrintSpoolExecutable = preferences.Files.PrintSpoolExecutable
	MsgBox "The current value for PrintSpoolExecutable is " & currPrintSpoolExecutable, vbInformation, "PrintSpoolExecutable Example"

	' Change the value for PrintSpoolExecutable
	newPrintSpoolExecutable = "TestPrintSpoolExecutable"
	preferences.Files.PrintSpoolExecutable = newPrintSpoolExecutable
	MsgBox "The new value for PrintSpoolExecutable is " & newPrintSpoolExecutable, vbInformation, "PrintSpoolExecutable Example"

	' Reset PrintSpoolExecutable to its original value
	preferences.Files.PrintSpoolExecutable = currPrintSpoolExecutable
	MsgBox "The PrintSpoolExecutable value is reset to " & currPrintSpoolExecutable, vbInformation, "PrintSpoolExecutable Example"
End Sub

 

   Comments?