PDF -Dateien erstellen
26.02.2022 10:22:40
mike
Hallo Excelfreunde * innen
Hier werden die Blätter der Arbeitsmappe in einzelnen PDF Dateien gespeichert. Ist es möglich
das die gesamten Blätter in einer Mappe gespeichert werden?
Dim strDateiName As String
Dim strGartenNr As String
Dim strPaechter As String
Dim strDatum As String
Dim strVerein As String
Sheets("Ergebnis Wertermittlung").Select
Range("B6").Select
strGartenNr = ActiveCell.Value
Range("C9").Select
strPaechter = ActiveCell.Value
Range("C10").Select
strDatum = Year(ActiveCell.Value) & "-" & Month(ActiveCell.Value) & "-" & Day(ActiveCell.Value)
Range("D7").Select
strVerein = ActiveCell.Value
strDateiName = "C:\Bo_Wert\Fertig\PDF" 'Arbeitsmappe.Path
strDateiName = strDateiName & "\ " & strVerein & "- Ga.Nr " & strGartenNr & " - " & strPaechter & " - " & strDatum & " - Ergebnis.pdf"
Call prcMakeDir(strPfad)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strDateiName, Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Sheets("Anlage Wertermittlung").Select
Range("B6").Select
strDateiName = "C:\Bo_Wert\Fertig\PDF" 'Arbeitsmappe.Path
strDateiName = strDateiName & "\ " & strVerein & "- Ga.Nr " & strGartenNr & " - " & strPaechter & " - " & strDatum & " - Anlage.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strDateiName, Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Sheets("Deck-Verein").Select
strDateiName = "C:\Bo_Wert\Fertig\PDF" 'Arbeitsmappe.Path
strDateiName = strDateiName & "\ Verein"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strDateiName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
'Sheets("Deck-Alter").Select
'strDateiName = "C:\Bo_Wert\Fertig\PDF" 'Arbeitsmappe.Path
'strDateiName = strDateiName & "\ Scheidender Pächter"
'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strDateiName, Quality:=xlQualityStandard, _
'IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
'Sheets("Deck-Neuer").Select
'strDateiName = "C:\Bo_Wert\Fertig\PDF" 'Arbeitsmappe.Path
'strDateiName = strDateiName & "\ Neuer Pächter"
'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strDateiName, Quality:=xlQualityStandard, _
'IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
Vielen Dank im voraus
Mike