Я столкнулся с проблемой в VB 6 при создании объекта принтера. По сути, мне нужно создать объект принтера, чтобы я мог установить правильный лоток, на котором должна выполняться печать.
У меня есть имя принтера со мной.
Весь код, который я могу найти в Интернете, включает в себя перебор всех доступных принтеров и поиск соответствия с именем нашего принтера.
Есть ли способ создать объект принтера prn непосредственно из имени принтера.
Любая помощь будет оценена по достоинству.
Вы не можете. Доступ к коллекции принтеров VB6 осуществляется только по индексу, а не по имени. См. раздел Объект принтера Visual Studio 6, Коллекция принтеров.
Таким образом, вам нужно искать в коллекции принтер, который вы хотите. Например:
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
Приведенное выше не подходит для ситуации, когда искомый принтер отсутствует в коллекции. Вы захотите добавить логику для покрытия этого условия - то, что вы хотите сделать, зависит от ваших конкретных задач и требований. Этот пример также представляет собой поиск по имени с учетом регистра, так что имейте это в виду.
