Im Beitrag/Titel Nur im Titel Nur nach Datum sortieren Docs / Anhänge mit Lösung
Suchmaschinenstatistik
Livesuche
Einstellungen
Info
Ergebnisse 1 - 1, 1 Gesamtergebnisse mit Suchbegriffen 2018 sec.
E3.series : Skript alle geöffneten E3 Dokumente als PDF
awb am 27.10.2020 um 12:17 Uhr (1)
Hallo,versuche mal folgendes:Code:Dim FileName, Folder, FullFileNameDim ShtCnt, RetCode, ShtIdsDim App, Prj, ShtSet App = CreateObject("CT.Application")Set Prj = App.CreateJobObjectSet Sht = Prj.CreateSheetObjectFolder = Prj.GetPathFileName = Prj.GetNameFullFileName = Folder & FileName & ".pdf"ShtCnt = Prj.GetSheetIds(ShtIds)If(ShtCnt = 0) Then MsgBox "No sheet contained!"Else RetCode = Prj.ExportPdf(FullFileName, ShtIds, 0) If(RetCode 1) Then MsgBox "Failed to create PDF file! Error Code: " & RetCode ...
In das Form E3.series wechseln

Anzeige:

Anzeige: (Infos zum Werbeplatz)

Alle Produkt-, Schrift-, Firmennamen und Logos sind Warenzeichen oder eingetr. Warenzeichen der jeweiligen Firmen.
©2024 CAD.de , Lenggries. Tel: ++49 (8042) 973 8208 | Datenschutz