Ú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

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