4.1.2.2. Команды и функции, управляющие выводом

Команда

SET PRINTER ON [PROMPT] | OFF

направляет вывод на притер или в файл.

Опции:

ON [PROMPT] – направляет вывод на принтер. Если задана опция PROMPT, то откроется диалог настройки параметров принтера.

OFF – (по умолчанию) отменяет вывод на принтер.

Команда

SET PRINTER TO [DEFAULT | NAME WindowsPrinterName]

направляет вывод на принтер по умолчанию (DEFAULT) или на принтер, заданный опцией NAME WindowsPrinterName.

Для получения имени принтера можно употребить функцию GETPRINTER( ) или APRINTERS( ), например:

set printer to name GetPrinter( )

Команда

SET PRINTER TO [FileName [ADDITIVE] | PortName]

задает файл FileName или порт PortName, в который направляется вывод. Опция ADDITIVE позволяет заносить данные в файл, сохраняя имеющиеся. При ее отсутствии файл перезаписывается.

Открытый таким образом файл будет закрыт после выполнения SET PRINTER TO без параметра FileName.

Пример:

set textmerge on show

&& Вывод в файл d:\a.txt

set printer on

set printer to d:\a.txt

fi = Pi( ) / 4

\Синус угла <<fi>> равен <<Sin(fi)>>

&& Закрываем файл d:\a.txt

set printer to

При выводе в порт (в параллельный – LPT1, LPT2 или LPT3 или последовательный – COM1 или COM2) могут быть указаны следующие параметры:

• размер порции в бодах – 300, 600, 1200, 1800, 2400, 3600, 4800, 7200, 9600, 19200 или 57600;

• контроль по четности – N (не выполняется), O (нечетный), E (четный)

• информационный бит – 5, 6, 7, 8

• стоповый бит – 1, 1.5, 2

• квитирование установления связи – H (аппаратное), S (программное), N (нет)

• конец строки – R (символ возврата каретки), L (символ новой строки); всего не более 4-х символов, например RLRL.

Пример:

set printer on

set printer to COM1, 9600, N, 8, 1, H, RL

В примере приведены заданные по умолчанию установки последовательного порта COM1.

Команда

SET PRINTER TO NAME \\ServerName\PrinterName

направляет вывод на сетевой принтер. Поддерживается начиная с версии Windows NT 4.0.

Параметры:

ServerName – уникальное сетевое имя сервера печати.

PrinterName – сетевое имя принтера.

Выполнение

SET PRINTER TO

направит вывод на устройство, определяемое MS-DOS PRN-утилитой.

Команда

SET PRINTER FONT cFontName [, cFontSize] [STYLE cFontStyle]

задает шрифт и его параметры, употребляемые при выводе текста на принтер.

Параметры:

cFontName, cFontSize и cFontStyle – соответственно имя шрифта, его размер и стиль, например:

set printer font "MS Sans Serif", 16 style "BI"

В строке, задающей опцию cFontStyle, могут находиться приведенные в табл. 4.3 символы.

Таблица 4.3

Символы, входящие в cFontStyle

Символ	Описание
B	Жирный
I	Курсив
N	Обычный
O	Контур
Q	Непрозрачный
S	С тенью
–	Перечеркнутый (только VFP)
T	Прозрачный
U	Подчеркнутый

Если опция STYLE не задана, используется обычный стиль.

Замечание. Параметры cFontName, cFontSize и cFontStyle могут быть заданы как результат функции GETFONT( ), например:

set printer font GetFont("MS Sans Serif")

Функция

GETPRINTER( )

открывает диалог Print выбора принтера и возвращает строку, содержащую имя выбранного принтера. Если принтер не выбран, то функция вернет пустую строку.

Пример:

selectedPrinter = GetPrinter( )

if not Empty(selectedPrinter) then

&& Используем выражение с именем

set printer to name (selectedPrinter)

else

MessageBox("Принтер не выбран!")

endif

Функция

PRINTSTATUS( )

возвращает .T., если принтер работает или установлен в панели управления Windows, или .F. – в противном случае.

Функция

GETFONT([cFontName [, nFontSize [, cFontStyle [, nFontCharSet]]]])

открывает диалог Font выбора шрифта и возвращает строку, содержащую имя выбранного шрифта, его размер, стиль и набор символов, например:

MS Sans Serif,18,BI,204

Набор символов включается в результат, если функции GETFONT( ) передан параметр nFontCharSet.

Функция вернет пустую строку, если шрифт не выбран.

Параметры:

cFontName – имя шрифта, устанавливаемое в Font-диалоге после его открытия. Если заданный шрифт не существует, то будет выбран шрифт по умолчанию.

nFontSize – размер шрифта, выбираемый в Font-диалоге после его открытия. Если указанный размер не поддерживается или если nFontSize опущен, то выбирается размер по умолчанию.

cFontStyle – стиль шрифта, выбираемый в Font-диалоге после его открытия. Если указанный стиль не поддерживается или если cFontStyle опущен, то выбирается стиль по умолчанию. Параметр cFontStyle могут быть комбинацией следующих значений:

• "B" – жирный;

• "I" – курсив;

• "P" – отображаются шрифты, доступные на текущем принтере.

Пример:

Getfont("Arial", 12, "BP")

nFontCharSet – число, задающее набор символов шрифта; принимает следующие значения:

• 1 – Western;

• 2 – Symbol;

• 77 – Mac;

• 128 – Japanese;

• 161 – Greek;

• 162 – Turkish;

• 163 – Vietnamese;

• 177 – Hebrew;

• 178 – Arabic;

• 186 – Baltic;

• 204 – Cyrillic;

• 238 – Central European;

• 255 – OEM/DOS.

Замечание. Если использовать сокращенное имя GETF( ), то будет вызвана функция GETFILE( ), а не GETFONT( ).

Функция

FONTMETRIC(nAttribute [, cFontName, nFontSize [, cFontStyle]])

возвращает атрибут шрифта для текущего окна вывода данных. Тип возвращаемого значения – Numeric. Имя текущего шрифта, его размер и стиль возвращает функция WFONT( ).

Параметры:

nAttribute – определяет атрибут шрифта, значение которого возвращается функцией FONTMETRIC( ). Если параметры cFontName, nFontSize и cFontStyle опущены, то функция вернет атрибут для текущего шрифта активного окна вывода данных. Принимает приведенные в табл. 4.4 значения; в третьем столбце таблицы приведены результаты функции FONTMETRIC( ), возвращаемые после выполнения команд

define window someWindow at 10, 10 size 21, 40 ;

in desktop system float close ;

font "Times New Roman", 12 style "BI"

activate window someWindow

for ind = 1 to 20

? Fontmetric(ind)

next

Таблица 4.4