Dim Var2 As Object

Set Var1 = GetObject (,"FixBackGroundServer.Application")
Set Var2 = Var1.System.FindObject("Sched1.Timer1")

Var2.TimerEnabled = False

End Sub

To Start the TimerObject:

Private Sub CommandButton2_Click()
Dim Var1 As Object
Dim Var2 As Object

Set Var1 = GetObject (,"FixBackGroundServer.Application")
Set Var2 = Var1.System.FindObject("sched.Timer1")

Var2.TimerEnabled = True
Var2.StartTimer

End Sub 

3：iFIX 如何使用 vba 进行网络打印机打印？
Description：
The  following  is  an  example  of  printing  an  Excel  Document  to  a  Network  Printer  or  a  printer 
other than the
 default printer on the machine.

Dim objXL As Object
Dim myDoc As Object

Set objXL = CreateObject("Excel.Application")
Set myDoc = objXL.Workbooks.Open("C:\testfile.xls", , True) 

myDoc.Printout 

copies:=1, 

preview:=False, 

ActivePrinter:="'\\SERVER\PRINTER", 

printtofile:=False, collate:=True 

myDoc.Close
Set objXL = Nothing
Set myDoc = Nothing 

References