So erstellen Sie ein Druckerobjekt in VB

Question

Ich habe ein Problem in VB 6 beim Erstellen eines Druckerobjekts. Grundsätzlich muss ich ein Druckerobjekt erstellen, damit ich das richtige Fach einstellen kann, auf dem gedruckt werden soll.

Ich habe den Druckernamen mit mir.

Der gesamte Code, den ich online finden kann, umfasst das Durchlaufen aller verfügbaren Drucker und das Finden einer Übereinstimmung mit unserem Druckernamen.

Gibt es eine Möglichkeit kann ich das Druckerobjekt prn direkt aus dem Druckername erstellen.

Jede Hilfe wäre willkommen.

Answer 1

Sie können nicht. Auf die VB6 Printers-Auflistung wird nur nach Index und nicht nach Name zugegriffen. Siehe Visual Studio 6 Printer Object, Printers Collection.

Sie müssen also die Sammlung nach dem Drucker suchen, den Sie möchten. Zum Beispiel:

Private Function FindPrinter(PrinterName As String) As Printer 
    Dim i As Integer 
    For i = 0 To Printers.Count - 1 
    If Printers(i).DeviceName = PrinterName Then 
     Set FindPrinter = Printers(i) 
     Exit For 
    End If 
    Next i 
    Exit Function 
End Function 

Die oben die Situation nicht behandeln, wo der Drucker Sie suchen nicht in der Sammlung ist. Sie sollten Logik hinzufügen, um diese Bedingung zu erfüllen - was Sie tun möchten, ist spezifisch für Ihre speziellen Aufgaben und Anforderungen. In diesem Beispiel wird auch die Groß-/Kleinschreibung beachtet. Beachten Sie dies auch.