Report.PrtDevMode-Eigenschaft (Access)

Verwenden Sie die PrtDevMode-Eigenschaft , um informationen zum Druckgerätemodus festzulegen oder zurückzugeben, die für ein Formular oder einen Bericht im Dialogfeld Drucken angegeben sind. Variant mit Lese-/Schreibzugriff.

Syntax

Ausdruck. PrtDevMode

Ausdruck Eine Variable, die ein Report-Objekt darstellt.

Hinweise

Es wird dringend empfohlen, das Win32 Software Development Kit zu konsultieren, um eine vollständige Dokumentation zu den Eigenschaften PrtDevMode, PrtDevNames und PrtMip zu erhalten.

Die Einstellung der PrtDevModePrtDevMode-Eigenschaft ist eine 94 Bytes lange Struktur, die die Struktur DEVMODE spiegelt, die im Win32 Software Development Kit definiert ist. Vollständige Informationen zu den Elementen der PrtDevMode-Eigenschaft finden Sie im Win32 Software Development Kit.

Die PrtDevMode-Eigenschaft besteht aus den folgenden Elementen.

Member	Beschreibung
DeviceName	Eine Zeichenfolge mit maximal 32 Bytes, die den Namen des Geräts angibt, das vom Treiber unterstützt wird. Beispielsweise "HP LaserJet IIISi", wenn der Hewlett-Packard LaserJet IIISi der angegebene Drucker ist. Jeder Druckertreiber hat eine eindeutige Zeichenfolge.
SpecVersion	Ein Integer-Wert, der die Versionsnummer angibt, die die Struktur DEVMODE im Win32 Software Development Kit hat.
DriverVersion	Ein Integer-Wert, der die Versionsnummer des Druckertreibers angibt, die vom Entwickler des Druckertreibers zugewiesen wurde.
Größe	Ein Integer-Wert, der in Bytes die Größe der Struktur DEVMODE angibt. (Dieser Wert enthält nicht den optionalen dmDriverData-Member für gerätespezifische Daten, der dieser Struktur folgen kann.) Wenn eine Anwendung nur den treiberunabhängigen Teil der Daten bearbeitet, können Sie diesen Member verwenden, um die Länge dieser Struktur zu ermitteln, ohne unterschiedliche Versionen berücksichtigen zu müssen.
DriverExtra	Ein Integer-Wert, der in Bytes die Größe des optionalen Elements dmDriverData für gerätespezifische Daten angibt, das auf diese Struktur folgen kann. Verwendet eine Anwendung keine gerätespezifischen Informationen, stellen Sie dieses Element auf 0 ein.
Felder	Ein Long-Wert, der angibt, welche der restlichen Elemente der Struktur DEVMODE initialisiert wurden.
Orientierung	Eine ganze Zahl , die die Ausrichtung des Papiers angibt. Es kann entweder 1 (Hochformat) oder 2 (Querformat) sein.
PaperSize	Eine ganze Zahl , die das Papierformat angibt, auf dem gedruckt werden soll. Wenn Sie dieses Element auf 0 oder 256 festlegen, werden die Länge und Breite des Papiers durch die Elemente PaperLength bzw. PaperWidth angegeben. Andernfalls können Sie das PaperSize-Element auf einen vordefinierten Wert festlegen. Informationen zu den verfügbaren Werten finden Sie unter Den PaperSize-Memberwerten.
PaperLength	Eine ganze Zahl , die die Papierlänge in Einheiten von 1/10 eines Millimeters angibt. Dieses Element überschreibt die Papierlänge, die vom PaperSize-Element für benutzerdefinierte Papierformate oder für Geräte wie Punktmatrixdrucker angegeben wird, die auf einer Vielzahl von Papierformaten drucken können.
PaperWidth	Eine ganze Zahl , die die Papierbreite in Einheiten von 1/10 eines Millimeters angibt. Dieses Element überschreibt die vom PaperSize-Element angegebene Papierbreite.
Skalierung	Ein Integer-Wert, der den Faktor angibt, um den die gedruckte Ausgabe maßstäblich verkleinert oder vergrößert wird. Die scheinbare Seitengröße wird von der physischen Seitengröße um den Faktor " / 100" skaliert. Z.B. würde ein Stück Papier, das 210 x 297 mm (DIN A4) misst, bei einem Scale-Wert von 50 so viele Daten enthalten wie eine Seite, die 420 x 594 mm misst, da die Ausgabetexte und -grafiken mit der halben Originalhöhe und -breite gedruckt werden.
Kopien	Ein Integer-Wert, der die Anzahl von zu druckenden Kopien angibt, sofern der Drucker wiederholte Kopien unterstützt.
DefaultSource	Ein Integer-Wert, der den Standardschacht angibt, aus dem das Papier zugeführt wird. Verfügbare Werte finden Sie unter DefaultSource-Memberwerte.
PrintQuality	Ein Integer-Wert, der die Druckerauflösung angibt. Die Werte sind 4 (hoch), 3 (mittel), 2 (niedrig) und 1 (Entwurf).
Farbe	Eine ganze Zahl. Gibt für einen Farbdrucker an, ob die Ausgabe in Farbe gedruckt wird. Die Werte sind 1 (Farbe) und 2 (monochrom).
Duplex	Eine ganze Zahl. Für einen Drucker, der duplexdruckfähig ist, gibt an, ob die Ausgabe auf beiden Seiten des Papiers gedruckt wird. Die Werte sind 1 (simplex), 2 (horizontal) und 3 (vertikal).
YResolution	Eine ganze Zahl , die die y-Auflösung des Druckers in Dpi (Dots per Inch) angibt. Wenn der Drucker dieses Element initialisiert, gibt das PrintQuality-Element die x-Auflösung des Druckers in DPI an.
TTOption	Ein Integer-Wert, der angibt, wie TrueType-Schriftarten gedruckt werden. Verfügbare Werte finden Sie in den TTOption-Memberwerten.
Collate	Ein Integer-Wert, der angibt, ob mit Sortierung gearbeitet werden soll, wenn mehrere Kopien gedruckt werden. Unsortierte Kopien können schneller und effizienter gedruckt werden, da die Daten nur einmal zum Drucker gesendet werden.
FormName	Eine Zeichenfolge aus maximal 16 Zeichen, die die Größe des zu verwendenden Papiers angibt, z. B. "US-Letter" oder "A4".
Unterlage	Ein Long-Wert, der verwendet wird, um Lücken, Zeichen oder Werte für zukünftige Versionen aufzufüllen.
Bits	Ein Long-Wert, der die Farbauflösung des Anzeigegeräts in Bits pro Pixel angibt.
KRIEGSGEFANGENER	Ein Long-Wert, der die Breite der sichtbaren Geräteoberfläche (Bildschirm oder Drucker) in Pixeln angibt.
PH	Ein Long-Wert, der die Höhe der sichtbaren Geräteoberfläche (Bildschirm oder Drucker) in Pixeln angibt.
DFI	Ein Long-Wert, der den Anzeigemodus des Geräts angibt.
DFR	Ein Long-Wert, der für einen bestimmten Modus die Frequenz des Anzeigegeräts in Hertz (Bildwiederholungen pro Sekunde) angibt.

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

Es gibt Druckertreiber, die unmittelbar hinter der Struktur DEVMODE gerätespezifische Daten einfügen. Daher muss sichergestellt sein, dass die oben beschriebenen DEVMODE-Daten nicht mehr als 94 Bytes umfassen.

Die Struktur DEVMODE wird nur von Druckern verwendet, die die ExtDeviceMode-Funktion exportieren.

Aus einer Anwendung können die von einem Drucker unterstützten Papiergrößen und -bezeichnungen abgerufen werden, indem die Funktion DeviceCapabilitiesDeviceCapabilities mit den Werten DC_PAPERS, DC_PAPERSIZE und DC_PAPERNAMES aufgerufen wird.

Vor dem Festlegen des Werts des TTOption-Elements sollten Anwendungen herausfinden, wie ein Druckertreiber TrueType-Schriftarten mithilfe des DC_TRUETYPE Werts verwenden kann, um die DeviceCapabilities-Funktion aufzurufen.

Beispiel

Im folgenden Beispiel wird die PrtDevMode-Eigenschaft verwendet, um die benutzerdefinierte Seitengröße für einen Bericht zu überprüfen.

Private Type str_DEVMODE 
 RGB As String * 94 
End Type 
 
Private Type type_DEVMODE 
 strDeviceName As String * 32 
 intSpecVersion As Integer 
 intDriverVersion As Integer 
 intSize As Integer 
 intDriverExtra As Integer 
 lngFields As Long 
 intOrientation As Integer 
 intPaperSize As Integer 
 intPaperLength As Integer 
 intPaperWidth As Integer 
 intScale As Integer 
 intCopies As Integer 
 intDefaultSource As Integer 
 intPrintQuality As Integer 
 intColor As Integer 
 intDuplex As Integer 
 intResolution As Integer 
 intTTOption As Integer 
 intCollate As Integer 
 strFormName As String * 32 
 lngPad As Long 
 lngBits As Long 
 lngPW As Long 
 lngPH As Long 
 lngDFI As Long 
 lngDFr As Long 
End Type 
 
Public Sub CheckCustomPage(ByVal rptName As String) 
 
 Dim DevString As str_DEVMODE 
 Dim DM As type_DEVMODE 
 Dim strDevModeExtra As String 
 Dim rpt As Report 
 Dim intResponse As Integer 
 
 ' Opens report in Design view. 
 DoCmd.OpenReport rptName, acDesign 
 Set rpt = Reports(rptName) 
 
 If Not IsNull(rpt.PrtDevMode) Then 
 strDevModeExtra = rpt.PrtDevMode 
 
 ' Gets current DEVMODE structure. 
 DevString.RGB = strDevModeExtra 
 LSet DM = DevString 
 If DM.intPaperSize = 256 Then 
 
 ' Display user-defined size. 
 intResponse = MsgBox("The current custom page size is " & _ 
 DM.intPaperWidth / 254 & " inches wide by " & _ 
 DM.intPaperLength / 254 & " inches long. Do you want " & _ 
 "to change the settings?", vbYesNo + vbQuestion) 
 Else 
 ' Currently not user-defined. 
 intResponse = MsgBox("The report does not have a custom page size. " & _ 
 "Do you want to define one?", vbYesNo + vbQuestion) 
 End If 
 
 If intResponse = vbYes Then 
 ' User wants to change settings. Initialize fields. 
 DM.lngFields = DM.lngFields Or DM.intPaperSize Or _ 
 DM.intPaperLength Or DM.intPaperWidth 
 
 ' Set custom page. 
 DM.intPaperSize = 256 
 
 ' Prompt for length and width. 
 DM.intPaperLength = InputBox("Please enter page length in inches.") * 254 
 DM.intPaperWidth = InputBox("Please enter page width in inches.") * 254 
 
 ' Update property. 
 LSet DevString = DM 
 Mid(strDevModeExtra, 1, 94) = DevString.RGB 
 rpt.PrtDevMode = strDevModeExtra 
 End If 
 End If 
 
 Set rpt = Nothing 
 
End Sub

Das folgende Beispiel zeigt, wie die Ausrichtung eines Berichts geändert werden kann. In diesem Beispiel wird die Ausrichtung von Hochformat in Querformat oder von Querformat in Hochformat geändert (je nach momentaner Ausrichtung des Berichts).

Public Sub SwitchOrient(ByVal strName As String) 
 
 Const DM_PORTRAIT = 1 
 Const DM_LANDSCAPE = 2 
 Dim DevString As str_DEVMODE 
 Dim DM As type_DEVMODE 
 Dim strDevModeExtra As String 
 Dim rpt As Report 
 
 ' Opens report in Design view. 
 DoCmd.OpenReport strName, acDesign 
 Set rpt = Reports(strName) 
 
 If Not IsNull(rpt.PrtDevMode) Then 
 strDevModeExtra = rpt.PrtDevMode 
 DevString.RGB = strDevModeExtra 
 LSet DM = DevString 
 DM.lngFields = DM.lngFields Or DM.intOrientation 
 
 ' Initialize fields. 
 If DM.intOrientation = DM_PORTRAIT Then 
 DM.intOrientation = DM_LANDSCAPE 
 Else 
 DM.intOrientation = DM_PORTRAIT 
 End If 
 
 ' Update property. 
 LSet DevString = DM 
 Mid(strDevModeExtra, 1, 94) = DevString.RGB 
 rpt.PrtDevMode = strDevModeExtra 
 End If 
 
 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.