---

Hallo,

hab ein kleines Problem. Hab mir für Word ein Druckmakro gemacht und in die Icon Leiste gelegt.

Das möchte ich auch bei Excel haben.

Wo und wie kann ich hier Programmcode eingeben der Arbeitsmappen unabhängig gespeichert wird.

Hier noch das Word Makro:

Code:

---

Option Explicit
Public vgin_AnzahlFach1 As Integer
Public vgin_AnzahlFach2 As Integer
' Modul
Sub Mehrfachdruck()
    vgin_AnzahlFach1 = 1
    vgin_AnzahlFach2 = 2
    frm_Drucken.Show 1
End Sub

' Formular
Private Sub Fach1_Change()
    Me.txt_Fach1.Text = Fach1.Value
End Sub

Private Sub Fach2_Change()
    Me.txt_Fach2.Text = Fach2.Value
End Sub

Private Sub UserForm_Initialize()
    Me.Caption = Application.ActiveDocument
    Me.lbl_Drucker.Caption = Application.ActivePrinter

    Me.Fach1.Value = vgin_AnzahlFach1
    Me.Fach2.Value = vgin_AnzahlFach2

End Sub
Private Sub BT_Drucken_Click()
    Dim OldTray
    ' Zwischenspeichern
    OldTray = Options.DefaultTrayID
   
    ' Schacht 2 unten (gelochtes Papier) 2 Exemplare
    If Fach2.Value > 0 Then
    Options.DefaultTrayID = 258
        Application.PrintOut Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent, _
        PageType:=wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, _
        Background:=True, PrintToFile:=False, Copies:=Fach2.Value
    End If
    ' Schacht 1 oben (Kundenpapier) 1 Exemplar
    If Fach1.Value > 0 Then
        Options.DefaultTrayID = 259
        Application.PrintOut Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent, _
        PageType:=wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, _
        Background:=True, PrintToFile:=False, Copies:=Fach1.Value
    End If
  
    Debug.Print Application.ActivePrinter
    ' Zrückspeichern der Einstellung
    Options.DefaultTrayID = OldTray
   
    Unload Me

End Sub

---

Stelli
------------------
Warum lisp'eln wenn's auch anders geht.

[Diese Nachricht wurde von Stelli1 am 07. Dez. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Du könntest das Makro in einer separaten Datei unter
'C:\Dokumente und Einstellungen\xxx\Anwendungsdaten\Microsoft\Excel\XLStart'
abspeichern. Diese wird dann automatisch beim Start von Excel mitgeladen.

Noch eine Frage zum Word-Macro: Woher hast du die ID-Nummern deiner Papierfächer bekommen. Wird bei der Makroaufzeichnung (zumindest bei mir) leider nicht erfasst.
Mathias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo  Mathias,

zuerst mal danke für die Antwort. Jedoch noch eine Frage:

Nach deiner Lösung ist das ganze ja User abhängig. Geht das auch global einzustellen ?

Mit der Schacht-ID ist es ganz einfach. Stell unter Extras/Optionen Register Drucken den Standardschacht auf dein gewünschtes Fach.
Starte das Makro, vorher Breakpoint auf Zeile mit "speichern der ID" setzen, und ID ablesen (Debug.print, oder Wert abfragen). Das machst du mit all deinen Fächern so die du benutzen willst.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Stellie,

alternativ zur Personl.xls [dasselbe wie das xl-start-file]
eventuell noch als Addin [also *.xla], welches auf dem Server liegt.
Muss dann aber jeder User erstmal geladen haben. [Extras > Addins-Manager]

Aaaber ob das jetzt so einfach geht mit dem Server, weiss ich nicht, bin da nicht so der Hirsch und habs auch noch nicht probieren können, denke/glaube/hoffe aber mal müsste gehen irgendwie;-)

lg Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Danke für die Antworten,

werde mal beide Varianten testen.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP