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

  • #43028 Pakliman tag Zsolt_16 #43026
    Új Válasz #43028
    Ú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 Zsolt_16 #43026 üzenetére

    Szia!

    Az alábbi makrót nagyon régen hoztam létre, mert különbüző dolgokat más-más nyomtatóra kellett küldenem
    Az "előkészületekhez" lásd Fferi50 válaszát:
    Public Function Nyomtató_Váltás(mire As String) 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"
    'A "mire" a nyomtató neve, az utána lévőt változtasd meg úgy, hogy
    'egyezzen a rendszer által visszaadott "mintával"
    'Nálam az Application.ActivePrinter ezt adja: "szv222 a(z) Ne07: kimeneten"
    'Nem mindig Ne07, ezért kell "megkeresni" a jó portszámot.
    If Err.Number = 0 Then
    Hiba = False
    Exit For
    End If
    Next sorszám

    Nyomtató_Váltás = Hiba

    Err.Clear

    End Function


    'Használata (pl.):
    If Nyomtató_Váltás("szv222") Then
    '...
    '....amit szeretnél még elvégezni nyomtatás előtt...
    ActiveSheet.PrintOut
    Else
    MsgBox "Nincs ilyen nyomtató!!"
    End If

  • #43027 Fferi50 Topikgazda Zsolt_16 #43026
    Új Válasz #43027
    Ú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 Zsolt_16 #43026 üzenetére

    Szia!
    A másik fórumban írtam már, próbáld meg a következőt:
    Beállítod az Excelben a hálózati nyomtatót a nyomtatási paramétereknél.
    Ezután lekérdezed és elteszed egy változóba.
    pl. a=Application.ActivePrinter
    Majd ezzel a változóval állítod be az Application.ActivePrintert.
    Application.ActivePrinter=a
    Ha elsőre hibát jelez, próbáld meg átállítani más nyomtatóra kézzel. Ezután vissza az Application.ActivePrinterrel. Esetleg nincs csatlakoztatva a nyomtató.
    Elvileg ennek működnie kell, ismerősömnél működik rendesen hálózaton is.
    Ez a beállítás csak az Excelben érvényes, ott változtatja meg a nyomtatási kimenetet. Ha mindig erre szeretnél nyomtatni, felveheted konstansnak az értékét.
    Üdv.

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