---

userermiteln.zip

Hallo miteinander!

Habe ein Problem.

Ich möchte beim ausdrucken von meinen Zeichungen, dass das Datum, die Uhrzeit und der Username
draufsteht.

Diese Funktion gibts beim OneSpaceDesigner von CoCreate. Damit habe ich gute erfahrungen gemacht.

Kann mir jemand dabei helfen ein Makro zu erstellen? ( Ich persöhnlich bin kein Makro guru! )

Im anhang ist ein Makro mit dem man den User ermitteln kann.

Besten Dank für eure Hilfe!

Gruss

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

---

0214510.jpg

HI Thyssen,

klicke einfach im Feld der Druckeroptionen auf "Dokumentenoptionen", dann wählst du die Dinge aus die du haben möchtest und ab geht die Post.
Allerdings ist hier kein Username drinnen, aber ich sehe keine Notwendigkeit den User, der es ausdruckte, mit seinem Namen zu verewigen.
Um das ganze beim nächsten mal nicht wieder auszuwählen, lege dir einfach einen neuen Drucker im Windows an, und dem verpasst du deine Einstellungen.

lg florian

------------------
Es funktioniert alles so lange, bis es nicht mehr funktioniert.

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

---

Hallo Florian,

besten Dank, diese Funktion kenne ich.

Ich möchte das Datum aber auf einer anderen Position.
Wichtig für mich währe die Uhrzeit!

Es besteht auch die möglichkeit mit einer Skizze das Datum zu ermitteln, aber dann fehlt wiederum die Uhrzeit.

Ich glaube die Uhrzeit und der User zu ermiteln müsste kein grosses Problem darstellen für einer, der sich mit Makros auskennt. (vieleicht liege ich auch falsch)

Nochmales Danke,

Gruss

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

---

Printwithtimedateandusername.zip

Hallo Thyssen

Anbei ein Vorschlag..

Es wedern zwei neue Benutzerdefinierte Eigenschaften erzeugt (Datum,Zeit = "Print Time" & Benutzername  = "Print User") und die Zeichnung wirdausgedruckt.
Um es auf der Zeichnung zu sehen, müssen vorher zwei neue Texte erstellt werden mit dem Inhalt
$PRP:"Print Time" und  $PRP:"Print User".

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

---

Hallo Henry,

so wie es du beschrieben hast, gefällt mir gut.
Nur schade das ich es nicht aufs Papier kriege! 

Habe die Texte erstllt und dann jeweils das Makro gestartet! gedruckt wurde es, aber ohne Datum und User!

Aber Trotztdem danke für deine Bemühung!

Schönes Wochenende!

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

---

BLATFORMATBearb.jpg BEZHinweis.jpg BEZHinweis1.jpg

  Hi Thyssen,

Wenn schon, dann muß man die restliche Arbeit auch machen - sprich das Blatformat bearbeiten, sprich über Beziehungshinweis mit der Dokumentvariable verknüpfen und im Blattformatt abspeichern. Das ganze Spiel für alle Blattformate.

Gutes Makro!

  G. myca

------------------
   

[Diese Nachricht wurde von myca am 29. Jun. 2007 editiert.]

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

---

kiste.jpg

Noch ein Bild.
myca

------------------

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

---

Oberflächen_prog.zip

He Myca!

Das ist genau das was ich suche!!

Die Texte hab ich erstellt! Aber das ausführen des Makros geht nicht!

=> bei Verknüpfungen zu Eigenschaften finde ich UserPrint nicht!
Habe deshalb $PRP:"Print User" hineinkopiert!

Hoffe das du mir weiterhelfen kanst!

Besten Dank im voraus!

Gruss

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

---

Hallo Thyssen

Das Problem liegt bei den Verweisen.

Gehe wie folgt vor...

In Solidworks: Extra -> Makro -> Bearbeiten... drücken und Makro laden.
Im Visual basic Editor: Extra -> Verweise... und dort runterscrollen bis du "Visual Basic For Application" siehst, vor dem ersten ein Kreuz machen und OK drücken. Fehlermeldung bestätigen und Makro speichern.

Nun sollte es gehen

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

---

Hat leider nicht geklappt! 

Jetzt bringt er ein DLL Fehler! "Fehler beim laden einer DLL"

Ich bin verzweifelt!

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

---

OK, noch ein Versuch...

