Nur Blätter als pdf drucken mit aktiver Checkbox
09.10.2015 14:34:24
Felix
ich bin am verzweifeln und brauche eure Experten-Hilfe.
Ich habe eine Arbeitsmappe mit 14 Blättern. Auf den Blättern 2 bis 14 befindet sich je eine Checkbox (AcitveX-Steuerelement).
Die Arbeitsmappe soll per Button als pdf gespeichert/gedruckt werden. Dabei soll das erste Blatt (auf dem befindet sich der Button) immer gedruckt werden und zudem alle Blätter, auf denen die Checkbox markiert ist.
Die Checkboxen haben bisher alle den Namen "CheckBox1", was für einen anderen Code ausreicht/funktioniert. Es ist aber kein Problem sie einzeln zu nummerieren (z.B. 1-13), was wahrscheinlich für dieses Makro besser ist.
Mein bisheriger Code zum abspeichern lautet:
Private Sub CommandButton2_Click()
Dim pfad4 As String
pfad4 = ThisWorkbook.Path & "\" & "1_Bericht" & "\" & Left(ActiveWorkbook.Name, Len( _
ActiveWorkbook.Name) - 4)
ActiveWorkbook.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=pfad4, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Vielen Dank schon mal für eure Hilfe
Grüße Felix