Drucken bestimmter Bereiche

Hallo zusammen,
ich habe eine Frage:
Gibt es eine Möglichkeit Folgendes zu programmieren. Ich möchte bestimmte Bereiche einer Tabelle namens "Ausgabe" gedruckt haben unter der Vorraussetzung, dass in den gelb markierten Zellen etwas steht ( siehe angehängte Tabelle ). Falls in dieser Zelle nichts steht, soll dieses Blatt nicht gedruckt werden. Die zu druckenden Blätter befinden sich in grau eingerahmten Bereichen.
Ich habe die erste Seiten beispielhaft eingerichtet mit den Rändern
links: 2,5
rechts: 1
oben: 1
unten: 1
Alle anderen Seiten sollen mit den gleichen Rändern gedruckt werden.
Eine weitere Besonderheit soll die Programmierung aufweisen; das Drucken soll auch ( wenn möglich ) erfolgen können, wenn die Tabelle "Ausgabe" ausgeblendet ist.
Ich würde dann einen Button erzeugen in der Tabelle "Vorgabe".
Danke für die Hilfe.
https://www.herber.de/bbs/user/116024.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Drucken() Dim i As Long Dim lastRow As Long Dim myStep As Long Dim rngGelb As Range Dim rngPrint1 As Range Dim rngPrint2 As Range Application.ScreenUpdating = False With Worksheets("Ausgabe") .Visible = True lastRow = .Cells(Rows.Count, "A").End(xlUp).Row For i = 1 To lastRow myStep = i + 57 Set rngGelb = .Range("A" & i + 8) If rngGelb "" Then Set rngPrint1 = .Range("A" & i & ":O" & myStep - 1) .PageSetup.PrintArea = rngPrint1.Address .PrintPreview '.PrintOut Set rngPrint2 = .Range("Q" & i & ":AE" & myStep - 1) .PageSetup.PrintArea = rngPrint2.Address .PrintPreview '.PrintOut End If i = myStep Next i .Visible = xlVeryHidden 'oder: .Visible = Hide .DisplayAutomaticPageBreaks = False End With Set rngPrint1 = Nothing Set rngPrint2 = Nothing Set rngGelb = Nothing End Sub

Guten Morgen Klaus,
ja das klappt schon gut und das ist auch richtig, dass wenn die linke Seite (Hauptwerte) nicht zu drucken sind, dass auch die rechte Seite (Nebenwerte) ebenfalls nicht gedruckt werden soll.
Jetzt habe ich noch eine Bitte/Frage: Ist es auch möglich, dass man dem Benutzer überlässt mit welchem Drucker/PDF er drucken soll und dass ( bei PDF-Druck ) alle "aktiven" Seiten in einer PDF-Datei gedruckt werden. Mit dem momentanen Code werden alle "aktiven Seiten hintereinander einzeln gedruckt am hinterlegten Drucker, d.h. dass der Benutzer nicht die Wahl hat zu entscheiden wie gedruckt werden soll ( ob auf Papier oder PDF ).
Ich habe auch .PrintPrewiew auskommentiert, da dieser Befehl mir das Blatt "zerschießt", sobald ich bei der Vorschau auf abbrechen klicke.
Gruß
Al

Sub Drucken()
Dim i As Long
Dim lastRow As Long
Dim myStep As Long
Dim rngGelb As Range
Dim rngPrint1 As Range
Dim rngPrint2 As Range
Application.ScreenUpdating = False
With Worksheets("Ausgabe")
.Visible = True
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To lastRow
myStep = i + 57
Set rngGelb = .Range("A" & i + 8)
If rngGelb  "" Then
Set rngPrint1 = .Range("A" & i & ":O" & myStep - 1)
.PageSetup.PrintArea = rngPrint1.Address
'.PrintPreview
.PrintOut
Set rngPrint2 = .Range("Q" & i & ":AE" & myStep - 1)
.PageSetup.PrintArea = rngPrint2.Address
'.PrintPreview
.PrintOut
End If
i = myStep
Next i
'oder: .Visible = xlVeryHidden
.Visible = Hide
.DisplayAutomaticPageBreaks = False
End With
Set rngPrint1 = Nothing
Set rngPrint2 = Nothing
Set rngGelb = Nothing
End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread