Új hozzászólás Aktív témák

• #47709 eszgé100 őstag Fire/SOUL/CD #47708

  Új Válasz 2021-11-09 09:27:36 #47709

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  eszgé100

  őstag

  válasz Fire/SOUL/CD #47708 üzenetére

  annyiban kellett módosítanom, hogy a 2 feltételre keressen.
  Előző példánál maradva az itthon gépen "nyomtatóinak" listája:

  

  viszont a kulcsszavam, amit keresek "Microsoft" -> BW nyomtató
  "Microsoft Print" -> Col nyomtató
  Mivel a Microsoft mindkét esetben előfordul, ezért a két változó egyforma eredményt hozott.

  Így már tökéletes:

  Sub Testprinters()
    Dim Printers() As String
    Dim N As Long
    Dim S As String
    Dim Col As String
    Dim BW As String
    
    Printers = GetPrinterFullNames()
    For N = LBound(Printers) To UBound(Printers)
        S = Printers(N) 'S & Printers(N) & vbNewLine
        If InStr(S, "Microsoft") <> 0 And InStr(S, "Print") <> 0 Then Col = S
        If InStr(S, "Microsoft") <> 0 And InStr(S, "Print") = 0 Then BW = S
        Next N
    MsgBox Col, vbOKOnly, "Colour Printer"
    MsgBox BW, vbOKOnly, "BW Printer"
End Sub

  Nagyon szépen köszönöm a segítséged

  "-Meddig tart a játék? -Amíg mindenkinek ki nem verik a fogát..."

Új hozzászólás Aktív témák