Applies ToMicrosoft 365-höz készült Access Access 2021 Access 2019 Access 2016

Érvényesség

Form objektum

Report objektum

A PrtDevMode tulajdonsággal beállíthatja vagy visszaadhatja a nyomtatóeszköz üzemmódjának a Nyomtatás párbeszédpanelen egy űrlaphoz vagy jelentéshez megadott adatait. A tulajdonság egy olvasható/írható változó.

kifejezés.PrtDevMode

Kifejezés Megadása kötelező. Egy kifejezés, amely a Hatókör listában szereplő objektumok egyikét adja vissza.

Megjegyzések

Javasoljuk, hogy a Win32 szoftverfejlesztői készlet tanulmányozásával szerezzen átfogóbb tudást a PrtDevMode, a PrtDevNames és a PrtMip tulajdonságról.

A PrtDevMode tulajdonság beállítása egy olyan 94 bites struktúra, amely megfelel a Win32 szoftverfejlesztői készletben definiált DEVMODE struktúrának. A PrtDevMode tulajdonság elemeiről minden információt megtalál a Win32 szoftverfejlesztői készletben.

A PrtDevMode tulajdonság a következő elemekből áll.

Elem

Leírás

DeviceName

Egy legfeljebb 32 bájtos karakterlánc, amely az illesztőprogram által támogatott eszköz nevét adja meg – például „HP LaserJet IIISi”, ha a megadott nyomtató a Hewlett-Packard LaserJet IIISi. Minden egyes nyomtatóillesztő-program egyedi karakterláncot használ.

SpecVersion

Egy egész szám, amely a DEVMODE struktúra Win32 szoftverfejlesztői készletben megtalálható verziószámát adja meg.

DriverVersion

Egy egész szám, amely a nyomtatóillesztő-programnak a fejlesztője által megadott verziószámát adja meg.

Size

Egy egész szám, amely a DEVMODE struktúra méretét adja meg bájtban. (Ez az érték nem tartalmazza az opcionális dmDriverData tagot az eszközspecifikus adatokhoz, amelyek ezt a struktúrát követhetik.) Ha egy alkalmazás csak az adatok illesztőprogram-független részét módosítja, akkor ennek a tagnak a használatával anélkül állapíthatja meg a struktúra hosszát, hogy figyelembe kellene vennie a különböző verziókat.

DriverExtra

Egy egész szám, amely megadja az opcionális dmDriverData elem méretét bájtban azokhoz az eszközspecifikus adatokhoz, amelyek képesek követni ezt a struktúrát. Ha egy alkalmazás nem használ eszközspecifikus adatokat, ezt az elemet 0 értékre kell állítani.

Fields

Egy hosszú érték, amely azt adja meg, hogy a DEVMODE struktúra fennmaradó elemei közül melyek lettek inicializálva.

Orientation

Egy egész szám, amely a papír tájolását adja meg. Értéke lehet 1 (álló) vagy 2 (fekvő).

PaperSize

Egy egész szám, amely a nyomtatási papír méretét adja meg. Ha ezt az elemet 0 vagy 256 értékűre állítja, akkor a papír hosszúságát és szélességét a PaperLength és a PaperWidth elem fogja meghatározni. Más számokat megadva a PaperSize elemet egy előre definiált értéke állíthatja.

PaperLength

Egy egész szám, amely a papír hosszúságát adja meg 0,1 milliméteres egységekben. Ez az elem felülbírálja a PaperSize elem által megadott papírhosszúságot az egyéni papírméretek, illetve az olyan eszközök esetén, mint például a mátrixnyomtatók, amelyek különböző méretű papírokra képesek nyomtatni.

PaperWidth

Egy egész szám, amely a papír szélességét adja meg 0,1 milliméteres egységekben. Ez az elem felülbírálja a PaperSize elem által megadott papírszélességet.

Scale

Egy egész szám, amely azt a tényezőt adja meg, amely alapján a kinyomtatott kimenet méretezése történik. A látható papírméret méretezése a fizikai papírméret alapján történik, a méretarány/100 tényezővel szorozva. Egy 8,5x11 hüvelyk (Letter) méretű, 50-es méretezési értékkel rendelkező papír például annyi adatot tartalmaz, amennyi egy 17x22 hüvelyk méretű lapon elfér, mivel a kimeneti szöveg és képek magassága és szélessége az eredeti magasság és szélesség fele lesz.

Copies

Egy egész szám, amely a kinyomtatott példányok számát adja meg, ha a nyomtatóeszköz támogatja a többpéldányos nyomtatást.

