---

DruckePDF.zip

Hallo,
mir fehlt in einem Makro die Abfrage, ob überhaupt eine Zeichnung zum Drucken geladen ist. Das Makro läuft derzeit auch im Falle einer vollständig leeren Benutzeroberfläche an.

Hat jemand vielleicht einen Code-Schnipsel für SWX 2009 welchen ich als Abfrage einbauen kann? Es sollen nur Zeichnungen gedruckt werden können, also auch bei einer geladenen Baugruppe / Bauteil darf das Makro nicht startbar sein.

Vielen Dank schon mal (falls jemand .. was hat)

------------------
The privilege of a lifetime is being who you are.

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

---

Zitat:

---

... einen Code-Schnipsel

---

Code:

---

Set Drawing = swApp.ActiveDoc
If Not (Drawing.gettype() = swDocDRAWING) Then
  MsgBox ("keine Zeichnung aktiv !")
  Exit Sub
End If

---

------------------
mfg uc

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

---

Total nett, vielen Dank.

Aber ich kann's noch nicht einbinden weil mir die Kenntnisse für die Variablendeklarationen fehlen.

Sprich, ich krieg's mit dem Schnipsel allein nicht zum Laufen.

Sorry, aber ich fange damit gerade neu an und muss erst mal die Basics einlernen nur gerade ist das Problem eben da und das Wissen dazu muss erst hinterher kommen.

Das Problem sitzt jetzt vor dem Bildschirm.

Shit happens ...

------------------
The privilege of a lifetime is being who you are.

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

---

DruckePDF.zip

Hallo webfritz,

hab den Schnipsel mal integriert... 

------------------
==========
Gruß
Andreas
==========

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

---

Kompilieren_Fehler.jpg

Klemmt noch ein bisschen, trotzdem vielen Dank!

Screenshot anbei ...

------------------
The privilege of a lifetime is being who you are.

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

---

Hallo,

in welcher Zeile klemmt es denn? Es sieht so aus, als wenn ein
Verweis fehlen würde. Lass doch mal den Debugger da drüberlaufen.

------------------
==========
Gruß
Andreas
==========

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

---

Hallo Andreas,

Der Stopp erfolgt direkt in Zeile 19 und der gelbe Zeiger steht bei Sub (main).

Schade,wenn ich Dir da mehr Infos geben könnte aber dummerweise ist das eines meiner ersten Versuche.

Läuft das Makro denn bei Dir?

------------------
The privilege of a lifetime is being who you are.

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

---

2010-11-08Verweise.JPG DruckePDF.zip

Hallo webfritz,

ich habe das Makro noch mal ein wenig bearbeitet, so dass auch eine
Fehlermeldung kommt, wenn gar nix ausgewählt ist. Ansonsten habe ich die
Verweise noch mal gecheckt und einen falschen Verweis entfernt. Schau doch
mal bei dir im VBA unter Extras / Verweise nach, ob die wie gezeigt angehakt
sind. Damit funktioniert es bei mir einwandfrei.

------------------
==========
Gruß
Andreas
==========

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

---

Zitat:

---

ich habe das Makro noch mal ein wenig bearbeitet, so dass auch eine Fehlermeldung kommt, wenn gar nix ausgewählt ist. Ansosten habe ich die Verweise noch mal gecheckt und einen falschen Verweis entfernt. Schau doch mal bei dir im VBA unter Extras / Verweise nach, ob die wie gezeigt angehakt sind. Damit funktioniert es bei mir einwandfrei.

---

Und bei mir funktioniert das auch jetzt, aber richtig toll!

DANKE ANDREAS ... freu, freu, freu ... 

------------------
The privilege of a lifetime is being who you are.

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

---

AcrobatTypeLibrary.jpg

Zitat:

---

Original erstellt von ad_man:
Schau doch mal bei dir im VBA unter Extras / Verweise nach, ob die wie gezeigt angehakt sind. Damit funktioniert es bei mir einwandfrei.

---

Hinweis: Funktioniert hat die Abfrage "Zeichnung geladen" erst, wenn noch der Verweis auf die Acrobat Type Library angeklickt ist.

------------------
The privilege of a lifetime is being who you are.

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