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:blush: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