Свойство PrtDevMode

Отнася се за

Обект Form

Обект Report

Можете да използвате свойството PrtDevMode за задаване или връщане на информация за режима на печатащото устройство, указано за даден формуляр или отчет в диалоговия прозорец Печат. Variant за четене/запис.

израз.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

Цяло число, което указва номера на версията на драйвера за принтера, зададен от разработчика на драйвера на принтера.

Size

Цяло число, което указва размера, в байтове, на структурата DEVMODE. (Тази стойност не включва незадължителния член dmDriverData за специфичните за устройството данни, които може да следват тази структура.) Ако приложението манипулира само независимата от драйвера част от данните, можете да използвате този член, за да определите дължината на тази структура, без да се налага да вземате предвид различните версии.

DriverExtra

Цяло число, което указва размера, в байтове, на незадължителния член dmDriverData за специфичните за устройството данни, които може да следват тази структура. Ако приложението не използва специфична за устройството информация, можете да зададете за този член "0".

Fields

Стойност от тип Long, която указва кои от останалите членове в структурата DEVMODE са инициализирани.

Ориентация

Цяло число, което указва ориентацията на хартията. Тя може да бъде 1 (портретна) или 2 (пейзажна).

PaperSize

Цяло число, което указва размера на хартията, на която да се печата. Ако зададете за този член стойност 0 или 256, дължината и ширината на хартията се задават съответно като членове PaperLength и PaperWidth. В противен случай можете да зададете за члена PaperSize предварително дефинирана стойност.

PaperLength

Цяло число, което указва дължината на хартията в единици от 1/10 от милиметъра. Този член замества дължината на хартията, указана от члена PaperSize за размерите по избор на хартията или за устройствата, като например матрични принтери, които могат да печатат на хартия с различни размери.

PaperWidth

Цяло число, което указва ширината на хартията в единици от 1/10 от милиметъра. Този член замества ширината на хартия, указана от члена PaperSize.

Scale

Цяло число, което указва коефициента, с който да бъде мащабиран размерът на разпечатката. Видимият размер на страницата се мащабира от физическия й размер чрез коефициент мащаб/100. Например лист хартия с размери 8,5 x 11 инча (Letter) със стойност за Scale 50 ще съдържа толкова данни, колкото страница с размери 17 x 22 инча, тъй като изходният текст и графики ще бъдат с половината от първоначалната си височина и ширина.

Copies

Цяло число, което указва броя копия, които да се отпечатат, ако печатащото устройство поддържа копия от много страници.

DefaultSource

Цяло число, което указва тавата по подразбиране, от която да се подава хартията.

PrintQuality

Цяло число, което указва разделителната способност на принтера. Стойностите са: -4 (висока) -3 (средна), -2 (ниска) и -1 (чернова).

Color

Цяло число. За цветен принтер указва дали да се отпечатва цветно. Стойностите са: 1 (цветно) и 2 (черно-бяло).

Duplex

Цяло число. За принтер, който поддържа двустранен печат, указва дали да се печата от двете страни на хартията. Стойностите са: 1 (едностранно), 2 (хоризонтално) и 3 (вертикално).

YResolution

Цяло число, което указва разделителната способност на принтера по оста Y в точки на инч (dpi). Ако принтерът инициализира този член, членът PrintQuality указва разделителната способност на принтера по оста X в точки на инч (dpi).

TTOption

Цяло число, което указва как ще се отпечатват шрифтовете TrueType.

Collate

Цяло число, което указва дали да се използва комплектоване, когато се печат няколко копия. Отпечатването на некомплектовани копия е по-бързо и ефективно, тъй като данните се изпращат към принтера само веднъж.

FormName

Низ с максимум 16 знака, който указва размера на хартията, която да се използва; например "Letter" или "Legal".

Pad

Стойност Long, която се използва за допълване на интервали, знаци или стойности за бъдещи версии.

Bits

Стойност от тип Long, която указва в битове на пиксел разделителната способност при цветен печат на устройството с дисплей.

PW

Стойност от тип Long, която указва ширината в пиксели на видимата повърхност на устройството (екран или принтер).

PH

Стойност от тип Long, която указва височината в пиксели на видимата повърхност на устройството (екран или принтер).

DFI

Стойност от тип Long, която указва режима на показване на устройството.

DFR

Стойност от тип Long, която указва честотата в Hz (цикъла в секунда) на устройството с дисплей.


Забележка: Можете да зададете свойството PrtDevMode като код на Visual Basic for Applications (VBA).

Настройката на това свойство е "четене/запис" в изглед за проектиране или изглед на оформление и "само за четене" – в другите изгледи.

Драйверите за принтер могат да добавят специфични за устройството данни непосредствено след 94 байта на структурата DEVMODE. Поради тази причина е важно данните в 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
Разширете уменията си
Преглед на обучението
Получавайте първи новите функции
Присъединете се към участниците в Office Insider

Беше ли полезна тази информация?

Благодарим ви за обратната връзка!

Благодарим ви за вашата обратна връзка. Изглежда, че ще бъде полезно да ви свържем с един от нашите агенти по поддръжката на Office.

×