Sorry, you do not have permission to send message.

Please briefly explain why you feel this question should be reported.

Please briefly explain why you feel this answer should be reported.

Please briefly explain why you feel this user should be reported.

  • Ask questions get answers!

    We want to connect the people who have knowledge to the people who need it, to bring together people with different perspectives so they can understand each other better, and to empower everyone to share their knowledge. All that you need is create an account. Join our community. Create your feed, follow your desired categories and users and keep updated.Besides gaining reputation with your questions and answers, you receive badges for being especially helpful. Badges appear on your profile page, questions & answers.Use your eared points to cread freely sticky questions and get answers rapidly.

Share & grow the world's knowledge!

We want to connect the people who have knowledge to the people who need it, to bring together people with different perspectives so they can understand each other better, and to empower everyone to share their knowledge.

What's your question?
  1. Hi, Use the script in below. It uses the WScript.Network object to enumerate all printer connections on the network and check their status using the GetPrinterStatus method. On Error Resume Next ' Create a printer object Set objPrinter = CreateObject("WScript.Network") ' Get a list of all printers oRead more

    Hi,

    Use the script in below. It uses the WScript.Network object to enumerate all printer connections on the network and check their status using the GetPrinterStatus method.

    On Error Resume Next
    
    ' Create a printer object
    Set objPrinter = CreateObject("WScript.Network")
    
    ' Get a list of all printers on the network
    Set colPrinters = objPrinter.EnumPrinterConnections
    
    ' Loop through the list of printers
    For Each strPrinter in colPrinters
      ' Check the status of the current printer
      valuePrinterStatus = objPrinter.GetPrinterStatus(strPrinter)
      If valuePrinterStatus = 0 Then
        textStatus = "Unknown"
      ElseIf valuePrinterStatus = 1 Then
        textStatus = "Other"
      ElseIf valuePrinterStatus = 2 Then
        textStatus = "Ready"
      ElseIf valuePrinterStatus = 3 Then
        textStatus = "Paused"
      ElseIf valuePrinterStatus = 4 Then
        textStatus = "Error"
      ElseIf valuePrinterStatus = 5 Then
        textStatus = "Pending Deletion"
      ElseIf valuePrinterStatus = 6 Then
        textStatus = "Paper Jam"
      ElseIf valuePrinterStatus = 7 Then
        textStatus = "Paper Out"
      ElseIf valuePrinterStatus = 8 Then
        textStatus = "Manual Feed"
      ElseIf valuePrinterStatus = 9 Then
        textStatus = "Paper Problem"
      ElseIf valuePrinterStatus = 10 Then
        textStatus = "Offline"
      ElseIf valuePrinterStatus = 11 Then
        textStatus = "IO Active"
      ElseIf valuePrinterStatus = 12 Then
        textStatus = "Busy"
      ElseIf valuePrinterStatus = 13 Then
        textStatus = "Printing"
      ElseIf valuePrinterStatus = 14 Then
        textStatus = "Output Bin Full"
      ElseIf valuePrinterStatus = 15 Then
        textStatus = "Not Available"
      ElseIf valuePrinterStatus = 16 Then
        textStatus = "Waiting"
      ElseIf valuePrinterStatus = 17 Then
        textStatus = "Processing"
      ElseIf valuePrinterStatus = 18 Then
        textStatus = "Initialization"
      ElseIf valuePrinterStatus = 19 Then
        textStatus = "Warming Up"
      ElseIf valuePrinterStatus = 20 Then
        textStatus = "Toner Low"
      ElseIf valuePrinterStatus = 21 Then
        textStatus = "No Toner"
      ElseIf valuePrinterStatus = 22 Then
        textStatus = "Page Punt"
      ElseIf valuePrinterStatus = 23 Then
        textStatus = "User Intervention Required"
      ElseIf valuePrinterStatus = 24 Then
        textStatus = "Out of Memory"
      ElseIf valuePrinterStatus = 25 Then
        textStatus = "Door Open"
      ElseIf valuePrinterStatus = 26 Then
        textStatus = "Server Unknown"
      End If
      
      ' Print the printer name and it's status
      WScript.Echo "Printer: " & strPrinter & " - Status: " & textStatus
    Next
    

    The status of each printer is  printed to the console.

    Hope this will help.

     

     

    See less
  2. You can use Counter if you want to do multiple count of the list from collections import Counter list = ['Jones','Adams','Frank','John','Lopez','Jones','Smith','Ivan','Julian','Carlos','Adams','Frank','Jones','John','Ivan'] print(Counter(list)) Result: Counter({'Jones': 3, 'Adams': 2, 'Frank': 2, 'JRead more

    You can use Counter if you want to do multiple count of the list

    from collections import Counter
    list = ['Jones','Adams','Frank','John','Lopez','Jones','Smith','Ivan','Julian','Carlos','Adams','Frank','Jones','John','Ivan']
    print(Counter(list))

    Result:

    Counter({'Jones': 3, 'Adams': 2, 'Frank': 2, 'John': 2, 'Ivan': 2, 'Lopez': 1, 'Smith': 1, 'Julian': 1, 'Carlos': 1})

     

    See less
  3. You can't use a wait instruction in a routine called in background logic You can't call a program in a background logic. what are you trying to acheive exactly? Please explain what's the goal of your application

    You can’t use a wait instruction in a routine called in background logic

    You can’t call a program in a background logic. what are you trying to acheive exactly?

    Please explain what’s the goal of your application

    See less
  4. This answer was edited.

    Hi, In system variables you can find this variable: $MOR_GRP[1].$ROB_MOVE To share the state of robot is moving you can use a an output in a routine executed in a background logic. For example : DO[100] = $MOR_GRP[1].$ROB_MOVE Run this program in background logic: The output DO[100]  will be updatedRead more

    Hi,

    In system variables you can find this variable:

    $MOR_GRP[1].$ROB_MOVE

    To share the state of robot is moving you can use a an output in a routine executed in a background logic.

    For example :

    DO[100] = $MOR_GRP[1].$ROB_MOVE

    Run this program in background logic:

    The output DO[100]  will be updated and will get the robot motion status.

    I hope this help you.

     

    See less
  5. hello, try this code it will help you: Private Sub CommandButton1_Click() Application.ScreenUpdating = False 'disable screen update for performance Dim i, j As Integer Dim SheetsCount As Integer SheetsCount = Sheets.Count For i = 1 To SheetsCount - 1 For j = i + 1 To SheetsCount If Sheets(j).NameRead more

    hello,

    try this code it will help you:

    Private Sub CommandButton1_Click()
        Application.ScreenUpdating = False 'disable screen update for performance
        Dim i, j As Integer
        Dim SheetsCount As Integer
        SheetsCount = Sheets.Count
        For i = 1 To SheetsCount - 1
            For j = i + 1 To SheetsCount
                If Sheets(j).Name < Sheets(i).Name Then
                    Sheets(j).Move before:=Sheets(i)
                End If
            Next j
        Next i
        Application.ScreenUpdating = True 'enable screen update
    End Sub

     

    See less
  6. Hi, to remove duplicates from the list you can add this line before printing the list: my_list = list(dict.fromkeys(my_list)) best regards  

    Hi,

    to remove duplicates from the list you can add this line before printing the list:

    my_list = list(dict.fromkeys(my_list))

    best regards

     

    See less
  7. Hi If you do not want an system alarm pop up. Go to Screen Management -> Global Screen In this place you can delete alarm window and alarm indicator. and uplod your project to the HMI. good day

    Hi

    If you do not want an system alarm pop up.

    Go to Screen Management -> Global Screen

    In this place you can delete alarm window and alarm indicator.

    and uplod your project to the HMI.

    good day

    See less