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

Для чего это надо?
При переносе базы с одной машины на другую, отчеты при печати используют настройки по умолчанию для конкретной машины, а на всех они разные.
...
Рейтинг: 0 / 0
28.06.2004, 13:48:26
    #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
28.06.2004, 14:02:58
    #32579515
Rivkin Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Левый Правый колонтитул?
С этим можно голову сломать. Для чего?
В дизайне надо спасать отчеты со своей установкой принтера, тогда, если установка у клиента совпадант по размеру бумаги (большинство работают на А4) - нет никаких проблем. Для решения проблемы в противном случае, лучше , на мой взгляд, создать свой ToolBar, перетянуть в него все кнопки, связанные с печатью, в том числе, предварительный просмотр отчета с установкой принтера. Акс запомнит эти установки для конкретного отчета. Если не будет запоминать, можно на закрытии отчета дать соотв. команду.
...
Рейтинг: 0 / 0
28.06.2004, 15:11:58
    #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
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Левый Правый колонтитул? / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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