---

V. 10.1 Prof.
habe noch kein Updat  von V 10
Wie kann ich den Dateinamen(Dokumentennamen) automatisch mit der Zeichnung ausdrucken?
Normaler weise arbeite ich mit der Formatvorlage normal,
also einfach nur Blattpapier ohne die Fenster zum ausfüllen.Habe so immer den größmöglichen Zeichenbereich, da ich die Zeichnungen nur Intern Nutze.
bei V. 8.2 ist es noch nicht möglich
Im voraus besten Dank

Thomas Kraft

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

---

Hallo, untenstehendes Code-schnipsel würde den Zeichnungsnamen mit Pfad z.b. im Papierbereich unten links auf den rand schreiben. Ist natürlich noch ausbaufähig.

<script>
Sub dateiname_in_zeichung()

Dim dname
Dim gr

dname = Application.ActiveDrawing.Name
gr = Application.ActiveDrawing.Graphics.AddText(dname, 0, 0, 0, 5, 0, , , 2049)

End Sub
</script>

die Parameter sind AddText(Text As String, X0 As Double, Y0 As Double, Z0 As Double, [Texthoehe As Double], [Winkel], [Width], [Offset], [Ausrichtung])

Frage an die Programmierer: Gibt es im VBA eigentlich die funktion autorun(), unter der ich nach dem Laden der Datei automatisch Makros ausführen kann?

Ciao Frank

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