Свойство Form.PrtDevMode (Access)
Используйте свойство PrtDevMode , чтобы задать или вернуть сведения о режиме печати устройства, указанные для формы или отчета в диалоговом окне Печать . Для чтения и записи, Variant.
Синтаксис
expression. PrtDevMode
выражение: переменная, представляющая объект Form.
Замечания
Мы настоятельно рекомендуем ознакомиться с комплектом средств разработки программного обеспечения Win32 для получения полной документации по свойствам PrtDevMode, PrtDevNames и PrtMip .
Параметр свойства PrtDevMode представляет собой 94-байтовую структуру, которая отражает структуру DEVMODE, определенную в пакете средств разработки программного обеспечения Win32. Полные сведения об элементах свойств PrtDevMode см. в пакете средств разработки программного обеспечения Win32.
Свойство PrtDevMode использует следующие элементы.
| Member | Описание |
|---|---|
| DeviceName | Строка не более 32 байт, указывающая имя устройства, которое поддерживает драйвер; например, "HP LaserJet IIISi", если Hewlett-Packard LaserJet IIISi является указанным принтером. Каждый драйвер принтера имеет уникальную строку. |
| SpecVersion | Целое число, указывающее номер версии структуры DEVMODE в пакете средств разработки программного обеспечения Win32. |
| DriverVersion | Целое число, указывающее номер версии драйвера принтера, назначенный разработчиком драйвера принтера. |
| Size | Целое число, указывающее размер (в байтах) структуры DEVMODE. (Это значение не включает необязательный элемент dmDriverData для данных, относящихся к устройству, которые могут соответствовать этой структуре.) Если приложение управляет только независимой от драйвера частью данных, вы можете использовать этот элемент, чтобы узнать длину этой структуры без учета различных версий. |
| DriverExtra | Целое число, указывающее размер (в байтах) необязательного члена dmDriverData для данных, относящихся к устройству, которые могут соответствовать этой структуре. Если приложение не использует сведения, относящиеся к устройству, задайте для этого элемента значение 0. |
| Поля | Значение Long , указывающее, какие из остальных элементов в структуре DEVMODE были инициализированы. |
| Вводное обучение | Целое число, указывающее ориентацию бумаги. Это может быть 1 (книжная) или 2 (альбомная). |
| PaperSize | Целое число, указывающее размер бумаги для печати. Если для этого элемента задано значение 0 или 256, длина и ширина бумаги указываются элементами PaperLength и PaperWidth соответственно. В противном случае можно задать для элемента PaperSize предопределенное значение. Доступные значения см. в разделе Значения элементов PaperSize. |
| PaperLength | Целое число, указывающее длину бумаги в единицах 1/10 миллиметра. Этот элемент переопределяет длину бумаги, указанную элементом PaperSize, для пользовательских размеров бумаги или для таких устройств, как принтеры с точками матрицы, которые могут печатать на бумаге различных размеров. |
| PaperWidth | Целое число, указывающее ширину бумаги в единицах 1/10 миллиметра. Этот элемент переопределяет ширину бумаги, указанную элементом PaperSize. |
| Масштаб | Целое число, указывающее коэффициент, с помощью которого будут масштабироваться печатные выходные данные. Видимый размер страницы масштабируется с физического размера страницы с коэффициентом масштаба /100. Например, лист бумаги размером 8,5 на 11 дюймов (размер буквы) со значением шкалы 50 будет содержать столько данных, сколько страница размером 17 на 22 дюйма, так как выходной текст и графика будут вдвое меньше исходной высоты и ширины. |
| Копии | Целое число, указывающее количество печатаемых копий, если устройство печати поддерживает многостраничные копии. |
| DefaultSource | Целое число, указывающее ячейку по умолчанию, из которой подается бумага. Доступные значения см. в разделе Значения элементов DefaultSource. |
| PrintQuality | Целое число, указывающее разрешение принтера. Значения: 4 (высокий), 3 (средний), 2 (низкий) и 1 (черновик). |
| Цвет | Целое число. Для цветного принтера указывает, печатаются ли выходные данные в цвете. Значения: 1 (цвет) и 2 (монохромная). |
| Duplex | Целое число. Для принтера, поддерживающего дуплексную печать, указывает, печатаются ли выходные данные с обеих сторон бумаги. Значения: 1 (сиплекс), 2 (по горизонтали) и 3 (по вертикали). |
| YResolution | Целое число, указывающее разрешение принтера по Y в точках на дюйм (точек на дюйм). Если принтер инициализирует этот элемент, элемент PrintQuality указывает разрешение принтера в формате X в разрешении на дюйм. |
| TTOption | Целое число, указывающее способ печати шрифтов TrueType. Доступные значения см. в разделе Значения элементов TTOption. |
| Collate | Целое число, указывающее, следует ли использовать параметры сортировки при печати нескольких копий. Использование необященных копий обеспечивает более быстрый и эффективный вывод данных, так как данные отправляются на принтер только один раз. |
| FormName | Строка не более 16 символов, указывающая размер используемой бумаги; Например, "Letter" или "Legal". |
| Площадку | Значение Long, используемое для разбиения пробелов, символов или значений для будущих версий. |
| Биты | Значение Long, указывающее в битах на пиксель разрешение цвета устройства отображения. |
| PW | Значение Long , указывающее ширину (в пикселях) видимой поверхности устройства (экрана или принтера). |
| PH | Значение Long , указывающее высоту (в пикселях) видимой поверхности устройства (экрана или принтера). |
| DFI | Значение Long , указывающее режим отображения устройства. |
| DFR | Значение Long , указывающее частоту (в герцах ( циклов в секунду) устройства отображения в определенном режиме. |
Этот параметр свойства доступен для чтения и записи в режиме конструктора и только для чтения в других представлениях.
Драйверы принтера могут добавлять данные для конкретного устройства сразу после 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 VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.