Свойство Report.PrtMip (Access)

Статья
04/07/2023

Используйте свойство PrtMip в Visual Basic, чтобы задать или вернуть сведения о режиме устройства, указанные для формы или отчета в диалоговом окне Печать .

Синтаксис

expression. PrtMip

Выражение Переменная, представляющая объект Report .

Замечания

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

Свойство PrtMip содержит следующие элементы.

Member	Описание
LeftMargin, RightMargin, TopMargin, BottomMargin	Значение типа Long, указывающее расстояние между краем страницы и элементом, который будет печататься в виде твипов.
DataOnly	Значение Типа Long, указывающее элементы для печати. При значении True печатает только данные в таблице или запросе в режиме таблицы, форме или отчете, а также подавляет метки, управляющие границы, линии сетки и графические элементы, такие как линии и поля. При значении False печатает данные, метки и графику.
ItemsAcross	Значение Типа Long, указывающее количество столбцов для отчетов или меток с несколькими столбцами. Этот элемент эквивалентен значению поля Число столбцов в разделе Параметры сетки на вкладке Столбцы диалогового окна Настройка страницы .
RowSpacing	Значение Типа Long, указывающее горизонтальное пространство между разделами сведений в единицах в 1/20 точки.
ColumnSpacing	Объект Long, указывающий вертикальное пространство между разделами сведений в твипах.
DefaultSize	Длинный. Если задано значение True, используется размер раздела сведений в режиме конструктора. Если задано значение False, использует значения, заданные элементами ItemSizeWidth и ItemSizeHeight.
ItemSizeWidth	Значение Типа Long, указывающее ширину раздела сведений в твипах. Этот элемент эквивалентен значению поля Ширина в разделе Размер столбца на вкладке Столбцы диалогового окна Настройка страницы .
ItemSizeHeight	Значение Типа Long, указывающее высоту раздела сведений в твипах. Этот элемент эквивалентен значению поля Высота в разделе Размер столбца на вкладке Столбцы диалогового окна Настройка страницы .
ItemLayout	Значение Типа Long, указывающее горизонтальное (1953) или вертикальное (1954) расположение столбцов. Этот элемент эквивалентен параметру Поперек, Затем Вниз или Вниз, а затем Поперек соответственно в разделе Макет столбца на вкладке Столбцы диалогового окна Настройка страницы .
FastPrint	Защищены.
Спецификация	Защищены.

Параметр свойства PrtMip предназначен для чтения и записи в режиме конструктора и только для чтения в других представлениях.

Пример

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

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 PrtMipCols(ByVal strName As String) 
 
 Dim PrtMipString As str_PRTMIP 
 Dim PM As type_PRTMIP 
 Dim rpt As Report 
 Const PM_HORIZONTALCOLS = 1953 
 Const PM_VERTICALCOLS = 1954 
 
 ' Open the report. 
 DoCmd.OpenReport strName, acDesign 
 Set rpt = Reports(strName) 
 PrtMipString.strRGB = rpt.PrtMip 
 LSet PM = PrtMipString 
 
 ' Create two columns. 
 PM.cxColumns = 2 
 
 ' Set 0.25 inch between rows. 
 PM.xRowSpacing = 0.25 * 1440 
 
 ' Set 0.5 inch between columns. 
 PM.yColumnSpacing = 0.5 * 1440 
 PM.rItemLayout = PM_HORIZONTALCOLS 
 
 ' Update property. 
 LSet PrtMipString = PM 
 rpt.PrtMip = PrtMipString.strRGB 
 
 Set rpt = Nothing 
 
End Sub

В следующем примере свойства PrtMip показано, как задать для всех полей значение 1 дюйм.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Share via