คุณสมบัติ PrtDevMode

นำไปใช้กับ

วัตถุ Form
วัตถุ Report

คุณสามารถใช้คุณสมบัติ PrtDevMode เพื่อตั้งค่าหรือส่งกลับข้อมูลโหมดอุปกรณ์การพิมพ์ที่ระบุสําหรับฟอร์มหรือรายงานในกล่องโต้ตอบ พิมพ์ อ่าน/เขียน ตัวแปร

นิพจน์.PrtDevMode

นิพจน์ จำเป็น นิพจน์ที่ส่งกลับวัตถุใดวัตถุหนึ่งในรายการ นําไปใช้กับ

ข้อสังเกต

เราขอแนะนำให้คุณดูชุดพัฒนาซอฟต์แวร์ Win32 สำหรับเอกสารที่สมบูรณ์เกี่ยวกับคุณสมบัติ PrtDevMode, PrtDevNames และ PrtMip

การตั้งค่าคุณสมบัติ PrtDevMode เป็นโครงสร้าง 94 ไบต์ที่สะท้อนโครงสร้าง DEVMODE ที่กําหนดในชุดพัฒนาซอฟต์แวร์ Win32 สําหรับข้อมูลที่สมบูรณ์เกี่ยวกับสมาชิกคุณสมบัติ PrtDevMode โปรดดูชุดพัฒนาซอฟต์แวร์ Win32

คุณสมบัติ PrtDevMode จะใช้รายการต่อไปนี้

