Thema Datum  Von Nutzer Rating
Antwort
12.07.2017 17:25:53 Alex B.
NotSolved
12.07.2017 19:45:31 Ben
NotSolved
12.07.2017 19:49:56 Werner
NotSolved
13.07.2017 11:59:34 Alex B.
NotSolved
13.07.2017 12:15:16 Alex B.
NotSolved
13.07.2017 12:28:16 Ben
NotSolved
13.07.2017 14:13:21 Alex B.
Solved
Blau Formularsteuerelemente verschwinden
13.07.2017 17:26:42 Ben
Solved
14.07.2017 15:11:21 Alex B.
NotSolved

Ansicht des Beitrags:
Von:
Ben
Datum:
13.07.2017 17:26:42
Views:
601
Rating: Antwort:
 Nein
Thema:
Formularsteuerelemente verschwinden

Hallo,

nach meinen bisherigen Erkenntnissen liegt es an mindestens einem der folgenden Buttons: "2X", "3X", "4X", "5X", "10X" und "12X"

Wenn Bspw. das Tabellenblatt "Aufkleber 1Tab." aus der irrtümlich geposteten Arbeitmappe in die zweite Arbeitsmappe kopiert wird, und anschließend nacheinander die grünen Buttons in die neue Tabelle kopiert werden, stellt man fest, dass spätestens bei drei Buttons das Fehlverhalten auftritt. Im neu kopierten Tabellenblatt muss vor dem Ausführen der Buttons erst der Code kopiert werden, andernfalls bleiben die Buttons funktionslos.

Noch eine Optimierungsempfehlung:

In den Tabellenblättern kann folgender Code eingesetzt werden:

Option Explicit

Private Sub CommandButton1_Click()
    myPrintOut objSheet:=Me, Copies:=1
End Sub

Private Sub CommandButton2_Click()
    myPrintOut objSheet:=Me, Copies:=2
End Sub

Private Sub CommandButton3_Click()
    myPrintOut objSheet:=Me, Copies:=3
End Sub

Private Sub CommandButton4_Click()
    myPrintOut objSheet:=Me, Copies:=4
End Sub

Private Sub CommandButton5_Click()
    myPrintOut objSheet:=Me, Copies:=5
End Sub

Private Sub CommandButton7_Click()
    myPrintOut objSheet:=Me, Copies:=10
End Sub

Private Sub CommandButton8_Click()
    myPrintOut objSheet:=Me, Copies:=12
End Sub

Dieser Code kann in jeder Tabelle eingesetzt werden. Die Variable "Me" verweist jeweils auf das entsprechende Tabellenblatt. Daher braucht nicht der Name des Tabellenblattes nochmals im Code angegeben werden.

In dem Befehl myPrintOut wird der eigendlichen Druck-Befehl ausgeführt:

Option Explicit

Sub myPrintOut(objSheet As Worksheet, Optional Copies As Integer = 1)

    Dim sDruckerAktuell As String
    'Aktuellen Drucker merken
    sDruckerAktuell = Application.ActivePrinter
    Application.ActivePrinter = "RICOH Aficio MP 201 auf Ne00:"
    objSheet.PrintOut Copies:=Copies, Collate:=True
    Application.ActivePrinter = sDruckerAktuell

End Sub

Falls später der Druckername sich ändern sollte, braucht dieser nur hier einmal geändert werden.

Wenn der Druckername in mehreren Arbeitsmappen verwendet wird, kann dieser auch in eine Ini-Datei angegeben werden und mit PrivateProfileString ausgelesen werden. Bei einer Änderung brauchen nicht X-Arbeitsmappen angefasst, sondern nur eine INI-Datei abgeändert werden.

Leider kennt Excel den Befehl PrivateProfileString nicht. Dieser kann jedoch mit API zur Verfügung gestellt werden. Alles Weitere kann hier nachgelesen werden.

LG, Ben


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.07.2017 17:25:53 Alex B.
NotSolved
12.07.2017 19:45:31 Ben
NotSolved
12.07.2017 19:49:56 Werner
NotSolved
13.07.2017 11:59:34 Alex B.
NotSolved
13.07.2017 12:15:16 Alex B.
NotSolved
13.07.2017 12:28:16 Ben
NotSolved
13.07.2017 14:13:21 Alex B.
Solved
Blau Formularsteuerelemente verschwinden
13.07.2017 17:26:42 Ben
Solved
14.07.2017 15:11:21 Alex B.
NotSolved