Объект Screen

End Sub

Printer. EndDoc

Printer. NewPage

Объект Printer

Вывод информации

VB позволяет легко устанавливать свойства принтера, используемого в системе. Метод PrintForm выводит на принтер графический образ окна формы. Его синтаксис: ИмяФормы. PrintForm

. Метод PrintForm осуществляет побитовый перенос формы с заголовком и рамкой с экрана на печать и не обладает достаточной гибкостью. Обычный способ вывода информации на принтер состоит в использовании метода Print, связанного с объектом Printer. Метод Print учитывает ориентацию страницы и может использовать свойства CurrentX и CurrentY для точного позиционирования текста и точек на странице. Его синтаксис:

Printer. Print “текст”

При этом сохраняются возможности команды Print: “;” “,” Tab, Spc, а также возможность управления свойствами шрифта:

Printer. Font. Name = “Arial”

Printer. Font. Size = 18

А изменение шрифта принтера не влияет на предыдущий текст.

Таблица 2.9 Свойства объекта Printer

Свойство	Назначение	Значения
ColorMode	определяет тип принтера	1-монохромный 2- цветной
Page	номер текущей страницы
Pages	количество страниц
Copies	количество печатных копий
Продолжение таблицы 2.9
PrintQuality	качество печати (если это поддерживает драйвер принтера)	1- черновая печать 2-низкое разрешение 3-среднее разрешение 4-высокое разрешение
CurrentX, CurrentY	Текущие координаты текста
Fonts	доступные шрифты принтера
FontCount	кол. доступных шрифтов принтера
Font.Name,Font.Size, Font.Bold,Font.Italic...	характеристики шрифта
ScaleMode	ед. измерения масштаба страницы	0-пользователя 1-твипы (по умолчанию) 2-пункты 3-пикселы 4-символы 5-дюймы 6-мм 7-см
ScaleLeft	Горизонтальная координата текста (при ScaleMode=0)
ScaleTop	Вертикальная координата текста (при ScaleMode=0)
ScaleWidth	Ширина текста
ScaleHeight	Высота текста

Таблица 2.10 Методы объекта Printer

Метод	Содержание
Print	Печать страницы
NewPage	Перейти на новую страницу
EndDoc	Закончить работу с документом. (Освобождение памяти и пересылка страниц в диспетчер печати)
Scale	Определяет координатную систему пользователя
TextHeight	Определяет высоту символа
TextWidth	Определяет ширину символа

Пример: Форма содержит командную кнопку “Печать”. Программный код выводит на печать 2 страницы. На первой печатается “Стр.1”. На второй - “Стр.2”.

Private Sub cmdPrint_Click ()

Printer.Print “Стр.”+Str (Printer. Page)

Printer.Print “Стр.”+Str (Printer. Page)

Объект Screen позволяет управлять размещением форм и выводом информации на экране.

Таблица 2.11 Свойства Объекта Screen

Свойство	Назначение
MousePointer	указатель мыши
Fonts	доступные шрифты экрана
FontCount	кол. доступных шрифтов экрана
Width	ширина экрана (в твипах)
Height	высота экрана

Пример: Установить размер формы равной 50% от размера экрана.

Private Sub Form_Load ()

Me. Width=Screen. Width/2

Me. Height=Screen. Height /2

Дата добавления: 2014-12-10