---

Hallo Forum,

ich möchte gerne das Programm 'printman' von Uwe Thieme als Macro von SWX aus starten können, um Zeichnungen auszudrucken.
Wenn wir mal drucken müssen, sind dies direkt 30-40 Blätter verschiedener Formate.
Ich habe hierzu das Macro von Stefan Berlitz so umgeschrieben, das das Programm gestartet wird.
Die "printman.ini" ist richtig eingerichtet, jedoch gibt es ein Problem, wenn ich das Programm ein zweites mal aufrufen möchte (nach Zeichnungswechsel).
Hier erscheint die Fehlermeldung:
 
Laufzeitfehler '53'
Datei nicht gefunden

Wenn ich dann auf debuggen gehe, wird mir die Zeile:

MyAppID = Shell(Progpfad, 1)

gelb markiert.

Ich kenn mich mit der Macroprogrammierung nicht aus (dies ist mein erster versuch in Macroprogrammierung) 
Hier der Syntax des Macros. Findet jemand den Fehler? 
******************************
Dim Progpfad As String

Sub main()

  ' Program starts as normal window with focus (the
  ' parameter 1). If the program is not in the PATH
  ' you have to enter the complete path to trhe exe.
  ' Returns an handle for that instance
 
     
  Progpfad = "printman.exe 'c:\dokumente und einstellungen\kh\eigene dateien\printman\startexe.swp'"
  MyAppID = Shell(Progpfad, 1)
 
  'AppActivate MyAppID

End Sub

******************

Danke schon mal für Eure Hilfe.

------------------
Grüße aus Bad Camberg

Karsten

Wer Rechtschreibfehler findet darf sie behalten.

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

---

Hallo,

ich hab das so gelöst. Eine Userform wird ausgeführt wo man die Anzahl der zu druckenden Dokumente einstellt (Doccount). Dann fragt er paar Sachen ab die ich mir aus anderen Macros "zusammengehliehen" hab, zb ob das Dokument gespeichert ist.

Dann startet das Macro den Printman....Macro macht einen Moment pause für den Wechsel von Printman zu SWX zurück....schließt das aktive Document und wiederholt das so oft wie für Doccount angegeben wurde.

Bin da aber selber noch großer Leihe was Macros angeht, daher können da auch noch paar unütze Schnippsel drinn stehen die man eigentlich garnicht braucht.

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

Doccount = TextBox1.Value

For I = 1 To Doccount

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch

If (swApp.ActiveDoc.GetPathName = "") Then          'Abfrage ob Name vergeben wurde
    MsgBox ("Bitte zuerst Zeichnung speichern!")
    Exit Sub
End If

ProgID = Shell("D:\Program Files\SWX Drucken\printman.exe", vbNormalNoFocus)

    Pausenlänge = 5    ' Dauer festlegen.
    Start = Timer    ' Anfangszeit setzen.
    Do While Timer < Start + Pausenlänge
        DoEvents    ' Steuerung an andere Prozesse
                    ' abgeben.
    Loop

   

Name = Part.GetPathName()
swApp.CloseDoc Name

Next I

End Sub
--------------------------------------------

Gruß
Roland

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

---

Vielen Dank Roland, ich probiere es direkt aus.
melde mich dann , wenn's funzt.

         

------------------
Grüße aus Bad Camberg

Karsten

Wer Rechtschreibfehler findet darf sie behalten.

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