Возможность изменять ориентацию, формат, принтер. |
'Создайте отчет с именем "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 |
Страницы
Ярлыки
1С
(16)
1С 8.3
(1)
2GIS
(1)
автоактивация
(3)
Активация
(3)
Андроид
(113)
Антивирус
(2)
Аудио
(2)
биоритмы
(1)
Блок питания
(22)
боль в спине
(1)
браузер
(2)
бросить курить
(1)
буквы соответствие
(1)
бумажник
(1)
бюджетирование
(1)
ВАЗ 2110
(1)
вацап
(1)
видеонаблюдение
(8)
Видеосвязь
(1)
гаджет
(1)
Галстук
(1)
геокоординаты
(1)
дача
(1)
для дома
(1)
дом
(2)
драйвера
(6)
Дубликаты
(1)
еда
(1)
запись
(1)
Зарядка акб
(1)
Зарядное устройство
(1)
звук
(4)
здоровье
(8)
знаки зодиака
(1)
зрение
(1)
игнтернет
(1)
иероглифы
(1)
Изделия из дерева
(1)
Интернет
(10)
Интернет-магазины
(3)
Кино
(1)
ключница
(1)
Книги Журналы
(1)
кожаная обувь
(4)
командная строка
(1)
конвертор
(1)
кошелек
(1)
кресло-качалка
(1)
кухня
(2)
Лекарства
(1)
логика
(1)
макрос
(1)
медицина
(1)
мозги
(1)
морщины
(2)
мтс
(1)
музыка
(9)
мультики
(1)
Мыльные_пузыри
(1)
Натуральная кожа
(56)
Облако
(1)
омск
(1)
Он Лаин библиотеки
(1)
органайзер
(1)
оригами
(1)
Отбеливание
(1)
отслеживание посылок
(1)
Папка
(1)
Пароли
(2)
пароль
(3)
партмоне
(1)
парфюм
(1)
переименование файлов
(1)
питание
(1)
Планшет
(5)
поза сна
(1)
поздравление
(1)
поиск
(1)
поиск дублей
(1)
поисковик
(1)
Полезные сайты
(1)
портабле
(2)
принтер
(4)
Программы
(58)
простуда
(1)
расширения
(1)
редактор музыкальных файлов
(1)
Русский язык
(1)
рут
(2)
сеть
(8)
Скрыть информацию
(1)
Стиль
(1)
стихи
(2)
сумка
(1)
суставы
(3)
теги
(1)
трек-номер
(1)
тренинг
(1)
тренинг памяти
(1)
удаленный доступ
(2)
узлы
(1)
УНЧ
(3)
Управление компьютером
(2)
Управленческий учет
(2)
Успокоительные средства
(1)
фильмы
(2)
Флешка
(53)
фото
(2)
цвета в одежде
(1)
цена
(1)
экран не гаснет
(1)
эл почта
(2)
Ютуб
(1)
Access
(10)
Acronis True Image WD Edition
(1)
AliExpress
(1)
ALT-коды
(1)
audi
(1)
Avira Antivirus
(1)
bat
(2)
BIOS
(4)
chrom
(15)
Chrome
(2)
Cube iPlay 10 U83
(1)
Dism++
(2)
epson 1260
(1)
ERD Commander
(1)
Excel
(42)
Faceter
(1)
Firefox
(1)
GHOST32
(4)
gif анимация
(1)
Google
(1)
Google Hrome
(1)
Google Play
(1)
Grub4Dos
(7)
HDD
(1)
Honor
(1)
HP USB Disk Storage Tool
(1)
IPTV
(1)
KPI
(1)
Linux
(16)
NirCmd
(1)
office
(4)
PDF
(1)
Pinterest
(1)
portable
(2)
Prestigio3502
(1)
Rufus
(2)
SSD
(1)
torrent
(1)
UEFI
(1)
VBA
(42)
WEB ресурсы
(2)
WiFi
(2)
Windows
(77)
Windows 10
(5)
Windows 11
(2)
Windows 7
(24)
YouTube
(15)
понедельник, 10 марта 2014 г.
Access. Программное управление отчетом
Химия и инструмент для натуральной кожи
Большой выбор и качество
1. stores.ebay.com
2. zadi.ru
3. tandyleatherfactory.com
4. stecksstore.com
5. zelikovitz.com
1. stores.ebay.com
2. zadi.ru
3. tandyleatherfactory.com
4. stecksstore.com
5. zelikovitz.com
Подписаться на:
Сообщения (Atom)