Exemple

Dim PrSet as Object Dim ConnList as Object Set PrSet = CreateObject("ZIEWin.autECLPrinterSettings") Set ConnList = CreateObject("ZIEWin.autECLConnList") ' Initialize the connection ConnList.Refresh PrSet.SetConnectionByHandle(ConnList(1).Handle) ' This code segment checks to see if communications are connected ' for A. The results are sent to a text box called ' CommConn. If PrSet.CommStarted = False Then CommConn.Text = "No" Else CommConn.Text = "Yes" End If