Keresés

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

  • 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

  • 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