Wenn Sie eine Excel-Arbeitsmappe für eine Gruppe freigeben, müssen Sie auch mit verschiedenen Druckern, verschiedenen PCs und unterschiedlichen Benutzeranforderungen und -erwartungen arbeiten. Dies ist nirgends deutlicher als beim Drucken eines Arbeitsblatts. Unterschiedliche Benutzer haben offensichtlich unterschiedliche PCs und möglicherweise unterschiedliche Drucker, sodass die Druckergebnisse von Benutzer zu Benutzer unterschiedlich sein können. Darüber hinaus können verschiedene Benutzer die Druckbereiche in dem ändern, was aus einem Arbeitsblatt erstellt wird.

Wenn Sie für ein bestimmtes Arbeitsblatt verantwortlich sind, möchten Sie möglicherweise die verschiedenen von Ihnen festgelegten Druckeinstellungen irgendwie schützen, damit sie nicht von anderen Benutzern verstümmelt werden. Der einfachste Weg, dies zu tun, besteht möglicherweise darin, Ihre Druckeinstellungen in einem Makro zu speichern und dieses Makro dann jedes Mal auszuführen, wenn die Arbeitsmappe geschlossen wird. Auf diese Weise können die Einstellungen wieder auf die von Ihnen angegebenen „Standardeinstellungen“ geändert werden, ohne befürchten zu müssen, dass Benutzer sie alle durcheinander bringen.

Das folgende Makro zeigt beispielsweise, wie Sie alle Druckeinstellungen für einen bestimmten Druckauftrag festlegen können:

Sub Auto_Close()

With ActiveSheet.PageSetup         .LeftHeader = ""

.CenterHeader = ""

.RightHeader = ""

.LeftFooter = ""

.CenterFooter = ""

.RightFooter = ""

.LeftMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(1)

.HeaderMargin = Application.InchesToPoints(0.5)

.FooterMargin = Application.InchesToPoints(0.5)

.PrintHeadings = False         .PrintGridlines = False         .PrintComments = xlPrintNoComments         .CenterHorizontally = False         .CenterVertically = False         .Orientation = xlPortrait         .Draft = False         .PaperSize = xlPaperLetter         .FirstPageNumber = xlAutomatic         .Order = xlDownThenOver         .BlackAndWhite = False         .Zoom = False         .FitToPagesWide = 1         .FitToPagesTall = 99         .PrintErrors = xlPrintErrorsDisplayed         .PrintArea = "MyPrintArea"

.PrintTitleRows = ""

.PrintTitleColumns = ""

End With End Sub

Damit das Makro für Ihre speziellen Anforderungen funktioniert, ändern Sie einfach die Einstellungen entsprechend Ihren Anforderungen.

Wenn jemand anderes Ihre Arbeitsmappe öffnet, wird das Makro möglicherweise automatisch deaktiviert oder es wird eine Benachrichtigung angezeigt, dass Makros darin enthalten sind. Wenn sie die Makros deaktivieren, wird Ihr Standardeinstellungsmakro nicht ausgeführt, wenn die Arbeitsmappe geschlossen wird. Die Lösung besteht natürlich darin, dass Sie die Arbeitsmappe öffnen, die Makros aktivieren und dann die Arbeitsmappe schließen. Dadurch wird das Makro ausgeführt und Ihre Einstellungen werden wieder wie gewünscht wiederhergestellt.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (11599) gilt für Microsoft Excel 2007, 2010, 2013 und 2016.

Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier:

Druckeinstellungen schützen.