PrtDevMode-Eigenschaft

Gilt für

Form-Objekt

Report-Objekt

Sie können die Eigenschaft PrtDevMode verwenden, um die für ein Formular oder einen Bericht im Dialogfeld Drucken angegebenen Informationen zum Modus des Druckgeräts festzulegen oder zurückzugeben. Lesen/Schreiben Variant.

Ausdruck.PrtDevMode

Ausdruck Erforderlich. Ein Ausdruck, der eines der Objekte in der Liste "Gilt für" zurückgibt.

Hinweise

Es wird dringend empfohlen, das Win32 Software Development Kit hinsichtlich der vollständigen Dokumentation der Eigenschaften PrtDevMode, PrtDevNames und PrtMip zu Rate zu ziehen.

Die PrtDevMode-Eigenschaftseinstellung ist eine 94-Byte-Struktur, die die im Win32 Software Development Kit definierte DEVMODE-Struktur widerspiegelt. Vollständige Informationen zu den Elementen der PrtDevMode-Eigenschaft finden Sie im Win32 Software Development Kit.

Die PrtDevMode-Eigenschaft verwendet die folgenden Elemente.

Element

Beschreibung

Gerätename

Eine Zeichenfolge mit einer maximalen Größe von 32 Byte, die den Namen des Geräts angibt, das vom Treiber unterstützt wird – z. B. "HP LaserJet IIISi", wenn es sich bei dem angegebenen Drucker um einen Hewlett-Packard LaserJet IIISi handelt. Jeder Druckertreiber weist eine eindeutige Zeichenfolge auf.

SpecVersion

Eine ganze Zahl, die die Versionsnummer der DEVMODE-Struktur im Win32 Software Development Kit angibt.

DriverVersion

Eine ganze Zahl, die die vom Entwickler des Druckertreibers zugewiesene Versionsnummer des Druckertreibers angibt.

Size

Eine ganze Zahl, die die Größe der DEVMODE-Struktur in Byte angibt. (Dieser Wert enthält nicht das optionale DmDriverData-Element für gerätespezifische Daten, das auf diese Struktur folgen kann.) Wenn eine Anwendung nur den treiberunabhängigen Anteil der Daten verändert, können Sie dieses Element verwenden, um die Länge dieser Struktur zu ermitteln, ohne die verschiedenen Versionen berücksichtigen zu müssen.

DriverExtra

Eine ganze Zahl, die die Größe in Byte des optionalen dmDriverData-Elements für gerätespezifische Daten angibt, das auf diese Struktur folgen kann. Wenn eine Anwendung keine gerätespezifischen Informationen verwendet, legen Sie dieses Element auf 0 fest.

Fields

Ein Long-Wert, der angibt, welche der verbleibenden Elemente der DEVMODE-Struktur initialisiert wurden.

Orientation

Eine ganze Zahl, die die Ausrichtung des Papiers angibt. Sie kann entweder 1 (Hochformat) oder 2 (Querformat) sein.

PaperSize

Eine ganze Zahl, die das Format des Papiers angibt, auf dem gedruckt werden soll. Wenn Sie dieses Element auf 0 oder 256 festlegen, werden Länge und Breite des Papiers durch die Elemente PaperLength bzw. PaperWidth angegeben. Andernfalls können Sie das Element "PaperSize" auf einen vordefinierten Wert festlegen.

PaperLength

Eine ganze Zahl, die die Papierlänge in Einheiten von 1/10-Millimeter angibt. Dieses Element hat Vorrang vor der Papierlänge, die durch das Element "PaperSize" für benutzerdefinierte Papierformate oder für Geräte wie Punktmatrixdrucker, die auf einer Vielzahl von Papierformaten drucken können, angegeben wird.

PaperWidth

Eine ganze Zahl, die die Papierbreite in Einheiten von 1/10-Millimeter angibt. Dieses Element hat Vorrang vor der Papierbreite, die vom Element "PaperSize" angegeben wird.

Scale

