Report.PrtMip プロパティ (Access)
[印刷] ダイアログ ボックスでフォームまたはレポートに指定されたデバイス モード情報を設定または返すには、Visual Basic の PrtMip プロパティを使用します。
構文
式。PrtMip
式Report オブジェクトを表す変数。
注釈
PrtMip プロパティの設定値は 28 バイトの構造体で、[ページ設定] ダイアログ ボックスのフォームまたはレポートに対する [余白] タブでの設定値へのマップです。
PrtMip プロパティのメンバーは次のとおりです。
| メンバー | 説明 |
|---|---|
| LeftMargin、RightMargin、TopMargin、BottomMargin | ページの端と twip で印刷するアイテムの間の距離を指定する長整数型 (Long) の値です。 |
| 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 | 詳細セクション間の水平方向のスペースを 1/20 ポイント単位で指定する長整数型 ( Long ) の値です。 |
| ColumnSpacing | 詳細セクション間の垂直方向のスペースを twip 単位で指定する長整数型 ( Long ) の値です。 |
| 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 | 詳細セクションの高さを twip 単位で指定する長整数型 ( Long ) です。 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 プロパティの使用例では、横に並ぶ 2 つの列があるレポートを設定する方法を示します。
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 のサポートおよびフィードバックを参照してください。