Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1660to1664
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1660to1664
1660to1664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Drucken von Druckbereichen nach Zellinhalt

Drucken von Druckbereichen nach Zellinhalt
02.12.2018 18:24:31
Druckbereichen
Hallo,
ich hoffe mir kann hier im Forum geholfen werden.
In einer umfangreiche Exceltabelle sind Druckbereiche angelegt, welche in Abhängikeit vom Inhalt einzelner Zellen in einer pdf-Datei gedruckt werden sollen.
Ich möchte das an diesem Beispiel aufzeigen:
SpalteA SpalteB SpalteC
Text1 Druck A20:K29
Text2 kein_Druck A30:K39
Text3 kein_Druck A40:K49
Text4 Druck A50:K59
Text5 Druck A60:K69
Je nach Inhalt der Zellen (Druck, kein_Druck) sollen die Bereich in der Spalte C geruckt werden.
Habe bis jetzt alle Seiten über VBA gedruckt, mit Angabe des Dateinamen aus Zellinhalten. 

Sub Datei_drucken_als_PDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("A6") & "_" & Format(Date, "YYYYMMDD") & "_" & Range("A7") & ".pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=True, PrintArea:  IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Ich würde mich freuen, wenn mich hier jemand unterstützen kann.
Viele Grüße
Jens

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucken von Druckbereichen nach Zellinhalt
06.12.2018 16:03:14
Druckbereichen
Hallo Jens,
in diese Richtung sollte es funktionieren. 
Sub Datei_drucken_als_PDF()
Dim wks As Worksheet
Dim Zeile As Long, rngBereich As Range
Set wks = ActiveSheet
With wks
.Range(.Rows(20), .Rows(69)).Hidden = False
.PageSetup.PrintArea = _
.Range(.Cells(20, 3), .Cells(69, 3)).Address(False, False, xlA1)
For Zeile = 1 To 5
If .Cells(Zeile, 2).Value = "kein_Druck" Then
.Range(.Cells(Zeile, 3).Text).EntireRow.Hidden = True
End If
Next
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
.Range("A6") & "_" & Format(Date, "YYYYMMDD") & "_" & Range("A7") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
.Range(.Rows(20), .Rows(69)).Hidden = False
End With
End Sub

LG
Franz
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige