expression.StartLogging()
where expression is a variable that represents a Terminal Object
expression.StartLogging()
Private Sub Terminal_Connected(ByVal sender As Variant, ByVal ConnectionID As Long, ByVal connnectionType As Attachmate_Reflection_Objects_Emulation_OpenSystems.ConnectionTypeOption, ByVal connectionSettings As Variant) 'Start capturing text to a file: ThisScreen.ScreenPrinting.PrinterLogging = True ThisScreen.ScreenPrinting.PrintToFile = Environ$("USERPROFILE") & "\Documents" & "\test.txt" ThisTerminal.StartLogging End Sub Private Sub Terminal_Disconnected(ByVal sender As Variant, ByVal ConnectionID As Long, ByVal connnectionType As Attachmate_Reflection_Objects_Emulation_OpenSystems.ConnectionTypeOption, ByVal connectionSettings As Variant) 'Stop capturing text to a file: ThisScreen.ScreenPrinting.PrinterLogging = False ThisTerminal.StopLogging End Sub