Требуется помощь профессионалов!
В своем проекте
viewer появилась необходимость использовать CommonDialog для стандартных операций (ShowFont, ShowPrinter и т.д.). Чтобы не таскать за приложением OCX, решил воспользоваться кодами, работающими с comdlg32.dll напрямую...
здесь и
здесь .
Все
нужные мне методы из этих примеров работают без видимых глюков, кроме метода ShowPrinter.
Суть проблемы в следующем:
При вызове метода ShowPrinter, сначала выполняется инициализация отображения формы диалога печати, выставляются нужные флаги и т.д.
Затем вызывается сама форма RetValue = PrintDlg(PD).
Пользователь производит настройки печати и выбирает принтер, например,
Microsoft Office Document Image Writer, нажимает «Ок».
Далее в процедуре происходит получение структуры DEVMODE (DM) выбранного принтера и его настроек из памяти через
CopyMemory DM, ByVal lpDevMode, Len(DM) - вот именно здесь происходит глюк. Заключается он в том, что CopyMemory копирует в ячейку dmDeviceName...
1.
2.
3.
4.
Const CCHDEVICENAME = 32
Private Type DEVMODE
dmDeviceName As String * CCHDEVICENAME
...
End Type
только
30(!) символов, то есть – вместо «Microsoft Office Document Image Writer» получаем - «
Microsoft Office Document Imag ». При этом значение константы CCHDEVICENAME не играет НИКАКОЙ роли!
Из-за этого далее по контексту кода естественно не выполняется условие:
1.
2.
3.
4.
5.
6.
7.
NewPrinterName = UCase$(Left(DM.dmDeviceName, InStr(DM.dmDeviceName, vbNullChar) - 1 ))
If Printer.DeviceName <> NewPrinterName Then
For Each objPrinter In Printers
If UCase$(objPrinter.DeviceName) = NewPrinterName Then
Set Printer = objPrinter
End If
Next
End If
и объект Printer остается Default. :(
Подобная проблема безуспешно решалась на других
форумах ...
и на
этом , в том числе...
А так же, что самое удивительное, на официальном сайте
Microsoft ...
где dmDeviceName уже описан, как байтовый массив
dmDeviceName( 1 To CCHDEVICENAME) As Byte
все так же значение CCHDEVICENAME роли не играет.
Все эти примеры возвращают одни и те же обрезанные длинные имена принтеров.
Может быть кто-нибудь из ГУРУ сможет объяснить что это за хрень?! И как с ней бороться?
Прилагаю фрагмент проекта только с самим ShowPrinter, все лишнее убрал.
