pdf Speichern unter Zellenname lauft sehr gut bei mir. Ich will noch bestimmte Seiten auch intergieren.
Wie kann ich das integrieren:
Range:=wdExportFromTo, From:=1, To:=2
Private Sub Speichernpdf_Click()
Dim pdfDateiName As String Dim pdfname As Variant
pdfDateiName = ActiveSheet. _ Range("H22") & " " & _ Range("L10") & "-" & _ Range("L11") & " " & _ Range("A1") & ".pdf" pdfname = Application.GetSaveAsFilename(InitialFileName:=pdfDateiName, FileFilter:="PDF files, *.pdf", Title:="PDF speichern") If pdfname <> False Then ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfDateiName, _ Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False Else Exit Sub End If End Sub
|