Zeile mitkopieren in PDF VBA
24.03.2017 13:34:09
Janik
ich habe einen Code der die Spalte A sotiert und fuer jede Sortierung eine PDF- Datei _ abspeichert. Ich moechte, aber auch die Summe fuer jedes Sotierergebnis auf den PDF-Dateien haben. Die Summe wird beim sortieren angezeigt, aber spaeter nicht in der PDF-Datei. Ich Weiss der Code ist etwas laenger, hoffe jemand kann mir trotzdem helfen.
Code:
Sub FilterAndPDF()
Dim ItemList As Variant
Dim i As Long
ActiveSheet.Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Name = "DataList" 'anpassen
Application.ScreenUpdating = False
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
FindUniqueItems ItemList, "DataList"
ActiveSheet.Range("DataList").AutoFilter
For i = 1 To UBound(ItemList)
ActiveSheet.Range("DataList").AutoFilter 1, ItemList(i)
Application.StatusBar = "PDF " & ItemList(i)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & Application.PathSeparator & ItemList(i) & ".pdf", Quality:= _
xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next i
Application.StatusBar = False
ActiveSheet.ShowAllData
End Sub
Vielen Dank!
Janik