---

hallo

ich möchte gerne mittels eines makros den aktuel am bildschirm
dargestellten ausschnitt ausdrucken. was ja normal beim drucken geht.
nur ich bekomme mit der methode printout nur das ganze draft ausgedruckt.

weis jemand wie man printout hierfür passend aufrufen muss ?

mfg

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

---

Sieht schlecht aus. Man ha da nur die Parameter 1- 3 für die PrintRange. Ich hab mal andere Nummern versucht, aber dann ist es immer wie 1.

------------------
APeters@BSS-Online.de

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

---

Versuchst es halt mal so.

Sub main()

  Dim o_app As Object

  Set o_app = GetObject(, "solidedge.application")

  Call o_app.StartCommand(DetailFilePrint)
  ' Hier eventuell noch en Wartschleife
  SendKeys "~"

End Sub

Die Einstellung zum Drucken muss aber richtig sein. Die findest Du in der Registry unter

[HKEY_CURRENT_USER\Software\Unigraphics Solutions\Solid Edge\Version 20\PrefSets\PrintPrefs]

Der Schlüssel ist

"PrintOption"=hex:02,00,00,00,00,00,00,00,03,00,00,00,00,00,00,00

Den müsste man idealerweise auslesen, merken, setzen wie gewünscht und wieder zurücksetzen.

------------------
APeters@BSS-Online.de

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

---

PrintView.zip

Nachgebessert.

Schickst ein ALT+Z vorweg, um die aktuelle Anzeige zu drucken. Das spart Dir den Eingriff in die Registry. Die Option ist dann allerdings hinterher umgestellt.

Muss man allerdings erst drauf kommen, da die Shortcuts zumindest bei mir zunächst nicht unterstrichen sind.

Ist intelligenterweise im 3D dann ALT+k und jedesmal ein anderer Befehl.

Sub main()

  Dim o_app As Object

  Set o_app = GetObject(, "solidedge.application")

  Call o_app.StartCommand(DetailFilePrint)
  ' Hier eventuell noch en Wartschleife

  SendKeys "%z"
  SendKeys "~"

End Sub

Anbei das ganze mal für alle Module

------------------
APeters@BSS-Online.de

[Diese Nachricht wurde von Arne Peters am 12. Mai. 2007 editiert.]

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

---

sorry. für mein spätest antworten.
danke das hat mir geholfen.

mfg

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