Guten Tag Zusammen
gesucht API - Hilfe für einen kompletten Zeichnungsaufbau über mehrere Blätter. Alle Blätter müssen aktiviert werden damit der PDF-Output vollständig ist.
Beiliegend ein Auszug aus dem VB-Script.
Fage:
- Gibt es einen einfacheren Weg damit die Zeichnungen über alle Blätter komplett geladen werden?
- Gilt das ForceRebuild3 für alle Blätter?
Auszug aus Programm:
Anzahl_Blatt = DrawingDoc.GetSheetCount
Alle_Blattnamen = DrawingDoc.GetSheetNames
Let aktuelles_Blatt = 1
Set DrawingDoc = swApp.ActiveDoc
If DrawingDoc.ForceRebuild3(False) Then
Let Rebuild_Variable = "okay"
Else
Let Rebuild_Variable = "Aufbaufehler"
End If
' Alle Blaetter nacheinander aktivieren und neu aufbauen
For i = 0 To Anzahl_Blatt - 1
' das nächste Blatt aktivieren
If DrawingDoc.ActivateSheet(Alle_Blattnamen(i)) Then
' Objektzeiger fuer das Blatt holen
Set Sheet = DrawingDoc.GetCurrentSheet
End If ' alle Blaetter updaten
Next i
Let aktuelles_Blatt = 1 ' Wieder zuruecksetzen
' hier wird bereits ein Mehrblatt pdf geschrieben
Let Ausgabefilename_pdf = Zeichnungsnummer + ".pdf"
DrawingDoc.SaveAs2 (Ausgabepfad + Ausgabefilename_pdf), 0, True, True ' PDF-File speichern 2004 (ueberschreiben)
Ende Auszug VB-File
Besten Dank für Eure Hilfe.
Gruss am
------------------
am
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP