Подскажите, как можно при старте программы автоматически, без вызова диалоговых окон, у принтера "по умолчанию" установить (изменить) необходимый формат бумаги и лоток.

Наверное мой вопрос немного некорректен. Мне необходимо, чтобы у "принтера по умолчанию" реально изменялся формат бумаги. Т.е, чтобы после завершения работы программы на принтере был установлен заданный формат. Да, программа работает под Win 2000.

Самое веселое, что я "шарюсь" в реестре по настоящее время с нулевым результатом.

Переменная DevMode представляет собой структуру объемом 1172 байта (по крайней мере в моем реестре). При этом у некоторых принтеров эта переменная отсутствует.

Я тоже "уперся" в CopyMemory. И хотя в конце концов она заработала, настройки принтера "по умолчанию" не изменились. Интересно, что не так сделал? Так как у меня на всех компьютерах только WIN 2000, поэтому я сделал следующее. Информация о принтере по умолчанию хранится в реестре в разделе HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows в переменной Device. Настройки всех принтеров хранятся в разделах HKEY_CURRENT_USER\Printers\DevModePerUser (для локальных) и в HKEY_CURRENT_USER\Printers\Connections\.... (для сетевых). В первом случае имя переменной с настройками совпадает с именем Devic'а, а во втором имеет название "DevMode". Структура этой переменной (REG_BINARY) такая же как и

Private Type DEVMODE
dmDeviceName As String
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,

по крайней мере у меня :)

Таким образом необходимый мне параметр - формат и лоток числятся на позициях 79-80 и 89-90. После замены этих параметров "загоняю их" обратно в реестр. После этого все "перегружаем" функцией SendMessage. В общем все работает.


Текст программы (прошу прощение за небрежность) приблизительно следующий (без "перегрузки" после изменения реестра)


Const HKEY_CURRENT_USER = &H80000001
Const KEY_ALL_ACCESS = &H3F
Const REG_SZ = 1
Const REG_BINARY = 3


Private Declare Function RegOpenKeyEx Lib "advapi32.dll" _
Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, _
ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" _
Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _
ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, _
ByVal cbData As Long) As Long

Private Declare Function RegQueryValueEx Lib "advapi32.dll" _
Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _
ByVal lpReserved As Long, lpType As Long, lpData As Any, _
LpcbData As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long


Function GetRegString(hKey As Long, strSubKey As String, _
strValueName As String) As String
Dim strSetting As String
Dim lngDataLen As Long
Dim hSubKey As Long

If RegOpenKeyEx(hKey, strSubKey, 0, KEY_ALL_ACCESS, hSubKey) = 0 Then
strSetting = Space(1180)
lngDataLen = Len(strSetting)
If RegQueryValueEx(hSubKey, strValueName, ByVal 0, _
REG_BINARY, ByVal strSetting, lngDataLen) = 0 Then
If lngDataLen > 1 Then
GetRegString = Left(strSetting, lngDataLen)
End If
End If
RegCloseKey hSubKey
End If
End Function

Public Sub SetRegString(hKey As Long, strSubKey As String, _
ByVal strValueName As String, strSetting As String, Reg As Long)
Dim hNewHandle As Long
Dim lpdwDisposition As Long

If RegOpenKeyEx(hKey, strSubKey, 0, KEY_ALL_ACCESS, hSubKey) = 0 Then
If RegSetValueEx(hSubKey, strValueName, 0, Reg, _
ByVal strSetting, Len(strSetting)) <> 0 Then "....."
End If
Else
"......"
End If
RegCloseKey hNewHandle
End Sub


Sub Main()

Dim a As String
Dim Razdel As String
Dim NameParametr As String

' определяем принтер по умолчанию (сетевой или локальный)

If Mid(PrinterName, 1, 1) = "\" Then
Razdel = "Printers\Connections\" + Replace(PrinterName, "\", ",", 1)
NameParametr = "DevMode"
Else
Razdel = "Printers\DevModePerUser"
NameParametr = PrinterName
End If


'считываем настройки принтера

a = GetRegString(HKEY_CURRENT_USER, Razdel, NameParametr, REG_BINARY)

' длина переменной настроек у меня 1172 байта

' устанавливаем необходимые параметры (коды форматов для каждого принтера свои)

If Format = "A4" Then a = Mid(a, 1, 78) + Chr(KodA4) + Mid(a, 80, 1093)
If Format = "A6" Then a = Mid(a, 1, 78) + Chr(KodA6) + Mid(a, 80, 1093)

' и т.д. можно менять и другие параметры

SetRegString HKEY_CURRENT_USER, Razdel, NameParametr, a, REG_BINARY


' Дальше SendMessage (если надо, конечно :)) )

End Sub


Большое спасибо всем оветившим за помощь.

Да, у сетевых принтеров, у которых на локальном компьютере настройки ни разу не менялись переменная DevMode в реестре отсутствует (до первого "сохранения").