Файл mde . Надо, что бы конечный пользователь смог выбрать в меню настройках принтер для отчетов и ширину полей.

1. Т.к файл mde. Недоступно меню "Параметры страницы"
2. Да и вобще хочется поменять из другого файла, или что бы значение ширины поле бралось из таблицы.

В меню "Параметры страницы" не затемнены. Но при нажатии результат отсутсвует.
Все же хочется програмным способом изменить.

Данное меню доступно, если отчет уже открыт. У меня же отчет посылается сразу же на принтер.
DoCmd.OpenReport "Отчет", acViewPreview
DoCmd.PrintOut acPrintAll, , , acMedium, 2
DoCmd.Close acReport, "Отчет"

Есть конечный продвинутый пользователь. Запускает модуль настройка. Выбирает принтер. Настраивает поля. Данные записываются в таблицу.

Оператор запускает программу. Нажимает печать. ПРОГРАММНО считывается названия принтера и параметры отчета из таблицы.

Report.Printer данное свойство появилось только в xp офисе.

Нафиг мне этот XP. Буду писать под Delphi и MSSQL. А в XP все поменяли, кучу свойств убрали, кучу добавили. А кто сказал, что под 2000 :) Пол года назаод только полностью перешел на 2000, а то был 97.
Все стабильно работает, отлажено.
Надо разобраться, под 2000. Я не пожертвую стабильностью ради настройки принтера.

Ответы не по делу. Пробовал переконвертировать в Xp начались чудеса.
Не будем уходить от темы.
С принтером разобрался. Привожу код
Option Compare Database
Option Explicit
'=====================================================================
'Модуль составления списка установленных принтеров и установка
'одного из них по умолчанию
'Например:
'Cписок принтеров(через точку с запятой для использов в списке) = jsPrintersList()
'Установить принтер по умолчанию:
'Call jsSetPrinterAsDefault ("HP LaserJet 6L PCL")
'=====================================================================
Private Declare Function GetProfileString Lib "Kernel32" Alias "GetProfileStringA" ( _
ByVal lpAppName As String, _
ByVal lpKeyName As Any, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Integer) As Integer
Private Declare Function WriteProfileString Lib "Kernel32" Alias "WriteProfileStringA" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpString As Any) As Integer
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" ( _
ByVal hWnd As Integer, ByVal wMsg As Integer, _
ByVal wParam As Integer, lParam As Any) As Long
Private Const WM_WININICHANGE = &H1A
Private Const HWND_BROADCAST = &HFFFF

'=====================================================================
Function jsPrintersList() As String
'es 25.11.2000
'Строит список установленных принтеров (через точку с запятой)
Dim i As Integer
Dim StrBuffer As String '
jsPrintersList = ""
'Получение информации из WIN.INI
StrBuffer = Space(1024) 'или, если что, = Space(8192)
i = GetProfileString("PrinterPorts", 0&, "", StrBuffer, Len(StrBuffer))
Do
i = InStr(StrBuffer, Chr(0))
If i > 2 Then
If Len(jsPrintersList) > 1 Then jsPrintersList = jsPrintersList & ";"
jsPrintersList = jsPrintersList & Left(StrBuffer, i - 1) & ";"
StrBuffer = Mid(StrBuffer, i + 1)
End If
Loop While i > 2

End Function
'=====================================================================
Sub GetDriverAndPort(ByVal Buffer As String, _
DriverName As String, PrinterPort As String)
'Опеределние настроек драйвера и порта принтера из того же win.ini
'откопано где то на просторах MSDN
Dim R As Integer
Dim iDriver As Integer
Dim iPort As Integer

DriverName = ""
PrinterPort = ""
iDriver = InStr(Buffer, ",")

If iDriver > 0 Then
DriverName = Left(Buffer, iDriver - 1)
iPort = InStr(iDriver + 1, Buffer, ",")

If iPort > 0 Then
PrinterPort = Mid(Buffer, iDriver + 1, iPort - iDriver - 1)
End If

End If
End Sub

'=====================================================================
Function jsSetPrinterAsDefault(MyPrinterName As String)
Dim i As Integer 'переменные на запуск
Dim x As Long ' --//--
Dim StrBuffer As String 'Строка возвращаемая
Dim DeviceName As String 'Строка передаваемая (полная)
Dim DriverName As String
Dim PrinterPort As String

'Получение информации по указанному принтеру из WIN.INI
StrBuffer = Space(1024)
i = GetProfileString("PrinterPorts", MyPrinterName, "", StrBuffer, Len(StrBuffer))

'Получаем имена драйвера и порта из переменной StrBuffer
GetDriverAndPort StrBuffer, DriverName, PrinterPort

If DriverName <> "" And PrinterPort <> "" Then
'Установка принтера по умолчанию
'формирование строки дя вставки в секцию
DeviceName = MyPrinterName & "," & DriverName & "," & PrinterPort

'Сохраняет информацию нового принтера в [WINDOWS] разделе
'файла WIN.INI по DEVICE= принтер
i = WriteProfileString("windows", "Device", DeviceName)

'Иницализация перезагрузки WIN.INI
x = SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, ByVal "windows")
End If
End Function
'=====================================================================

Немного не то. Просто меняет defaul printer