-
Fototrend
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
-
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
):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 -
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.
-
#11266
m.zmrzlina
senior tag
Angerfis
#11264
m.zmrzlina
senior tag
válasz
Angerfis
#11264
üzenetére
Szerintem sem kell feltétlenül makró.
Itt is van egyféle megoldás.
):
Új hozzászólás Aktív témák
Fferi50- GYÖNYÖRŰ iPhone 14 Pro Max 256GB Space Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3766
- Xiaomi Redmi Note 14 pro+ 512GB,Újszerű,Adatkabel, 12 hónap garanciával
- HIBÁTLAN iPhone 13 mini 128GB Starlight -1 ÉV GARANCIA - Kártyafüggetlen, MS3276
- GYÖNYÖRŰ iPhone 16 Pro 128GB Desert Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS3674, 99% Akksi
- HIBÁTLAN iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3337, 94% Akkumulátor
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő