Thema Datum  Von Nutzer Rating
Antwort
05.09.2018 18:35:33 CeeLeeT
NotSolved
Blau Excel VBA - Druckbereich festlegen + Letzte Zeile
05.09.2018 19:23:57 xlKing
NotSolved
21.12.2021 17:00:27 Hans Freiberg
NotSolved
22.12.2021 18:58:34 ralf_b
NotSolved
22.12.2021 19:05:46 Gast12831
NotSolved
23.12.2021 12:28:08 Gast52522
NotSolved
23.12.2021 13:23:52 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
xlKing
Datum:
05.09.2018 19:23:57
Views:
1870
Rating: Antwort:
  Ja
Thema:
Excel VBA - Druckbereich festlegen + Letzte Zeile

Hallo CeeLee,

das geht auch ohne VBA. Einfach unter "Seite einrichten" auf Register Tabelle gehen und bei Wiederholungszeilen oben $1:$3 eingeben. Dann vor dem Ausdruck einfach die zu druckende Zeile (bzw. Zellen) markieren, Druckbereich setzen und auf drucken drücken. Wenns aber unbedingt VBA sein muss, dann vielleicht so:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  If ActiveSheet.Name = "Tabelle1" Then
    ActiveSheet.PageSetup.PrintTitleRows = "$1:$3"
    ActiveSheet.PageSetup.PrintArea = Rows(Cells(Rows.Count, 1).End(xlUp).Row).Address
  End If
End Sub

Der Code gehört in das Modul DieseArbeitsmappe. Für Tabelle1 musst du natürlich den Namen deines Druck-Blattes angeben. So stellst du sicher, dass bei den anderen Blättern nicht die gleichen Änderungen getätigt werden.

Gruß Mr. K.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
05.09.2018 18:35:33 CeeLeeT
NotSolved
Blau Excel VBA - Druckbereich festlegen + Letzte Zeile
05.09.2018 19:23:57 xlKing
NotSolved
21.12.2021 17:00:27 Hans Freiberg
NotSolved
22.12.2021 18:58:34 ralf_b
NotSolved
22.12.2021 19:05:46 Gast12831
NotSolved
23.12.2021 12:28:08 Gast52522
NotSolved
23.12.2021 13:23:52 ralf_b
NotSolved