Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
228to232
228to232
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

automatisches makro vor drucken

Forumthread: automatisches makro vor drucken

automatisches makro vor drucken
11.03.2003 12:58:50
arwed
ich benötige ein makro, daß folgendes ausführt: leere zeilen nicht drucken, alle zellen so groß macht wie nötig und sich automatisch vor dem drucken aktiviert. ach ja dafür muss bestimmt vorher noch der zellschutz deaktiviert und anschließend wieder aktiviert werden. geht so was überhaupt?

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: automatisches makro vor drucken
11.03.2003 13:18:32
rico

zeichne die Aktionen mit dem Makrorecorder auf und dann den Code in VBA unter DieseArbeitsmappe unter Private Sub Workbook_BeforePrint(Cancel As Boolean) anordnen.

Re: automatisches makro vor drucken
11.03.2003 13:24:55
Lutz

Hallo arwed,

Zellen so groß wie nötig ??? Weiß ich nicht, was Du meinst.
Ansonsten hier schon mal ein Ansatz :

Dim iRow As Integer, iRowL As Integer

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.Unprotect ("Dein Passwort")
Application.ScreenUpdating = False
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
If IsEmpty(Cells(iRow, 1)) Then
Rows(iRow).Hidden = True
End If
Next iRow
ActiveSheet.PrintPreview
Rows.Hidden = False
Application.ScreenUpdating = True
ActiveSheet.Protect ("Dein Passwort")
End Sub

Gruß
Lutz

Anzeige
Re: automatisches makro vor drucken
11.03.2003 15:05:14
arwed

erst mal danke lutz, zellen so groß wie nötig bedeutet zeilenhöhe ist optimal, da teilweise zeilenumbrüche vorhanden sind.

Forumthreads zu verwandten Themen

leere Zeilen nicht drucken (trotz Kontrollkästchen)
Acki BM
Hallo zusammen,

in meiner Spalte I ist in rd. 200 Zeilen ein Kontrollkästchen eingefügt. Der Filter "leere Zeilen ausblenden" funktioniert nicht, da die Zellen wegen dem Kontrollkästchen eben nicht leer sind. Wie kann ich beim Drucken trotzdem leere Zeilen ausblenden/nicht drucken?
03.10.2025 14:02:13
Thread-ID: 2019361
7 Beiträge
Drucken bis letzter Eintrag
sabine

Ob mir jmd. helfen kann? Möchte in einem Arbeitsblatt, dass bis Zeile 225 Formeln enthält nur bis zu der Zeile drucken, die auch Einträge enthält, z. B. bis Zeile 80. Folgendes Makro habe ich mehrfach im Netzt gefunden, funktioniert auch, dauert aber.... Kann man nicht "Drucken bis letzter Eint...
21.03.2009 06:56:26
Thread-ID: 1062411
12 Beiträge
Anzeige
Drucken aller eingeblendeten Zeilen mit Überschrif
Gernot

Hallo Excel-Gemeinde,
es geht um das Drucken von nicht-ausgeblendeten Zellen. Der Marc hatte mir bereits sehr gut geholfen beim ein- und ausblenden von Zeilen nach einem bestimmten Kriterium.
Die Datei, um die es geht, findet ihr hier:
https://www.herber.de/bbs/user/27607.xls
Die...
18.10.2005 20:15:42
Thread-ID: 683591
1 Beitrag
Leere Zeilen nicht drucken. Makro optimieren
chandler

Hallo,
das Makro durchsucht Bereiche und blendet Zeilen aus, wenn in Spalte C die Zellen leer sind um dann das Blatt zu drucken.
Sub print_n() Dim iCol As Integer Dim i As Integer Dim iRow As Integer Dim iRowL As Integer Dim i2 As Integer Dim iRow2 As Integer Dim iRowL2 As Integer iCol...
04.01.2012 15:21:35
Thread-ID: 1244557
9 Beiträge
Leere Zellen micht mitdrucken?!?
Jean-Pierre
hallo zusammen,
ich habe ein tabellenblatt von a1-r223 in denen man was eintragen kann.
in allen zeilen ist eine bedingte formatierung (farbanzeige) sowie mehrere auswahlmenüs (dropdown) enthalten. die dropdown's sind standardmäßig leer.
manchmal sind soviele daten drin das man drei blät...
14.07.2003 21:07:29
Thread-ID: 280944
6 Beiträge
Leere Zeilen nicht drucken
Heiko

Hallo,
ich habe folgendes Problem:
Ich möchte leere Zeilen mit folgendem Code ausblenden (habe ich im Netz gefunden!).
Sub ausblenden() Dim LoI As Long For LoI = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1 If Application.WorksheetFunction.CountA(Range(...
30.11.2005 16:17:49
Thread-ID: 702882
3 Beiträge
Beim Drucken aus Listbox verschieben sich die Werte
Andre

Hallo zusammen,
ich benötige ein wenig Hilfe:
Ich lese Daten in 6 Spalten einer Listbox ein. Es kann sein, dass die beiden letzten Spalten teilweise in den Zeilen nicht gefüllt sind.
Wenn ich das ganz nun ausdruck, werden alle Werte in die erste frei Zeile geschoben.
D.h. wen...
10.01.2020 18:53:49
Thread-ID: 1733400
3 Beiträge
Anzeige
Leere Zellen / Zeilen nicht drucken
Ralf

Hallo,
ich möchte gerne, dass beim Ausdruck einer Tabelle, die Zeilen in denen nichts
steht, beim Druck ausgeschlossen werden.
In der angefügten Tabelle habe ich mal die Zeilen gelb markiert die einschließlich der Uhrzeit nicht mit gedruckt werden sollen. Mein Ziel ist es eine komp...
12.03.2019 21:54:49
Thread-ID: 1680900
12 Beiträge
Dynamisches Drucken
Christoph

Hallo
Ich soll in einer sich ständig erweiternen Excel Liste ein Makro Basteln, welches nur eine Seite ab der letzten vollen Zelle druckt.
Also quasi ab der letzten Zelle eine Seite nach oben. Bzw. die letzten 20 - 30 Zellen würden auch reichen.
Sprich die älteren Zellen (Zeilen) so...
01.06.2016 16:53:54
Thread-ID: 1496302
4 Beiträge
Adress - DB:Zeilen aufteilen mit Titel für Drucken
albin

Hallo zusammen
Leider habe im Web lange gesucht, aber Nichts brauchbares gefunden.
Ich habe eine grosse Adressliste, pro Adresse sind die Zellen B bis O belegt.
Ziel - Aufgabe VBA für die Vorbereitung des Ausdruck:
Schön wäre es nun, wenn man die Zeilen aufteilen könnte B - H...
17.03.2017 00:47:00
Thread-ID: 1547892
2 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum