» Главная
eXcode.ru » Статьи » Базы данных
» Новости
» Опросы
» Файлы
» Журнал



Пользователей: 0
Гостей: 27



Aqua линзы

Об очках и контактных линзах. Доставка контактных линз

glavlinza.ru




Программная установка (изменение) связей таблиц




Автор: Dmitry Shakhov

Возможность изменять ориентацию, формат, принтер.

′Создайте отчет с именем "TestRep"
′Выполните следующий код в модуле Access:


Private Sub ReportSetup()
Dim prtFirst As Printer
Dim prtLoop As Printer
Dim s As String
Dim i As Long
′Подготавливаем список принтеров
For Each prtLoop In Application.Printers
With prtLoop
s = s & i & "-" & .DeviceName & "/" & "Driver name: " & .DriverName & " Port: " & .Port & VBA.vbCrLf
End With
i = i + 1
Next prtLoop

′Открываем отчет в режиме конструктора, в скрытом режиме
DoCmd.OpenReport "TestRep", acViewDesign, , , acHidden
′Предлагаем выбрать принтер из подготовленного выше списка
i = InputBox(s, "Введите номер принтера", 0)
′Настраиваем отчет на работу с выбранным принтером
Reports("TestRep").Printer = Application.Printers(i)
Set prtFirst = Reports("TestRep").Printer

′ Раскомментируйте свойства принтера, значения которых хотите изменить программно
With prtFirst
′ .TopMargin = 1440
′ .BottomMargin = 1440
′ .LeftMargin = 1440
′ .RightMargin = 1440

′ .ColumnSpacing = 360
′ .RowSpacing = 360

′ .ColorMode = acPRCMColor
′ .DataOnly = False
′ .DefaultSize = False
′ .ItemSizeHeight = 2880
′ .ItemSizeWidth = 2880
′ .ItemLayout = acPRVerticalColumnLayout
′ .ItemsAcross = 6

′ .Copies = 1
′для примера меняем ориентацию отчета
If MsgBox("Выберите ориентацию, ДА - книжная , Нет - альбомная", vbYesNo) = vbYes Then
.Orientation = acPRORPortrait
Else
.Orientation = acPRORLandscape
End If
′ .Duplex = acPRDPVertical
′ .PaperBin = acPRBNAuto
′ .PaperSize = acPRPSA4 ′ acPRPSLetter
′ .PrintQuality = acPRPQDraft ′ acPRPQMedium
End With
′Закрываем отчет, сохраняя сделанные изменения
DoCmd.Close acReport, "TestRep", acSaveYes
′Открываем отчет в режиме просмотра
DoCmd.OpenReport "TestRep", acViewPreview
End Sub
К началу статьи





Добавил: LedWormДата публикации: 2005-07-16 20:23:22
Рейтинг статьи:2.70 [Голосов 10]Кол-во просмотров: 16902

Комментарии читателей

Всего комментариев: 0
Ваше имя: *
Текст записи: *
Имя:

Пароль:



Регистрация

Какой марки ваш мобильник?
Nokia
40% (146)
Samsung
8% (29)
Siemens
16% (59)
Motorola
13% (49)
Sony Ericsson
13% (49)
LG
1% (4)
Pantech
0% (0)
Alcatel
2% (6)
Другой
3% (10)
Нет у меня мобилы
4% (15)

Проголосовало: 367
Сели в машину, компьютерщик, новый русский и слесарь. Заводят - не заводится. Слесарь говорит:
- Сейчас я гляну, что случилось, все сделаю - и поедем.
Новый русский говорит:
- Сиди, я сейчас по сотовому позвоню, приедет бригада мастеров и все быстро сделает.
А компьютерщик говорит:
- Может, все выйдем из машины и снова зайдём?
Рейтинг: 6/10 (5)
Посмотреть все анекдоты