Anweisung Exportieren und Umbenennen
14.06.2018 23:40:19
Michael
Sub PDF_Rechnung()
' Speichert die Rechnung als PDF
Dim sPfad As String
Dim nPfad As String
Dim rng As Range
Set rng = Sheets("NOM_LS").Range("A1:H45")
Dim fileName As String
Const Path = "\\SERVERNEU\Daten\lager\PDF Rechnungen Lagerware"
nPfad = (Path & "\" & Format(Date, "yyyy"))
sPfad = (nPfad & "\" & ("Rechnungen"))
fileName = (sPfad & "\" & Format(Date, "mm.dd") & " 001 NOM_RE.pdf")
'Verzeichnisse erstellen, falls nicht vorhanden
If Dir(nPfad, vbDirectory) = "" Then MkDir (nPfad)
If Dir(sPfad, vbDirectory) = "" Then MkDir (sPfad)
'pdf speichern
rng.ExportAsFixedFormat _
fileName:=fileName, _
Type:=xlTypePDF, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
From:=1, To:=1, _
OpenAfterPublish:=False
End Sub
Die Sheets haben nur Kürzel, die pdf's sollen aber die vollen Namen haben
NOM_LS = "001 Northeim_LS" (Im Code oben verwendet)
ÖLS_LS = "002 Ölsburg_LS"
Ein_LS = "003 Einbeck_LS"
HAN_LS = "004 Hannover_LS"
GÖ_LS = "005 Göttingen_LS"
MK_LS = "007 Marktkauf_LS"
WUNS_LS = "008 Wunstorf_LS"
HM_LS = "009 Hameln_LS"
PEI_LS = "010 Peine_LS"
HOLZ_LS = "011 Holzminden_LS"
MECK_LS = "012 Einbeck_2_LS"
GOS_LS = "015 Goslar_LS"
SPR_LS = "017 Springe_LS"
EMP_LS = "018 Empelde_LS"
BERG_LS = "020 Herzberg_LS"
Vielen Dank in Voraus
Michael