Report. PrtMip-Eigenschaft (Access)Report.PrtMip property (Access)

Sie können die PrtMip-Eigenschaft in Visual Basic verwenden, um die Informationen zum Gerätemodus festzulegen oder zurückzugeben, die für ein Formular oder für einen Bericht im Dialogfeld Drucken angegeben sind.You can use the PrtMip property in Visual Basic to set or return the device mode information specified for a form or report in the Print dialog box.

SyntaxSyntax

Ausdruck. PrtMipexpression.PrtMip

Ausdruck Eine Variable, die ein Report -Objekt darstellt.expression A variable that represents a Report object.

BemerkungenRemarks

Die Einstellung der PrtMip-Eigenschaft ist eine 28 Bytes lange Struktur, die Einstellungen enthält, die im Dialogfeld Seite einrichten auf der Registerkarte Ränder für ein Formular oder für einen Bericht gelten.The PrtMip property setting is a 28-byte structure that maps to settings on the Margins tab for a form or report in the Page Setup dialog box.

Die PrtMip-Eigenschaft hat die folgenden Elemente.The PrtMip property has the following members.

MemberMember BeschreibungDescription
LeftMargin, RightMargin, oberRand, BottomMarginLeftMargin, RightMargin, TopMargin, BottomMargin Ein Long -Wert, der den Abstand zwischen dem Rand der Seite und dem Element angibt, das in Twipsgedruckt werden soll.A Long that specifies the distance between the edge of the page and the item to be printed in twips.
DataOnlyDataOnly Ein Long -Wert, der die zu druckenden Elemente angibt.A Long that specifies the elements to be printed. Wenn true, druckt nur die Daten in einer Tabelle oder Abfrage in der Datenblattansicht, einem Formular oder einem Bericht, und unterdrückt Beschriftungen, Steuerelemente, Rasterlinien und Grafiken wie Linien und Felder anzeigen.When True, prints only the data in a table or query in Datasheet view, a form, or a report, and suppresses labels, control borders, grid lines, and display graphics such as lines and boxes. Wenn false, druckt Daten, Beschriftungen und Grafiken.When False, prints data, labels, and graphics.
ItemsAcrossItemsAcross Ein Long-Wert, der für mehrspaltige Berichte oder Etiketten die Anzahl der Spalten pro Seite angibt.A Long that specifies the number of columns across for multiple-column reports or labels. Dieses Element ist identisch mit dem Wert des Felds Spaltenanzahl (im Dialogfeld Seite einrichten auf der Registerkarte Spalten unter Rastereinstellungen).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.
RowSpacingRowSpacing Ein Long-Wert, der in Einheiten von 1/20 Punkt den horizontalen Abstand angibt, der zwischen zwei Detailabschnitten liegt.A Long that specifies the horizontal space between detail sections in units of 1/20 of a point.
ColumnSpacingColumnSpacing Ein Long-Wert, der in Twips den vertikalen Abstand angibt, der zwischen zwei Detailabschnitten liegt.A Long that specifies the vertical space between detail sections in twips.
DefaultSizeDefaultSize Ein Long-Wert.A Long. Bei truewird die Größe des Detailabschnitts in der Entwurfsansicht verwendet.When True, uses the size of the detail section in Design view. Bei falsewerden die von den ItemSizeWidth-und ItemSizeHeight-Elementen angegebenen Werte verwendet.When False, uses the values specified by the ItemSizeWidth and ItemSizeHeight members.
ItemSizeWidthItemSizeWidth Ein Long-Wert, der in Twips die Breite des Detailausschnitts angibt.A Long that specifies the width of the detail section in twips. Dieses Element ist identisch mit dem Wert des Felds Breite (im Dialogfeld Seite einrichten auf der Registerkarte Spalten unter Spaltengröße).This member is equivalent to the value of the Width box under Column Size on the Columns tab of the Page Setup dialog box.
ItemSizeHeightItemSizeHeight Ein Long -Wert, der die Höhe des Detailabschnitts in Twips angibt.A Long that specifies the height of the detail section in twips. Dieses Element ist identisch mit dem Wert des Felds Höhe (im Dialogfeld Seite einrichten auf der Registerkarte Spalten unter Spaltengröße).This member is equivalent to the value of the Height box under Column Size on the Columns tab of the Page Setup dialog box.
ItemLayoutItemLayout Ein Long -Wert, der das horizontale (1953) oder vertikale (1954) Layout von Spalten angibt.A Long that specifies horizontal (1953) or vertical (1954) layout of columns. Dieses Element entspricht Across, then Down oder Down, dann Across beziehungsweise unter Spalten Layout auf der Registerkarte Spalten des Dialogfelds Seite einrichten .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.
FastPrintFastPrint Reserviert.Reserved.
DatenblattDatasheet Reserviert.Reserved.

Die Einstellung der PrtMip-Eigenschaft kann in der Entwurfsansicht gelesen und geschrieben werden. In den anderen Ansichten ist sie schreibgeschützt.The PrtMip property setting is read/write in Design view and read-only in other views.

BeispielExample

Das folgende Beispiel zur PrtMip-Eigenschaft verdeutlicht, wie ein Bericht mit zwei horizontalen Spalten eingerichtet wird.The following PrtMip property example demonstrates how to set up the report with two horizontal columns.

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

Das nächste Beispiel zur PrtMip-Eigenschaft zeigt, wie alle Ränder auf 1 Zoll festgelegt werden können.The next PrtMip property example shows how to set all margins to 1 inch.

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

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.