Private Sub CommandButton2_Click()
ActiveSheet.PageSetup.PrintArea = "$A$1:$Q$118"
Application.Dialogs(xlDialogPrint).Show
End Sub
Um den Druckbereich in Excel per Makro festzulegen, folge diesen Schritten:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu:
Füge den folgenden Code ein:
Private Sub CommandButton2_Click()
ActiveSheet.PageSetup.PrintArea = "$A$1:$Q$118"
Application.Dialogs(xlDialogPrint).Show
End SubVerknüpfe das Makro mit einem CommandButton:
Teste den Button, um sicherzustellen, dass der Druckbereich korrekt festgelegt wird.
ActiveSheet.PageSetup.PrintArea anpassen.Falls Du eine andere Methode bevorzugst, kannst Du den Druckbereich auch manuell festlegen:
Ein häufiges Beispiel ist das Festlegen eines Druckbereichs für Berichte:
Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.PrintArea = "$B$2:$E$20"
End SubHier wird der Druckbereich so festgelegt, dass er die Zellen von B2 bis E20 umfasst. Du kannst diesen Code anpassen, um Deinen spezifischen Anforderungen gerecht zu werden.
UsedRange, um den Druckbereich dynamisch festzulegen.
ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.AddressApplication.Dialogs(xlDialogPrintPreview).Show, um eine Druckvorschau anzuzeigen, bevor Du druckst.ActiveWindow.SelectedSheets.PrintOut verwenden.1. Wie kann ich den Druckbereich in Word festlegen?
In Word kannst Du den Druckbereich nicht direkt festlegen, aber Du kannst Inhalte aus Excel kopieren und in Word einfügen, um sie dort zu drucken.
2. Was kann ich tun, wenn der Excel-Druckbereich nicht angezeigt wird?
Überprüfe die Druckereinstellungen und stelle sicher, dass die Drucklinie aktiviert ist, oder gehe zu "Seitenlayout" und aktiviere die Drucklinienoption.
3. Kann ich mehrere Druckbereiche in einem Makro festlegen?
Ja, Du kannst mehrere Druckbereiche in verschiedenen Makros festlegen, indem Du sie in separate Subroutinen aufteilst oder in einer einzigen Subroutine mehrere PrintArea-Zuweisungen vornimmst.