Spaten ausb. Drucken und PDF erzeugen
Thomas
ich bin schon lange am umschreiben meiner Mappe dran und komme nicht weiter. Mit diesem Code _
habe ich bisher gedruckt und die PDF erzeugt.
Private Sub CommandButton5_Click()
Dim ArrDruck() As String
Dim i As Integer
ArrDruck = Split("Abr.", ",")
For i = 0 To UBound(ArrDruck)
With ThisWorkbook.Sheets(ArrDruck(i))
.PrintOut copies:=2
If .Name = "Abr." Then
'Blatt ggf. als PDF-Datei speichern und anzeigen
If MsgBox(Prompt:="Blatt """ & .Name & """ als PDF-Datei exportieren?", _
Buttons:=vbQuestion + vbYesNo, Title:="PDF-Datei erstellen") = vbYes Then
.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="D:\Neue Aufgaben\PDF Dateien\" & ActiveSheet.Range("Z8").Text _
& "-" & Format(Now, "YYYY-MM-DD hh-mm-ss") & " PDF.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End If
End If
End With
Next
End Sub
Nun hab ich zur besseren Übersicht alles auf einem Tab nebeneinander und mit diesem Code Blende _
ich die Spalten aus.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Range("A:X").EntireColumn.Hidden = False
'Eingabe Adresse anpassen
If Target.Address = "$Z$8" Then
Select Case Target
Case "Whg1"
Range("I:X").EntireColumn.Hidden = True
Case "Whg2"
Range("B:I,Q:X").EntireColumn.Hidden = True
Case "Whg3"
Range("B:Q").EntireColumn.Hidden = True
End Select
End If
Application.ScreenUpdating = True
End Sub
Nun mein Problem. Wie muss der Code umgeschrieben werden oder lauten, das nur der Bereich gedruckt wird gemäss Z8 in Tab Abr.? Es kann so aussehen das ich Z8 (Drop Down) änder und auf Schaltfläche Drucken gehe oder aber das ich nur ein mal auf Drucken gehe und das Makro dann jeden Bereich nacheinander Druckt und dabei die Spalten aus- bzw eingeblendet werden, PDF erzeugt und Speichert. Also aus den beiden Cods einen machen.
Mit freundlichen Grüßen
Thomas T.