Report.PrtMip-Eigenschaft (Access)

Artikel
04/07/2023

Verwenden Sie die PrtMip-Eigenschaft in Visual Basic, um die Gerätemodusinformationen festzulegen oder zurückzugeben, die für ein Formular oder einen Bericht im Dialogfeld Drucken angegeben sind.

Syntax

Ausdruck. PrtMip

Ausdruck Eine Variable, die ein Report-Objekt darstellt.

HinwBemerkungeneise

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.

Die PrtMip-Eigenschaft hat die folgenden Elemente.

Member	Beschreibung
LeftMargin, RightMargin, TopMargin, BottomMargin	Ein Long-Wert , der den Abstand zwischen dem Rand der Seite und dem element angibt, das in Twips gedruckt werden soll.
DataOnly	Ein Long-Wert , der die zu druckden Elemente angibt. Bei True werden nur die Daten in einer Tabelle oder Abfrage in der Datenblattansicht, einem Formular oder einem Bericht gedruckt und Beschriftungen, Steuerelementrahmen, Gitternetzlinien und Anzeigegrafiken wie Linien und Felder unterdrückt. Bei False werden Daten, Etiketten und Grafiken gedruckt.
ItemsAcross	Ein Long-Wert, der für mehrspaltige Berichte oder Etiketten die Anzahl der Spalten pro Seite angibt. Dieses Element ist identisch mit dem Wert des Felds Spaltenanzahl (im Dialogfeld Seite einrichten auf der Registerkarte Spalten unter Rastereinstellungen).
RowSpacing	Ein Long-Wert, der in Einheiten von 1/20 Punkt den horizontalen Abstand angibt, der zwischen zwei Detailabschnitten liegt.
ColumnSpacing	Ein Long-Wert, der in Twips den vertikalen Abstand angibt, der zwischen zwei Detailabschnitten liegt.
DefaultSize	Ein Long-Wert. Bei True wird die Größe des Detailabschnitts in der Entwurfsansicht verwendet. Bei False werden die werte verwendet, die durch die Elemente ItemSizeWidth und ItemSizeHeight angegeben werden.
ItemSizeWidth	Ein Long-Wert, der in Twips die Breite des Detailausschnitts angibt. Dieses Element ist identisch mit dem Wert des Felds Breite (im Dialogfeld Seite einrichten auf der Registerkarte Spalten unter Spaltengröße).
ItemSizeHeight	Ein Long-Wert , der die Höhe des Detailabschnitts in Twips angibt. Dieses Element ist identisch mit dem Wert des Felds Höhe (im Dialogfeld Seite einrichten auf der Registerkarte Spalten unter Spaltengröße).
ItemLayout	Ein Long-Wert , der ein horizontales (1953) oder vertikales (1954) Layout von Spalten angibt. Dieses Element entspricht "Quer", dann "Nach unten" oder "Nach unten" und dann auf der Registerkarte "Spalten" des Dialogfelds Seite einrichten unter Spaltenlayout.
FastPrint	Reserviert.
Datenblatt	Reserviert.

Die Einstellung der PrtMip-Eigenschaft kann in der Entwurfsansicht gelesen und geschrieben werden. In den anderen Ansichten ist sie schreibgeschützt.

Beispiel

Das folgende Beispiel zur PrtMip-Eigenschaft verdeutlicht, wie ein Bericht mit zwei horizontalen Spalten eingerichtet wird.

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.

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 Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Share via