共用方式為

(Access) 的 Report.PrtMip 屬性

  • 發行項

使用 Visual Basic 中的 PrtMip 屬性，即可在 [ 列印 ] 對話方塊中設定或傳回為表單或報表指定的裝置模式資訊。

語法

運算式。PrtMip

表達 代表 Report 物件的變數。

註解

PrtMip 屬性設定會對應至表單或報表中 [ 版面設定 ] 對話方塊的 [ 邊界 ] 索引標籤上的設定值的 28 位元組結構。

PrtMip 屬性有下列成員。

成員 描述
LeftMargin、RightMargin、TopMargin、BottomMargin Long，指定頁面邊緣與要以twip為單位列印之專案之間的距離。
DataOnly 指定列印元素的 Long 值。 如果 為 True，則只會在資料工作表檢視、表單或報表中列印資料表或查詢中的資料，並隱藏標籤、控制項框線、格線，以及顯示像是線條和方塊的圖形。 當為 False 時，則會列印資料、標籤及圖形。
ItemsAcross A Long that specifies the number of columns across for multiple-column reports or labels. This member is equivalent to the value of the Number of Columns box under Grid Settings on the Columns tab of the Page Setup dialog box.
RowSpacing 指定詳細資料區段間的水平空間的 Long 值，以點的 1/20 為單位。
ColumnSpacing 指定詳細資料區段間的垂直空間的 Long 值，以 Twip 為單位。
DefaultSize Long 值。 當為 True 時，會使用在設計檢視中詳細資料區段的大小。 當為 False 時，則使用 ItemSizeWidth 和 ItemSizeHeight 成員所指定的值。
ItemSizeWidth A Long that specifies the width of the detail section in twips. This member is equivalent to the value of the Width box under Column Size on the Columns tab of the Page Setup dialog box.
ItemSizeHeight Long，指定以 twip 為單位的詳細資料區段高度。 This member is equivalent to the value of the Height box under Column Size on the Columns tab of the Page Setup dialog box.
ItemLayout A Long that specifies horizontal (1953) or vertical (1954) layout of columns. This member is equivalent to Across, then Down or Down, then Across respectively under Column Layout on the Columns tab of the Page Setup dialog box.
FastPrint 保留。
Datasheet 保留。

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 支援與意見反應。