Как создать объект принтера в VB

Question

У меня проблема с VB 6 при создании объекта принтера. В принципе, мне нужно создать объект принтера, чтобы я мог установить правильный лоток, на котором должна выполняться печать.

У меня есть имя принтера вместе со мной.

Весь код, который я могу найти в Интернете, включает в себя прокрутку всех доступных принтеров и поиск соответствия имени нашего принтера.

Есть ли способ, которым я могу создать объект принтера prn непосредственно с имени принтера.

Любая помощь будет оценена по достоинству.

Answer 1

Вы не можете. Доступ к коллекции принтеров VB6 осуществляется только по индексу, а не по имени. См. Visual Studio 6 Printer Object, Printers Collection.

Таким образом, вам необходимо найти коллекцию для принтера, который вы хотите. Например:

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 

Вышесказанное не справиться с ситуацией, когда принтер вы ищете не в коллекции. Вы хотите добавить логику, чтобы покрыть это условие - то, что вы хотите сделать, зависит от ваших конкретных задач и требований. Этот пример также относится к регистру поиска по регистру, поэтому имейте это в виду.