PDF MAkro
30.08.2021 11:27:46
jens.hinze@iav.de
ich habe ein Makro für das erstellen einer PDF-Datei mit Ablageort erzeugt, bislang lief es seit einem Jahr. Aber jetzt kommen beim ausführen immer wieder Fehler. Ich finde dieses nicht! Vielleicht könnt ihr helfen.
Vielen Dank
Makro:
Sub CommandButton1_Click()
' PDF Makro
' Tastenkombination: Strg+Umschalt+E
Dim DateiName As String
DateiPfad = ThisWorkbook.Path
DateiName = DateiPfad & "\" & Format(Now, "yyyymmdd") & " " & Range("A1") & ".pdf"
Rows("14:23").Select
Selection.EntireRow.Hidden = True
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Rows("2:24").Select
Selection.EntireRow.Hidden = False
End Sub