---

Druckmanager2003.zip

Hallo,

Info: SolidWorks 2005 SP.5

ich habe folgendes Problem. In dem Drucker Makro (s. Anhang) tritt folgendes Problem auf: Manchmal wenn man nicht den Drucker nutzen möchte welcher von dem Makro als Standard ausgelesen wird und einen anderen Drucker auswählt, dann wird trotzdem auf dem Standarddrucker gedruckt. Dieses Problem tritt nicht immer auf und das macht mich stutzig. Ich bin ganz neu in der Welt von Solidworks und der Makroprogrammierung und der Druckmanager ist auch nicht von mir sondern von meinem Vorgänger. Ich hoffe mir kann da jmd. helfen.
Es geschieht nur ab und zu und auch nicht auf jedem System.

Kann es auch sein, dass es nicht an dem Makro selber liegt? Der manager lief aber bei SW2005 einwandfrei.

Meine Vermutung liegt dabei, dass es sich dabei um diese Zeile handelt:

'Den aktiven Drucker auswählen
    swApp.ActivePrinter = aktiver_Drucker

da der Command "swApp.ActivePrinter" anscheinend ab der von uns benutzten Version oder schon früher "überholt und ersetzt" wurde.

Hoffe mal auf Antworten oder Tips 

Danke schonmal

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

---

Der Manager lief auf SW2003 einwandfrei sollte das heißen...

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

---

Hat niemand eine Idee? Ist die Anfrage nicht korrekt/unverständlich wiedergegeben? Werden mehr Infos benötigt? Würde mich über eine Antwort freuen

Gruß

Viktor

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

---

Jo,

also .... Ich hab mir dein Programm zwar 'noch' nicht angeschaut allerdings kenne ich das - mehr oder weniger - Spontan auftretende Problem :-P beim Umgang mit dem ActivePrinter - egal ob es aus SWX oder Office erfolgt ...AFAIK kannst du das nur umgehen (jedenfalls hat es bei mir geholfen) wenn du direkt den Windows default Drucker umstellst ...

' Standarddrucker systemweit festlegen
Public Function SetDefaultPrinter(ByVal sPrinterName As String) As Boolean
  ' Fehlerbehandlung aktivieren
  On Error Goto ErrHandler

  ' Verweis auf das Windows-Scripting-Objekt
  Dim oWScript As Object
  Set oWScript = CreateObject("WScript.Network")

  ' Standarddrucker neu festlegen
  oWScript.SetDefaultPrinter sPrinterName

  ' Objekt wieder zerstören
  Set oWScript = Nothing

  ' Druckerwechsel erfolgreich!
  On Error Goto 0
  SetDefaultPrinter = True
  Exit Function

ErrHandler:
  ' Druckerwechsel konnte nicht durchgeführt werden
  ' Entweder konnte das WScript-Objekt nicht instanziert werden
  ' oder es wurde ein ungültiger Druckername angegeben
  On Error Goto 0
  SetDefaultPrinter = False
End Function

darfst nur nicht vergessen nach dem Ausdrucken wieder den ursprünglichen Drucker zu aktivieren... gibt sonst Mecker ...

Gruß
Micha

------------------
http://classicvb.org/petition/

 

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Man muss bei solid works zuerst festlegen wo du den Drucker festlegst:

- immer
- Dokument
- Zeichenblatt

Da die meisten befehl fürs drucken im Page Setup festgelegt werden sollte man auch im ModelDocExtension objekt festlegen das die drucker einstellung nur für dieses Zeichnungsblatt ist

z.b. so:
oSwModelExt.UsePageSetup = 3 'Druckeinstellung Jedes Zeichenblatt einzeln einstellen

ich hoffe des hilft!
       

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

---

Hi,

erstmal danke an auch beiden für die Tips. Nur leider muss ich zugeben, dass ich mit den Angaben nicht allzu viel anfangen kann, da ich blutiger Anfänger in der Materie bin. Ich werde mich aber trotzdem gleich mal ransetzen und versuchen die Lösungsvprschläge umzusetzen. Danke euch

Gruß

Viktor

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