(495) 925-0049, ITShop интернет-магазин 229-0436, Учебный Центр 925-0049
  Главная страница Карта сайта Контакты
Поиск
Вход
Регистрация
Рассылки сайта
 
 
 
 
 

Программное управление отчетом

'Создайте отчет с именем "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

Ссылки по теме


 Распечатать »
 Правила публикации »
  Написать редактору 
 Рекомендовать » Дата публикации: 21.11.2007 
 

Магазин программного обеспечения   WWW.ITSHOP.RU
Microsoft Office для дома и учебы 2019 (лицензия ESD)
Microsoft Office 365 Профессиональный Плюс. Подписка на 1 рабочее место на 1 год
Microsoft Windows Professional 10, Электронный ключ
Microsoft 365 Apps for business (corporate)
Microsoft Office 365 Бизнес. Подписка на 1 рабочее место на 1 год
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Безопасность компьютерных сетей и защита информации
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование на Microsoft Access
CASE-технологии
Краткие описания программ и ссылки на них
Windows и Office: новости и советы
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
 



    
rambler's top100 Rambler's Top100