DefaultSource

Egy egész szám, amely az alapértelmezett papíradagolót adja meg.

PrintQuality

Egy egész szám, amely a nyomtatási felbontást adja meg. Az értékek -4 (magas), -3 (közepes), -2 (alacsony) és -1 (vázlat).

Color

Egész szám. Színes nyomtató esetén megadja, hogy a kimenet színesben legyen-e nyomtatva. Az értékek 1 (szín) és 2 (monokróm).

Duplex

Egész szám. A kétoldalas nyomtatásra képes nyomtatók esetében megadja, hogy a kimenet a papír mindkét oldalára legyen-e nyomtatva. Az értékek: 1 (simplex), 2 (vízszintes) és 3 (függőleges).

YResolution

Egy egész szám, amely a nyomtató y-felbontását adja meg képpont/hüvelykben (dpi). Ha a nyomtató inicializálja ezt az elemet, a PrintQuality elem a nyomtató x-felbontását adja meg dpi-ben.

TTOption

Egy egész szám, amely megadja, hogy hogyan történjen a TrueType betűtípusok nyomtatása.

Collate

Egy egész szám, amely megadja, hogy többpéldányos nyomtatás esetén legyen-e használatban szétválogatás. Ha szétválogatás nélkül nyomtat, az gyorsabb, hatékonyabb kimenetet biztosít, hiszen az adatokat csak egyszer kell elküldeni a nyomtatónak.

FormName

Egy legfeljebb 16 karakterből álló karakterlánc, amely a használandó papír méretét adja meg; például „Letter” vagy „Legal”.

Pad

Egy hosszú érték, amely szóközök, karakterek vagy jövőbeli verziókra vonatkozó értékek helyének megadására szolgál.

Bits

Egy hosszú érték, amely a megjelenítőeszköz felbontását adja meg bit/képpontban.

PW

Egy hosszú érték, amely a látható eszközfelület (képernyő vagy nyomtató) szélességét adja meg képpontban.

PH

Egy hosszú érték, amely a látható eszközfelület (képernyő vagy nyomtató) magasságát adja meg képpontban.

DFI

Egy hosszú érték, amely az eszköz megjelenítési módját adja meg.

DFR

Egy hosszú érték, amely a megjelenítőeszköz frekvenciáját adja meg hertzben (periódus/másodperc) egy adott üzemmódban.

Megjegyzés: A PrtDevMode tulajdonságot Visual Basic for Applications (VBA) formátumú kód használatával állíthatja be.

Ez a tulajdonság olvasható/írható Tervező vagy Elrendezés nézetben, a többi nézetben azonban írásvédett.

A nyomtatóillesztő-programok a DEVMODE struktúra 94 bájtja után közvetlenül vehetik fel az eszközspecifikus adatokat. Emiatt fontos, hogy a DEVMODE fent vázolt adatai ne haladják meg a 94 bájtot.

Csak az ExtDeviceMode függvényt exportáló nyomtatóillesztő-programok használják a DEVMODE-struktúrát.

Az alkalmazások a nyomtató által támogatott papírméreteket és -neveket úgy olvashatják be, hogy a DC_PAPERS, a DC_PAPERSIZE és a DC_PAPERNAMES értékek használatával meghívják a DeviceCapabilities függvényt.

Mielőtt beállítanák a TTOption elem értékét, az alkalmazásoknak ki kell deríteniük, hogy a nyomtatóillesztő-program hogyan tudja használnia a TrueType betűtípusokat. Ehhez az alkalmazások a DC_TRUETYPE érték használatával meghívják a DeviceCapabilities függvényt.

Példa

A következő példa a PrtDevMode tulajdonság használatával ellenőrzi egy jelentés felhasználó által definiált oldalméretét:

Private Type str_DEVMODE    RGB As String * 94End TypePrivate 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 LongEnd TypePublic 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 = NothingEnd Sub

A következő példa azt mutatja be, hogy hogyan módosítható a jelentés tájolása. A példa alapján a tájolás állóról fekvőre, illetve fekvőről állóra módosítható attól függően, hogy jelenleg milyen a jelentés tájolása.

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 = NothingEnd Sub

További segítségre van szüksége?

További lehetőségeket szeretne?

Fedezze fel az előfizetés előnyeit, böngésszen az oktatóanyagok között, ismerje meg, hogyan teheti biztonságossá eszközét, és így tovább.

A közösségek segítségével kérdéseket tehet fel és válaszolhat meg, visszajelzést adhat, és részletes ismeretekkel rendelkező szakértőktől hallhat.