---

Hallo  Forumsmitglieder,

ich bin neu hier. Ich suche den Code für die Printerdialogbox. Hintergrund ist der, dass ich die Dialogbox selber programmieren möchte, sodass einige Optionen im voraus gesetzt sind ohne das man sie bei jedem Aufruf der Dialogbox per Hand setzen muss. Vor allem finde ich den Code nicht, wie die einzelnen, verfügbaren Drucker/Plotter in die Auswahlbox eingetragen werden.

Im voraus möchte ich mich für die Hilfe bedanken!

Gruß

Stechi

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

---

Hallo Stechi,

Das kannst Du billiger (wenn auch nicht gratis) haben: FX64 Plot.

------------------
mfg - Leo

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

---

 

Zitat:

---

Original erstellt von Stechi:
...Vor allem finde ich den Code nicht, wie die einzelnen, verfügbaren Drucker/Plotter in die Auswahlbox eingetragen werden...

---

Hallo Stechi,

da deine Anforderungen sehr allgemein gehalten sind, hier ein paar Zeilen in C#:

Code:

---

            for (int i = 0; i < PrinterSettings.InstalledPrinters.Count; i++)
            {
                cmbPrinter.Items.Add(PrinterSettings.InstalledPrinters[i]);
            }

---

BTW. Programmierforen: Inventor .NET und Inventor VBA

------------------
Grüße Igor

FX64 Software Solutions

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

---

Hallo Igor,

Danke für Deine Antwort. Ich habe in meinen Beitrag vollkommen vergessen, dass es in VBA passieren soll.
Hast Du auch ein Programmschnipsel in VBA?

Danke!

Gruß

Stechi

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

---

Zitat:

---

Original erstellt von Stechi:
...Hast Du auch ein Programmschnipsel in VBA?...

---

Code:

---

Public Sub Druckerauflistung()
    Dim objWMI As Object, objItem As Object
    Set objWMI = GetObject("winmgmts:\\.\root\cimv2"). _
        ExecQuery("Select * from Win32_Printer")
    For Each objItem In objWMI
        Debug.Print objItem.Name
    Next
    Set objWMI = Nothing
End Sub

---

------------------
Grüße Igor

FX64 Software Solutions

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

---

Hallo Igor,

Zitat:

---

Original erstellt von daywa1k3r:

Code:

---

Public Sub Druckerauflistung()
    Dim objWMI As Object, objItem As Object
    Set objWMI = GetObject("winmgmts:\\.\root\cimv2"). _
        ExecQuery("Select * from Win32_Printer")
    For Each objItem In objWMI
        Debug.Print objItem.Name
    Next
    Set objWMI = Nothing
End Sub

---

Wenn ich den oben stehenden Code ausführen, bekomme ich folgende Fehlermeldung:

Runtime error 2147221020 (800401e4)
Automation error
Invalid syntax

Fehlt dem Programm irgendein Verweiss (dll bzw. tlb)

Danke für die Hilfe!

Gruß

Stechi

---

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

---

Läuft bei mir (Inventor VBA).

Btw. Systeminfo und so...

------------------
Grüße Igor

FX64 Software Solutions

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

---

Hallo Igor,

alles klar! Jetzt klappt es! Ich weiss nicht woran es lag! Habe den Code nochmal in das Pojekt eingefügt.

Danke nochmal!

Gruß

Stechi

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

---

Zitat:

---

Original erstellt von Stechi:
... Jetzt klappt es! ...

---

Ich verschiebe diesen Thread aber trotzdem mal in das Inventor-VBA-Forum.

------------------
Michael Puschner
Autodesk Inventor Certified Expert
Scholle und Partner GmbH

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