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

• #36564 Pakliman tag Angerfis #36561

  Új Válasz 2017-11-16 23:23:51 #36564

  Ú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 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

• #36563 Fferi50 Topikgazda Angerfis #36561

  Új Válasz 2017-11-16 22:49:20 #36563

  Ú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 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.

• #36543 Fferi50 Topikgazda Angerfis #36541

  Új Válasz 2017-11-16 14:13:33 #36543

  Ú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 Angerfis #36541 üzenetére

  Szia!

  Nézd meg az Application.ActivePrinter tulajdonságot. A konkrét hivatkozás helyett lehet ezt használni.

  Üdv.

• #11268 m.zmrzlina senior tag Angerfis #11267

  Új Válasz 2011-09-08 11:41:07 #11268

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Angerfis #11267 üzenetére

  Nincs mit.

• #11266 m.zmrzlina senior tag Angerfis #11264

  Új Válasz 2011-09-08 11:29:42 #11266

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Angerfis #11264 üzenetére

  Szerintem sem kell feltétlenül makró.

  Itt is van egyféle megoldás.

• #11265 bugizozi őstag Angerfis #11264

  Új Válasz 2011-09-08 11:14:41 #11265

  Ú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

  

  bugizozi

  őstag

  válasz Angerfis #11264 üzenetére

  Munkafüzetfájl megtekintés vagy szerkesztés elleni védelme

  Ez nem lenne számodra jó megoldás, mert akkor nem kellene makrózni

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