Excel 2010: Makro für Papierzufuhr?

Hallo zusammen,

ich möchte die Papierzufuhr mehrerer Tabellen und Tabellenblätter dauerhaft ändern.

Ich habe dies bereits über die Optionen getan und gespeichert. Alles eigentlich wunderbar! Eigentlich! Wunderbar bis ein anderer aus dem Netzwerk auf diese Datei zugreift und etwas ausdruckt. Zwar stimmt die Papierzufuhr auch bei den anderen, aber komischerweise verstellt sich die Papierzufuhr immer nach einem Zugriff eines anderen auf die automatische Auswahl der Papierzufuhr. Dass jemand diese in Trance ändert und das Dokument wieder mit der automatischen Auswahl speichert, kann leider nicht ausgeschlossen werden.

Die Tabellen als schreibgeschützt abspeichern funktioniert auch nicht, da diese regelmäßig von mehreren geändert werden.

Also bleibt wohl nur ein Makro übrig, das ich dann starten kann, um den automatischen Druck mit der geänderten Papierzufuhr starten kann!?

Ich habe also ein Makro erstellt. Makro aufzeichnen, dann Seite einrichten - Optionen - Papierzufur auf Tray 2 geändert - Ok - Ok - Schnelldruck - Aufzeichnen beenden.

Zum Ende des Beitrags das Ergebnis der Makroaufzeichnung.

Das Makro funktioniert aber leider beim neuen Öffnen einer Tabelle nicht. Es wird nicht aus Papierzufuhr 2 gedruckt, sondern wieder aus der automatisch ausgewählten Papierzufuhr. Woran liegt das? Was ist im Makro evtl. falsch? Was muss geändert, ergänzt werden?

Bitte um eure Hilfe.

Vielen Dank im Voraus.

Schöne Grüße

DU

Sub Drucker_Tray_2()
'
' Drucker_Tray_2 Makro
'
' Tastenkombination: Strg+z
'
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$40"
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.708661417322835)
.RightMargin = Application.InchesToPoints(0.47244094488189)
.TopMargin = Application.InchesToPoints(0.354330708661417)
.BottomMargin = Application.InchesToPoints(0.354330708661417)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.393700787401575)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintSheetEnd
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 74
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
Application.PrintCommunication = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

 

Ich meine mal in dem Makro - was liebe ich Excel… - kein Kommando zu sehen, das dem Drucker das Papierfach vermittelt.

Aus dem Bauch raus behaupte ich: Excel kann das gar nicht. Was nennt VBA bei deiner XL-Version noch als Optionen für diesen Dialog:
ActiveWindow.SelectedSheets.PrintOut Copies:=1
In meiner 2010 kommt leider nichts vor was aufs Papierfach abzielt. XL war nie aufs Drucken ausgelegt worden, und seit XL97 hat sich das nicht gebessert…

Eric March