PrtDevMode 屬性

適用對象

Form 物件
Report 物件

您可以使用 PrtDevMode 屬性，設定或傳回 [列印] 對話方塊中指定之表單或報表的列印裝置模式資訊。讀/寫變數。

expression.PrtDevMode

運算式 必要。傳回 [套用至] 清單中其中一個對象的表達式。

備註

強烈建議您參閱 Win32 軟體開發套件，取得有關 PrtDevMode、PrtDevNames 和 PrtMip 屬性的完整說明文件。

PrtDevMode 屬性設定是 94 位元組結構，對應 Win32 軟體開發套件中定義的 DEVMODE 結構。如需有關 PrtDevMode 屬性成員的完整資訊，請參閱 Win32 軟體開發套件。

PrtDev Mode 屬性使用下列成員。

成員	描述
DeviceName	含有最多 32 位元組的字串，它會指定驅動程式支援的裝置名稱，例如 "HP LaserJet IIISi" (如果 Hewlett-Packard LaserJet IIISi 是指定的印表機)。每個印表機驅動程式都有唯一字串。
SpecVersion	指定 Win32 軟體開發套件中的 DEVMODE 結構版本號碼的整數。
DriverVersion	指定由印表機驅動程式開發人員所指派之印表機驅動程式版本號碼的整數。
Size	指定 DEVMODE 結構大小 (以位元組為單位) 的整數。 (此值不包含特定裝置資料的選用 dmDriverData 成員，它可以遵循此結構)。如果應用程式只操控資料的驅動程式獨立部分，您可以使用此成員了解此結構的長度，而不需要考慮不同的版本。
DriverExtra	指定特定裝置資料的選用 dmDriverData 成員的大小 (以位元組為單位) 之整數，它可以遵循此結構。如果應用程式不使用特定裝置資訊，您可以將此成員設定為 0。
Fields	指定 DEVMODE 結構中哪些剩餘成員已初始化的長數值。
Orientation	指定紙張方向的整數。它可以是 1 (直向) 或 2 (橫向)。
PaperSize	指定要用來列印之紙張大小的整數。如果您將此成員設定為 0 或 256，紙張的長度和寬度會分別由 PaperLength 和 PaperWidth 成員指定。否則，您可以將 PaperSize 成員設定為預先定義的值。
PaperLength	指定紙張長度 (以公釐的 1/10 為單位) 的整數。針對自訂紙張大小或可列印各種紙張大小的點陣印表機等裝置，此成員會覆寫 PaperSize 成員所指定的紙張長度。
PaperWidth	指定紙張寬度 (以公釐的 1/10 為單位) 的整數。此成員會覆寫 PaperSize 成員所指定的紙張寬度。
Scale	指定列印輸出縮放將根據之係數的整數。外觀頁面大小會從實體頁面大小根據 scale/100 的係數進行縮放。例如，具有 50 的 Scale 值而實際測量為 8.5 x 11 英吋 (Letter 大小) 的一張紙，會包含與實際測量為 17 x 22 英吋的紙張一樣多的資料，因為輸出文字和圖形會是其原始高度和寬度的一半。
Copies	指定列印複本數目的整數 (如果列印裝置支援多頁複本的話)。
DefaultSource	指定送紙之預設紙匣的整數。
PrintQuality	指定印表機解析度的整數。值為 –4 (高)、–3 (中)、–2 (低) 和 –1 (草稿)。
色彩	整數。針對彩色印表機，指定是否將輸出列印為彩色。值為 1 (彩色) 和 2 (單色)。
Duplex	整數。針對支援雙面列印的印表機，指定是否將輸出列印在紙張的正反兩面。值為 1 (單面)、2 (水平) 和 3 (垂直)。
YResolution	指定印表機之 Y 解析度 (以 DPI 為單位) 的整數。如果印表機初始化此成員，PrintQuality 成員會指定印表機的 X 解析度 (以 DPI 為單位)。
TTOption	指定將如何列印 TrueType 字型的整數。
Collate	指定列印多份複本時是否應使用自動分頁的整數。使用未自動分頁的複本可提供更快速、更有效率的輸出，因為資料只會傳送到印表機一次。
FormName	含有最多 16 個字元的字串，它指定要使用的紙張大小，例如 "Letter" 或 "Legal"。
Pad	用來為未來版本填滿空格、字元或值的長數值。
Bits	指定顯示裝置色彩解析度 (以每一像素位元數為單位) 的長數值。
PW	指定顯示裝置表面 (螢幕或印表機) 的寬度 (以像素為單位) 的長數值。
PH	指定顯示裝置表面 (螢幕或印表機) 的高度 (以像素為單位) 的長數值。
DFI	指定裝置的顯示模式的長數值。
DFR	指定特定模式下顯示裝置的頻率 (以赫茲 - 即每秒循環次數為單位) 的長數值。

附註: 您可以使用 Visual Basic for Applications (VBA) 程式碼來設定 PrtDevMode 屬性。

此屬性設定在 [設計檢視] 或 [版面配置檢視] 中是讀/寫狀態，而在其他檢視中則是唯讀狀態。

印表機驅動程式可以立即在 DEVMODE 結構的 94 位元組後面新增特定裝置資料。基於此原因，上述 DEVMODE 資料絕對不可超過 94 位元組。

只有匯出 ExtDeviceMode 函數的印表機驅動程式會使用 DEVMODE 結構。

應用程式可使用 DC_PAPERS、DC_PAPERSIZE 和 DC_PAPERNAMES 值來呼叫 DeviceCapabilities 函數，以擷取印表機支援的紙張大小和名稱。

設定 TTOption 成員的值之前，應用程式應該使用 DC_TRUETYPE 值來呼叫 DeviceCapabilities 函數，找出印表機驅動程式可以如何使用 TrueType 字型。

範例

下列範例使用 PrtDevMode 屬性檢查使用者定義的報表頁面大小：

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

下列範例顯示如何變更報表方向。此範例會根據報表目前的方向，將方向從直向切換為橫向或從橫向切換為直向。

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

適用對象

備註

範例

需要更多協助嗎?

想要其他選項嗎?

這項資訊有幫助嗎?

感謝您的意見反應!