Hallo
Kann mir da jemand helfen beim untenstehenden Makro:
-Ich wil per VBA das PDF in Ordner wo das Excel ablegen hinspeichern, dass geht aber ich möchte nur den markierten Druckbereich (1 Seite) im PDF haben. Was steht da zuviel/zuwenig im Makro?
-Anstelle der Range C3 sollte der Dateiname des Excel eingefügt werden? Was muss ich da einfügen?
Sub SaveAsPDF()
' Speichert Tabellenblatt als PDF
Dim DateiName As String
DateiName = ThisWorkbook.Path & Application.PathSeparator & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".") - 1))
ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
filename & Format(Now, "yyyy_mm_dd") & "_" & Sheets("Furnierte Platten").Range("B2") & "_" & Sheets("Furnierte Platten").Range("C3"), _
Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Danke für eure HIlfe.
Gruss
|