Длина строки имени принтера из структуры

[rodnoi]

При организации диалога выбора принтера использую структуру

Public Const CCHDEVICENAME = 32
Public Const CCHFORMNAME = 32
Type DEVMODE
dmDeviceName As String * CCHDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCHFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type

из этой структуры получаю dmDeviceName,ограниченное 32 символами, а как быть,если имя принтера длиннее? Кто-нибудь сталкивался с такой проблемой?

[Alexanbar]

1. А разве бываеют такие принтеры, во всяком случае, в сети?
2. возможно, что надо использовать версии функций, работающих с юникодом, соответсвенно, и видоизменённые структуры

[keks-n]

При организации диалога выбора принтера использую структуру

Юзай OCX от мелкомягких и не запаривайся. + тебе, по идее нужно не имя а hDC принтера.

[Viper]

2. возможно, что надо использовать версии функций, работающих с юникодом, соответсвенно, и видоизменённые структуры

Версия для Unicode так же имеет соответствующее поле dmDeviceName размером 32 символа, так же как и версия ANSI.

Для автора привожу перевод описания члена dmDeviceName структуры DEVMODE.

Определяет "дружественное" имя принтера или дисплея; например, "PCL/HP LaserJet" для принтера PCL/HP LaserJet. Эта строка является уникальной среди драйверов устройств. Заметим, что это имя может быть обрезано для соответствия размерам массива dmDeviceName.

[rodnoi]

А ведь можно определить имя принтера больше 32 символов, используя структуру DevNames! Вот главный кусок

'Set the current driver, device, and port name strings
With DevName
.wDriverOffset = 8
.wDeviceOffset = .wDriverOffset + 1 + Len(Printer.DriverName)
.wOutputOffset = .wDeviceOffset + 1 + Len(Printer.Port)
.wDefault = 0
'''
If Len(Printer.DeviceName) > 32 Then
.wOutputOffset = .wDeviceOffset + 32
Else
.wOutputOffset = .wDeviceOffset + 1 + Len(Printer.DeviceName)
End If
.wDefault = 0
End With

With Printer
DevName.extra = .DriverName & Chr(0) & .DeviceName & Chr(0) & .Port & Chr(0)
End With