Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #36564 Pakliman tag Angerfis #36561
    Új Válasz #36564
    Ú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

    Pakliman

    tag

    válasz Angerfis #36561 üzenetére

    Én annak idején úgy oldottam meg a problémát, hogy a "...a(z) Ne09: kimeneten" szöveg alapján egy ciklussal szépen végigmentem a számokon. Megnéztem, hogy létezik-e az a nyomtató, ha nem, akkor Next.
    Valami ilyesmi volt (vagyis pont ez :DD ):

    Public Const Pr_Beo As String = "\\primon\SZK901"
    Public Const Pr_S_Munkaügy As String = "\\primon\SUV204"
    Public Const Pr_S_Diszp As String = "\\F90001295\HPLJ4200"
    Public Const Pr_F_Diszp As String = "\\primon\FKA204"
    Public Const Pr_H_Diszp As String = "\\primon\HCN205"

    Public Function Nyomtató_Váltás(Optional mire As String = Pr_Beo) As Boolean
    Dim sorszám As Long
    Dim Hiba As Boolean

    Err.Clear
    Hiba = True
    On Error Resume Next
    For sorszám = 0 To 99
    Application.ActivePrinter = mire & " a(z) Ne" & Format(sorszám, "00") & ": kimeneten"
    If Err.Number = 0 Then
    Hiba = False
    Exit For
    End If
    Next sorszám

    Nyomtató_Váltás = Hiba

    Err.Clear

    End Function

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