Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    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

  • #36563 Fferi50 Topikgazda Angerfis #36561
    Új Válasz #36563
    Ú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

    Fferi50

    Topikgazda

    válasz Angerfis #36561 üzenetére

    Szia!

    Szerintem annyi elég, ha beépíted konstansként a programodba a nyomtatót.
    Pl:
    Const Anyomt="\\............\.............RICOH-Aficio-MPC4502-PCL-6 a(z) Ne09: kimeneten"
    Const Bnyomt="\\............\.............RICOH-Aficio-MPC4502-PCL-6 a(z) Ne10: kimeneten"

    Ezt akár publikus konstansként is deklarálhatod, így másik modulból, másik makróból is elérhető, csak arra kell figyelned, hogy a hivatkozás: Modulnév.változónév.

    A makróban pedig megnézed, hogy az aktív printer melyik. Lekérdezed az Application.ActivePrinter tulajdonságot, ha valamelyik a kettő közül, akkor nyomtatsz rá. Ha nem, akkor beállítod.

    Üdv.

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