Unsichtabare Formeln werden mitgedruckt :-(

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Steffen,
ich finde Steffens Anliegen verständlich dargestellt. Füge folgenden Code ins Codefenster "dieseArbeitsmappe":


Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim i&
If ActiveSheet.Name = "Tabelle1" Then
For i = 1000 To 2 Step -1
If Application.WorksheetFunction.CountA(Rows(i)) <> 0 Then Exit For
Next i
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$" & i
End If
End Sub

- Ändere "Tabelle1" in deinen Tabellennamen um.
- Das Makro geht davon aus, dass es max. 1000 Zeilen sind, das kannst du ändern
- Dieses Makro untersucht Spalte A bis E auf die tiefste Zelle mit sichtbarem Inhalt und legt entsprechend den Druckbereich bei jedem Ausdruck neu fest. Die Spaltenbuchstaben kannst du ändern.
-Das Makro läuft bei jedem Druckauftrag automatisch ab, brauchst keine Seitenzahlen eingeben, es druckt immer genau so viel wie nötig.
- Es läuft auch ab, wenn du in die Seitenansicht gehst, das bietet sich zu Testzwcken an
- wesentlich ist, dass deine Vorratsformeln unsichtbar sind, solange sie kein Ergebnis bringen, es darf nicht 0 angezeigt werden. Unsichtbar werden sie z.B. so:
=WENN(B5="";"";a5+b5)
- unter Seite einrichten/ Drucktitel/ Wiederholungszeilen solltest du die Zeilen angeben, die du auf jedem Blatt als Spaltenbeschriftung oben haben möchtest, z.B. in der Form: $1:$2 (druckt auf jeder Seite Zeilen 1 und 2 oben.
Wenn's dich interessiert: Die gleiche Frage hatte ich kürzlich in einem anderen Forum selbst und das ist das Ergebnis davon gewesen: http://www.excel-center.de/forum/read.php?f=1&i=63417&t=63417
Gruß,
Beate

ne so geht das auch nicht da markiert der und zerhackt die Seitenumbrüche da stimmt rein gar nichts mehr.
Also nochmal das Problem ist das ich 6 Seiten mit Versteckten Formeln habe die je nach Datenmenge auch unterschiedlich gefüllt sind manchmal nur eine Seite oft aber auch 3 Seiten und als max 6 Seiten. Ich habe nun aber nicht immer 6 Seiten mit daten gefüllt aber es sind eben immer die 6 Seiten mit versteckten Formeln da die immer mitgedruckt werden bzw. als weißes leeres Blatt durch den Drucker gezogen werden ... wie bekomm ich es hin das wenn ich auf drucken klicke das der einfach nur den Sichtbaren Text druckt mehr will ich ja gar nicht ich will nicht die leeren Seiten ....
trotzdem Danke für den Tip

Sub Druckbereich() Dim c As Range Set c = Cells.Find(What:="*", After:=[iv65536], LookIn:=-4163, LookAt:=2, SearchDirection:=2) If Not c Is Nothing Then ActiveSheet.PageSetup.PrintArea = "A1:" & c.Address End If End Sub

Sub DruckbereichAnpassen() Dim r&, c& r = ActiveSheet.Cells.Find(What:="*", After:=[A1], LookIn:=2, LookAt:=2, _ SearchDirection:=2, SearchOrder:=1).Row c = ActiveSheet.Cells.Find(What:="*", After:=[A1], LookIn:=2, LookAt:=2, _ SearchDirection:=2, SearchOrder:=2).Column 'Range(Cells(1, 1), Cells(r, c)).Select ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(r, c)).Address End Sub

Beliebteste Forumthreads (12 Monate)

Unsichtabare Formeln werden mitgedruckt :-(

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Unsichtabare Formeln werden mitgedruckt :-(

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread