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

• #43028 Pakliman tag Zsolt_16 #43026

  Új Válasz 2020-02-11 07:52:00 #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 2020-02-10 23:09:15 #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