รายการ	คำอธิบาย
DeviceName	สตริง สูงสุด 32 ไบต์ที่ระบุชื่อของอุปกรณ์ที่โปรแกรมควบคุมสนับสนุน ตัวอย่างเช่น "HP LaserJet IIISi" ถ้า Hewlett-Packard LaserJet IIISi เป็นเครื่องพิมพ์ที่ระบุ โปรแกรมควบคุมเครื่องพิมพ์แต่ละตัวมีสตริงที่ไม่ซ้ํากัน
SpecVersion	จำนวนเต็มที่ระบุหมายเลขเวอร์ชันของโครงสร้าง DEVMODE ในชุดพัฒนาซอฟต์แวร์ Win32
DriverVersion	จำนวนเต็ม ที่ระบุหมายเลขเวอร์ชันของโปรแกรมควบคุมเครื่องพิมพ์ที่กำหนดโดยนักพัฒนาโปรแกรมควบคุมเครื่องพิมพ์
ขนาด	จํานวนเต็มที่ระบุขนาดเป็นไบต์ของโครงสร้าง DEVMODE (ค่านี้ไม่มีสมาชิก dmDriverData เพิ่มเติม สําหรับข้อมูลเฉพาะอุปกรณ์ ซึ่งสามารถทําตามโครงสร้างนี้ได้) หากแอปพลิเคชันจัดการเฉพาะข้อมูลส่วนที่ไม่เกี่ยวข้องกับโปรแกรมควบคุม คุณสามารถใช้สมาชิกนี้เพื่อค้นหาความยาวของโครงสร้างนี้ได้โดยไม่ต้องใช้เวอร์ชันที่แตกต่างกัน
DriverExtra	จํานวนเต็ม ที่ระบุขนาดเป็นไบต์ของสมาชิก dmDriverData เพิ่มเติมสําหรับข้อมูลเฉพาะอุปกรณ์ ซึ่งสามารถทําตามโครงสร้างนี้ ถ้าแอปพลิเคชันไม่ได้ใช้ข้อมูลเฉพาะอุปกรณ์ ให้คุณตั้งค่าสมาชิกนี้เป็น 0
เขตข้อมูล	ค่าแบบยาวที่ระบุว่ารายการที่เหลือในโครงสร้าง DEVMODE ถูกเตรียมใช้งานหรือไม่
Orientation	จํานวนเต็ม ที่ระบุการวางแนวของกระดาษ สามารถเป็นได้ทั้ง 1 (แนวตั้ง) หรือ 2 (แนวนอน)
PaperSize	จํานวนเต็ม ที่ระบุขนาดของกระดาษที่จะพิมพ์ ถ้าคุณตั้งค่าสมาชิกนี้เป็น 0 หรือ 256 ความยาวและความกว้างของกระดาษจะถูกระบุโดยสมาชิก PaperLength และ PaperWidth ตามลําดับ มิฉะนั้น คุณสามารถตั้งค่าสมาชิก PaperSize เป็นค่าที่กําหนดไว้ล่วงหน้าได้
PaperLength	จํานวนเต็ม ที่ระบุความยาวกระดาษเป็นหน่วย 1/10 มิลลิเมตร สมาชิกนี้จะแทนที่ความยาวกระดาษที่ระบุโดยสมาชิก PaperSize สําหรับขนาดกระดาษแบบกําหนดเองหรือสําหรับอุปกรณ์ เช่น เครื่องพิมพ์แบบจุดที่สามารถพิมพ์บนขนาดกระดาษต่างๆ ได้
PaperWidth	จํานวนเต็ม ที่ระบุความกว้างกระดาษเป็นหน่วย 1/10 มิลลิเมตร สมาชิกนี้จะแทนที่ความกว้างของกระดาษที่ระบุโดยสมาชิก PaperSize
มาตราส่วน	จํานวนเต็ม ที่ระบุตัวคูณที่จะใช้ปรับมาตราส่วนผลลัพธ์ที่พิมพ์ ขนาดหน้ากระดาษที่เห็นได้ชัดจะถูกปรับมาตราส่วนจากขนาดหน้ากระดาษจริงด้วยตัวคูณ มาตราส่วน/100 ตัวอย่างเช่น กระดาษหนึ่งแผ่นที่มีขนาด 8.5 คูณ 11 นิ้ว (ตัวอักษร-ขนาด) ที่มีค่า มาตราส่วน เท่ากับ 50 จะมีข้อมูลมากเท่ากับหน้ากระดาษที่มีขนาด 17 คูณ 22 นิ้ว เนื่องจากข้อความผลลัพธ์และกราฟิกจะเป็นครึ่งหนึ่งของความสูงและความกว้างเดิม
สำเนา	จำนวนเต็มที่ระบุจำนวนสำเนาที่พิมพ์ ถ้าอุปกรณ์พิมพ์สนับสนุนสำเนาหลายหน้า
DefaultSource	จำนวนเต็ม ที่ระบุถาดป้อนกระดาษเริ่มต้นที่ใช้ป้อนกระดาษ
PrintQuality	จํานวนเต็มที่ระบุความละเอียดของเครื่องพิมพ์ ค่าคือ –4 (สูง), –3 (ปานกลาง), –2 (ต่ํา) และ –1 (แบบร่าง)
สี	จํานวนเต็ม สําหรับเครื่องพิมพ์สี ให้ระบุว่าจะพิมพ์เป็นสีหรือไม่ ค่าคือ 1 (สี) และ 2 (ขาวดํา)
พิมพ์สองด้าน	จํานวนเต็ม สําหรับเครื่องพิมพ์ที่สามารถพิมพ์แบบสองด้านได้ ให้ระบุว่าจะพิมพ์ผลลัพธ์บนทั้งสองด้านของกระดาษหรือไม่ ค่าคือ 1 (simplex), 2 (แนวนอน) และ 3 (แนวตั้ง)
YResolution	จํานวนเต็ม ที่ระบุความละเอียด y ของเครื่องพิมพ์เป็นจุดต่อนิ้ว (dpi) ถ้าเครื่องพิมพ์เริ่มต้นสมาชิกนี้ สมาชิก PrintQuality จะระบุความละเอียด x ของเครื่องพิมพ์ในหน่วย dpi
TTOption	จำนวนเต็ม ที่ระบุวิธีการพิมพ์ฟอนต์ TrueType
ทีละชุด	จํานวนเต็ม ที่ระบุว่าควรใช้การเรียงทีละชุดเมื่อพิมพ์หลายสําเนาหรือไม่ การใช้สําเนาแบบไม่รวมจะให้ผลลัพธ์ที่รวดเร็วและมีประสิทธิภาพมากขึ้น เนื่องจากข้อมูลจะถูกส่งไปยังเครื่องพิมพ์เพียงครั้งเดียว
FormName	สตริงที่มีความยาวสูงสุด 16 อักขระที่ระบุขนาดกระดาษที่จะใช้ ตัวอย่างเช่น “จดหมาย” หรือ “Legal”
Pad	ค่าแบบยาวที่ใช้ขยายช่องว่าง อักขระ หรือค่าสำหรับเวอร์ชันในอนาคต
บิต	ค่าแบบยาวที่ระบุความละเอียดสีของอุปกรณ์แสดงผลเป็นบิตต่อพิกเซล
PW	ค่าแบบยาวที่ระบุความกว้างพื้นที่แสดงผลของอุปกรณ์ (หน้าจอหรือเครื่องพิมพ์) เป็นพิกเซล
PH	ค่าแบบยาวที่ระบุความสูงของพื้นที่แสดงผลของอุปกรณ์ (หน้าจอหรือเครื่องพิมพ์) เป็นพิกเซล
DFI	ค่า แบบยาว ที่ระบุโหมดแสดงผลของอุปกรณ์
DFR	ค่าแบบยาวที่ระบุความถี่ของอุปกรณ์แสดงผลในบางโหมดเป็นหน่วยเฮิรตซ์ (รอบต่อวินาที)

หมายเหตุ: คุณสามารถตั้งค่าคุณสมบัติ PrtDevMode โดยใช้โค้ด Visual Basic for Applications (VBA)

การตั้งค่าคุณสมบัตินี้เป็นแบบ อ่าน/เขียน ในมุมมองออกแบบหรือมุมมองเค้าโครง และเป็นแบบอ่านอย่างเดียวในมุมมองอื่นๆ

โปรแกรมควบคุมเครื่องพิมพ์สามารถเพิ่มข้อมูลเฉพาะอุปกรณ์โดยทําตามโครงสร้าง DEVMODE ขนาด 94 ไบต์ได้ทันที ด้วยเหตุนี้ จึงเป็นสิ่งสําคัญที่ข้อมูล DEVMODE ที่ระบุไว้ข้างต้นไม่เกิน 94 ไบต์

โปรแกรมควบคุมเครื่องพิมพ์ที่ส่งออกฟังก์ชัน ExtDeviceMode เท่านั้นที่ใช้โครงสร้าง DEVMODE

แอปพลิเคชันสามารถรับขนาดและชื่อกระดาษที่เครื่องพิมพ์สนับสนุนโดยใช้ค่า DC_PAPERS, DC_PAPERSIZE และ DC_PAPERNAMES เพื่อเรียกใช้ฟังก์ชัน DeviceCapabilities

ก่อนที่จะตั้งค่ารายการ TTOption แอปพลิเคชันจะตรวจพบวิธีการใช้ฟอนต์ TrueType ของเครื่องพิมพ์โดยใช้ค่า DC_TRUETYPE เพื่อเรียกใช้ฟังก์ชัน DeviceCapabilities

ตัวอย่าง

ตัวอย่างต่อไปนี้จะใช้คุณสมบัติ 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

นำไปใช้กับ

ข้อสังเกต

ตัวอย่าง

ต้องการความช่วยเหลือเพิ่มเติมหรือไม่

ต้องการตัวเลือกเพิ่มเติมหรือไม่

ข้อมูลนี้เป็นประโยชน์หรือไม่

ขอบคุณสำหรับคำติชมของคุณ!