powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Левый Правый колонтитул?
6 сообщений из 6, страница 1 из 1
Левый Правый колонтитул?
    #32579414
BadBad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В отчете надо программно заказать колонтитулы(поля) страницы левый, правый, верхний нижний, порыл хелп не нашел...
Как к ним обратиться и изменить?
...
Рейтинг: 0 / 0
Левый Правый колонтитул?
    #32579434
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BadBadВ отчете надо программно заказать колонтитулы(поля) страницы левый, правый, верхний нижний, порыл хелп не нашел...
Как к ним обратиться и изменить?
1 колонтитулы исключительно верхний и нижний
левый - не встречал
2 программно заказать - что имелось в виду /термин не ясен.
...
Рейтинг: 0 / 0
Левый Правый колонтитул?
    #32579451
BadBad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Может я неправильно выразился, но имеется ввиду параметры страницы на которой выводится отчет, поле верхнее, нижние, левое, правое
Надо изменить их из VB, то есть заранее установить фиксированно

Для чего это надо?
При переносе базы с одной машины на другую, отчеты при печати используют настройки по умолчанию для конкретной машины, а на всех они разные.
...
Рейтинг: 0 / 0
Левый Правый колонтитул?
    #32579476
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Access97
Margin- поле(англ.)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
С помощью свойства PrtMip в программах Visual Basic задаются или возвращаются настройки режима
драйвера принтера, указанного для формы или отчета в диалоговом окне Печать.

Значения

Значения свойства PrtMip образуют структуру длиной  28  байт, которая соответствует настройкам на
вкладке Поля, заданным для формы или отчета в диалоговом окне Параметры страницы.
Свойство PrtMip имеет следующие компоненты.

Компонент	Описание
LeftMargin, RightMargin, TopMargin, BottomMargin	Значения типа Integer, указывающие поля -
расстояния в твипах между краями страницы и печатающимся объектом.
...
Рейтинг: 0 / 0
Левый Правый колонтитул?
    #32579515
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
С этим можно голову сломать. Для чего?
В дизайне надо спасать отчеты со своей установкой принтера, тогда, если установка у клиента совпадант по размеру бумаги (большинство работают на А4) - нет никаких проблем. Для решения проблемы в противном случае, лучше , на мой взгляд, создать свой ToolBar, перетянуть в него все кнопки, связанные с печатью, в том числе, предварительный просмотр отчета с установкой принтера. Акс запомнит эти установки для конкретного отчета. Если не будет запоминать, можно на закрытии отчета дать соотв. команду.
...
Рейтинг: 0 / 0
Левый Правый колонтитул?
    #32579660
BadBad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Нашел!!!!!!!! Спасибо Shuhard

Вот ответ:
Private Type str_PRTMIP
strRGB As String * 28
End Type

Private Type type_PRTMIP
xLeftMargin As Long
yTopMargin As Long
xRightMargin As Long
yBotMargin As Long
fDataOnly As Long
xWidth As Long
yHeight As Long
fDefaultSize As Long
cxColumns As Long
yColumnSpacing As Long
xRowSpacing As Long
rItemLayout As Long
fFastPrint As Long
fDatasheet As Long
End Type

Public Sub SetMarginsToDefault(ByVal strName As String)

Dim PrtMipString As str_PRTMIP
Dim PM As type_PRTMIP
Dim rpt As Report

' Open the report.
DoCmd.OpenReport strName, acDesign
Set rpt = Reports(strName)
PrtMipString.strRGB = rpt.PrtMip
LSet PM = PrtMipString

' Set margins.
PM.xLeftMargin = 1 * 1440
PM.yTopMargin = 1 * 1440
PM.xRightMargin = 1 * 1440
PM.yBotMargin = 1 * 1440

' Update property.
LSet PrtMipString = PM
rpt.PrtMip = PrtMipString.strRGB

Set rpt = Nothing

End Sub

Взял из акцесса, нашел по слову PrtMip
Может кому пригодится, из басика можно с отчетом творить все что угодно!!!
Там еще один пример есть (в хелпе) как колонками управлять...

Оказывается есть почти все, надо только знать где искать
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Левый Правый колонтитул?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]