|
Я тоже "уперся" в 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
Большое спасибо всем оветившим за помощь.
|
