Druck bestimmter Bereiche

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sönke,
a) Makro-Lösung
Das Makro muss du im VBA-Editor unter Diese Arbeitsmappe einfügen.


Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wks As Worksheet, Zeile As Long
Select Case ActiveSheet.Name
Case "Tabelle1" 'Name(n) der Tabelle(n) mit spezieller Druckroutine
Cancel = True
Application.EnableEvents = False
Set wks = ActiveSheet
With wks
Application.ScreenUpdating = False
'Alle Zeilen im Blatt einblenden
.Rows.Hidden = False
'Ab Zeile 14 prüfen, ob in Spalten J bis P Zeileninhalte vorhanden
For Zeile = 14 To .Cells.SpecialCells(xlCellTypeLastCell).Row
If Application.WorksheetFunction.CountA(.Range(.Cells(Zeile, 10), _
.Cells(Zeile, 16))) = 0 Then
'ggf. zeile ausblenden
.Rows(Zeile).Hidden = True
End If
Next
Application.ScreenUpdating = True
'Drucken
.PrintOut
'        .PrintPreview
'Alle Zeilen wieder einblenden
.Rows.Hidden = False
End With
Application.EnableEvents = True
Case Else
'do nothing
End Select
End Sub

b) Formel + Autofilter
Trage in einer Separaten Spalte (z.B Q) ab Zeile 14 folgende Formel ein:


=WENN(ANZAHL2(J14:P14)>0;"X";"")

Alle zu druckenden Zeilen haben dann den Eintrag "X".
Markiere den Zellbereich von Zelle Q13 bis zur letzten Zelle mit Formel (z.B. Q65) schalte jetzt im Menü Daten den Autofilter ein.
Vor dem Drucken selektierst du jetzt im Autofilter-Dropdown den Eintrag "X" um die Leerzeilen auszublenden.
Nach dem Drucken kannst du mit Auswahl (Alle) im Filter die Leerzeilen wieder einblendnen.
Den Druckbereich des Tabellenblatts muss du so einrichen, dass er von A1 bis zur letzten Datenzzeile in Spalte P reicht.
Gruß
Franz

Hallo Franz.
Vielen Dank erst einmal dafür. Da ich Laie bin, eine Nachfrage. Ich würde das Makro gerne manuell z.B. per Button in der Tabelle starten können. Es kann sein, dass manche Anwender auch gerne die komplette Liste haben möchte und andere manuell dann über ein Makro das Ganze mit ausgewähltem Bereich bekommen.
Andere Sache - A1 bis P13 ist mein Kopf und soll immer mitgedruckt werden. Wenn in Zeile 14 dann im Bereich J-P etwas steht soll dies die erste gedruckte Zeile sein (direkt im Anschluss an die Kopfzeile). Dann kommt z.B. in Zeile 20 etwas und diese Zeile soll dann direkt (quasi als neue Zeile 15) gedruckt werden.
Es ist im Grunde dann ja so etwas wie ausblenden aller Nullzeilen notwendig.

Sub Drucken_ohne_Leerzeilen() Dim wks As Worksheet, Zeile As Long Set wks = ActiveSheet 'oder = Worksheets("TabellenName") With wks Application.ScreenUpdating = False 'Alle Zeilen im Blatt einblenden .Rows.Hidden = False 'Ab Zeile 14 prüfen, ob in Spalten J bis P Zeileninhalte vorhanden For Zeile = 14 To .Cells.SpecialCells(xlCellTypeLastCell).Row If Application.WorksheetFunction.CountA(.Range(.Cells(Zeile, 10), _ .Cells(Zeile, 16))) = 0 Then 'ggf. zeile ausblenden .Rows(Zeile).Hidden = True End If Next Application.ScreenUpdating = True 'Drucken .PrintOut 'Drucken auf aktiven Drucker ' .PrintPreview 'Seitenvorschau 'Alle Zeilen wieder einblenden .Rows.Hidden = False End With End Sub

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread