---

Werte Gemeinde!
Bin kein iLogic-Fachkundiger-- brauche eure werte Hilfe!

Möchte mit einer iLogic-Regel aus einer IDW ( auch mehrere Blätter ) eine PDF erzeugen lassen, welche im gleichen Pfad mit dem IDW-Namen gespeichert wird erzeugen lassen....-das funkt soweit mit dem Code:

path_and_name = ThisDoc.PathAndFileName(False)

PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
oDocument = ThisApplication.ActiveDocument
oContext = ThisApplication.TransientObjects.CreateTranslationContext
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
oOptions = ThisApplication.TransientObjects.CreateNameValueMap
oDataMedium = ThisApplication.TransientObjects.CreateDataMedium

If PDFAddIn.HasSaveCopyAsOptions(oDataMedium, oContext, oOptions) Then
oOptions.Value("All_Color_AS_Black") = 1
oOptions.Value("Remove_Line_Weights") = 1
oOptions.Value("Vector_Resolution") = 400
oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets
End If

oDataMedium.FileName = path_and_name & ".pdf"

PDFAddIn.SaveCopyAs(oDocument, oContext, oOptions,oDataMedium)

MessageBox.Show("PDF saved to: " & path_and_name, "PDF Saved", MessageBoxButtons.OK)

NUN möchte ich dem PDF noch das aktuelle Datum als Extension mitgeben
z.B. 04042016_FILENAME.PDF
genau daran scheitere ich ;-(

Wer ist so nett und kann mir unter die Arme greifen

thxs a lot

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

ich weis das es die Date Funktion in VBA existiert.
vielleicht kannst du eine VBA Funktion programmieren die dir das gewuenschte Format des Datums an die iLogic-Rule liefert.

Gruss
Ray

------------------
Barbarus hic ego sum, quia non intellegor ulli!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Ray!

genau darin besteht das Prob.
kann nicht programmieren ... ;-(

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Nur die Variable für Pfad und Dateiname selbst zusammensetzen...
Der Befehl DateString liefert das Datum entsprechend der Systemeinstellungen, denke ich. Evtl. hilft das schon ein wenig weiter.
(den restlichen Code habe ich nicht versucht)

Code:

---

path_and_name = ThisDoc.Path & "\" & DateString & "_" & ThisDoc.FileName(False)

---

Gruß KraBBy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

füge oben als erstes die Zeile ein

Code:

---

Datum = DateTime.Now.tostring("dd") + DateTime.Now.tostring("MM") + DateTime.Now.tostring("yyyy")

---

und ändere die Zeile

Code:

---

oDataMedium.FileName = path_and_name & ".pdf"

---

in

Code:

---

oDataMedium.FileName = Datum & "_" & path_and_name & ".pdf"

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

leider nicht genau genug gelesen...
das Datum sollte ja in einer bestimmten Form sein DDMMYYYY. Dazu einfach die Punkte "ersetzen" durch einen leeren String ("").

Code:

---

'Datum als ddmmyyyy
sDatum = Replace(DateString, ".", "")
path_and_name = ThisDoc.Path & "\" &  sDatum & "_" & ThisDoc.FileName(False)

---

mir persönlich würde aber das Datum "anders herum" besser gefallen, YYYYMMDD wegen der Sortierung im Datei-Explorer usw.

Code:

---

sM = Trim(Month(Datestring)) 'Monat
'Trim entfernt Leerzeichen am Anfang/Ende des Strings, kA warum nötig
If Len(sM)=1 Then sM = "0" & sM 'bei Bedarf 0 vorne anhängen
sD = Trim(Day(Datestring)) 'Tag
If Len(sD)=1 Then sD = "0"& sD 'bei Bedarf 0 vorne anhängen
sDatum = Year(Datestring) & sM & sD 'zusammensetzen
path_and_name = ThisDoc.Path & "\" &  sDatum & "_" & ThisDoc.FileName(False)

---

Gruß KraBBy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

die Lösung von Ruzy5624 (in der Form: DateTime.Now.tostring("MM"))ist etwas eleganter als mein Vorschlag.

Allerdings kommt dabei
oDataMedium.FileName = Datum & "_" & path_and_name & ".pdf"
nicht das richtige raus. Das Datum steht ja dann noch vor dem Pfad!
Aber damit sollte dann auch das passen:

Code:

---

oDataMedium.FileName = ThisDoc.Path & "\" &  Datum & "_" & ThisDoc.FileName(False) & ".pdf"

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von KraBBy:
die Lösung von Ruzy5624 (in der Form: DateTime.Now.tostring("MM"))ist etwas eleganter als mein Vorschlag.

Allerdings kommt dabei
oDataMedium.FileName = Datum & "_" & path_and_name & ".pdf"
nicht das richtige raus. Das Datum steht ja dann noch vor dem Pfad!
Aber damit sollte dann auch das passen:

Code:

---

oDataMedium.FileName = ThisDoc.Path & "\" &  Datum & "_" & ThisDoc.FileName(False) & ".pdf"

---

---

Oh stimmt richtig, da habe ich wohl nur zu flüchtig drüber nachgedacht, aber so wie du schreibst sollte es dann passen 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

... Spät aber doch!

Ich bedenke mich für Eure Unterstützung!
Nun hab ich es!

Units sind unterwegs!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP