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

• #47702 eszgé100 őstag Fire/SOUL/CD #47661

  Új Válasz 2021-11-08 03:02:45 #47702

  Ú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 #47661 üzenetére

  Itthoni gépen ez az eredmény:

  

  Amennyiben az XPS... on Ne00: szeretném beállítani színesre és a PDF on Ne01:-et fekete-fehérre, akkor elég az alábbiak szerint módosítanom a kódot, vagy van még valami, amire külön oda kellene figyelnem?
  
  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)
        If InStr(S, "XPS") Then Col = S
        If InStr(S, "PDF") Then BW = S
        Next N
    MsgBox Col, vbOKOnly, "Colour Printer"
    MsgBox BW, vbOKOnly, "BW Printer"
End Sub

  Col és BW lesz a két nyomtató teljes neve.
  Megnézem, hogy S tartalmazza-e az XPS vagy PDF kifejezést az adott ciklusban majd a végén kiíratom, hogy talált-e egyezést, ha valamelyik MsgBox üres, akkor sz.r van a palacsintában.
  A cilkus elejéről még módosítottam az S-t, hogy mindig csak az aktuális nyomtató neve legyen benne, és ne adódjanak össze a ciklus végére.

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