Eine ganze Zahl, die den Faktor angibt, um den die Druckausgabe skaliert werden soll. Die dargestellte Seitengröße wird ausgehend von der physischen Papiergröße um einen Faktor von Maßstab/100 skaliert. Beispielsweise würde ein Stück Papier mit den Abmessungen 8,5" x 11" (21,59 x 27,94 cm, US-Letter) mit einem Scale-Wert von 50 ebenso viel Daten enthalten wie eine Seite mit den Maßen 17" x 22" (43,18 x 55,88 cm), da der ausgegebene Text und die Grafiken die halbe Originalgröße und -breite aufweisen würden.

Copies

Eine ganze Zahl, die die Anzahl der gedruckten Exemplare angibt, falls das Druckgerät mehrseitige Exemplare unterstützt.

DefaultSource

Eine ganze Zahl, die den Standardschacht angibt, aus dem das Papier zugeführt wird.

PrintQuality

Eine ganze Zahl, die die Druckauflösung angibt. Die Werte sind –4 (hoch), –3 (mittel), –2 (gering) und –1 (Entwurf).

Color

Eine ganze Zahl. Gibt bei einem Farbdrucker an, ob die Ausgabe farbig gedruckt wird. Die Werte sind 1 (Farbe) und 2 (Monochrom).

Duplex

Eine ganze Zahl. Gibt bei Druckern mit Duplexdruck 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 Element "PrintQuality" die X-Auflösung des Druckers in dpi an.

TTOption

Eine ganze Zahl, die angibt, wie TrueType-Schriftarten gedruckt werden sollen.

Collate

Eine ganze Zahl, die angibt, ob beim Drucken mehrerer Exemplare sortiert gedruckt werden soll. Die Verwendung von nicht sortierten Exemplaren bietet die schnellere, effizientere Ausgabe, da die Daten nur einmal an den Drucker gesendet werden.

FormName

Eine Zeichenfolge mit einer maximalen Länge von 16 Zeichen, die das Format des zu verwendenden Papiers angibt, z. B. "Letter" oder "A4".

Pad

Ein Long-Wert, der zum Auffüllen von Leerzeichen, Zeichen oder Werten für zukünftige Versionen dient.

Bits

Ein Long-Wert, der die Farbauflösung des Anzeigegeräts in Bit pro Pixel angibt.

PW

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 die Frequenz in Hertz (Schwingungen/s) des Anzeigegeräts in einem bestimmten Modus angibt.


Hinweis : Die PrtDevMode-Eigenschaft kann mithilfe von VBA-Code (Visual Basic for Applications) festgelegt werden.

Diese Eigenschaft hat Lese- und Schreibzugriff in der Entwurfsansicht und der Layoutansicht und ist in anderen Ansichten schreibgeschützt.

Druckertreiber können gerätespezifische Daten unmittelbar im Anschluss an die 94 Bytes der DEVMODE-Struktur hinzufügen. Aus diesem Grund ist es wichtig, dass die oben beschriebenen DEVMODE-Daten 94 Byte nicht überschreiten.

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

Eine Anwendung kann die von einem Drucker unterstützten Papierformate und deren Namen mithilfe der Werte DC_PAPERS, DC_PAPERSIZE und DC_PAPERNAMES beim Aufrufen der Funktion DeviceCapabilities abrufen.

Vor dem Festlegen des Werts für das TTOption-Element sollten die Anwendungen ermitteln, wie ein Druckertreiber TrueType-Schriftarten verwenden kann, indem sie die Funktion DeviceCapabilities mit dem Wert DC_TRUETYPE aufrufen.

Beispiel

Im folgenden Beispiel wird die Eigenschaft PrtDevMode 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 die Änderung der Ausrichtung des Berichts. Im Beispiel wird die Ausrichtung aus dem Hochformat in das Querformat oder aus dem Querformat in das Hochformat geändert, je nach der aktuellen 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
Ihre Fähigkeiten erweitern
Schulung erkunden
Neue Funktionen als Erster erhalten
An Office Insider teilnehmen

War diese Information hilfreich?

Vielen Dank für Ihr Feedback!

Vielen Dank für Ihr Feedback. Es klingt, als ob es hilfreich sein könnte, Sie mit einem unserer Office-Supportmitarbeiter zu verbinden.

×