Estelle ein neues, leeres Makro und kopieren den Code dort hinein...

Code:

---

' Es wedern zwei neue Benutzerdefinierte Eigenschaften erzeugt ("Print Time" & "Print User")
' Um es auf der Zeichnung zu sehen, müssen zwei neue Texte erstellt werden mit dem Inhalt
' $PRP:"Print Time"
' und
' $PRP:"Print User"
'

Option Explicit

Public swApp As Object
Dim Doc As Object
Dim retval As Boolean
Dim bret As Boolean

Dim Länge    As Long
Dim User As String
Dim Buffer  As String * 100

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Sub main()

Set swApp = CreateObject("SldWorks.Application")
Set Doc = swApp.ActiveDoc
 
  ' Error handler for no document loaded
If Doc Is Nothing Then MsgBox "No document loaded!", vbCritical: End
 
  ' Error handler for document not being a drawing
If Doc.GetType = 3 Then

    ' Assign the current time and date to custom property
    retval = Doc.DeleteCustomInfo("Print Time")
    retval = Doc.AddCustomInfo("Print Time", "Text", Now)
   
    'Get User Name
    Länge = 100
    GetUserName Buffer, Länge
    User = Left(Buffer, Länge - 1)

    ' Assign the current user to custom property
    retval = Doc.DeleteCustomInfo("Print User")
    retval = Doc.AddCustomInfo("Print User", "Text", User)
   
    ' Refresh drawing display to show updated time and date
    retval = Doc.ForceRebuild3(False)

End If

'Print
bret = Doc.PrintOut2(0, 0, 1, False, 0, 0, False, 0)

End Sub

---

------------------
21 ist nur die halbe Antwort.

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

---

Alle Fehlermeldungen sind verschwunden,
aber es wird nicht ausgedruckt!

Ich habe alle hoffnungen verlohren.

Was könnte ich noch tun? Wir haben alles schon ausprobiert.

Gruss

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

---

Das Verstehe ich auch nicht. 
Eigendlich sollte die Zeichnung auf den Drucker, der in ->Datei->Drucken... eingestellt ist, gedruckt werden.

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

---

Hallo Thyssen, guck doch mal bitte, ob im Anschluß an das Ausführen des Makros die Dateieigenschaften "Print User" und "Print Time" in Deinem aktiven Dokument da und gefüllt sind. Dann könntest Du noch überprüfen, ob in den Texten auf dem Zeichnungsblatt die Eigenschaften aus dem Zeichnungsdokument (richtig, "$PRP@Print user") oder evtl. fälschlicherweise aus dem Modell ("$PRPSHEET@Print user") geholt werden. Tja, und dann könnte Dein Text noch auf einem Layer liegen, den Du mal kurz ausgeschaltet hast, um uns ein Rätsel zu stellen?!

------------------
Lutz Federbusch
Mein Gästebuch
Der Mensch, Herr oder Sklave der Technik?

[Diese Nachricht wurde von Lutz Federbusch am 02. Jul. 2007 editiert.]

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

---

vorgehen.zip

Habe ein Video gemacht, so gehe ich vor!

Korrigiert mich fals ich es falsch gemacht habe!

Nach dem ich das Makro gestartet habe, ist kein Blatt ausgedruckt worden und in der Zeichung wird nichts aktualisiert!

Wie ihr auch sieht, ich habe aus verzweifelung verschiedene Varianten getestet!
alle ohne erfolg!

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

---

Datum_User.zip

Hallo Thyssen,

ich habe dir das Makro erzeugt und oben hingeschrieben was Du in das Blatt kopieren mußt.

Bei mir ging's auf Anhieb.

Gruß Mc Fly

------------------
Ich sehe in jedem Mensch zuerst das positive, enttäuscht werde ich noch früh genug.

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

---

He Leute!!

Es hat geklappt!!

Danke an alle für eure Bemühungen!!!!

Ihr seid supper!!! 

=> Kann man das Makro mit der ok Taste des Druckfesters verknüpfen damit mann nicht jedes mal das Makro betätigen muss?

[Diese Nachricht wurde von Thyssen am 02. Jul. 2007 editiert.]

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

---

Hi Thyssen,

lege Dir einen Makroknopf an. Geht über Anpassen, Befehle,Makro - das Mänchen mit dem Pfeil.

G. myca

------------------

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