Объект Printer

VB использует принтер, установленный по умолчанию в операционной системе. Синтаксис команды:

Printer.Print " Строка текста"

Управлять свойствами шрифта можно обычным образом:

Printer.Font.Name = " Courier"

Printer.Font.Size = 25

Некоторые полезные свойства:

Printer.Copies устанавливает количество копий

Printer. EndDoc сообщает Windows об окончании работы с документом

Printer.NewPage перейти к следующей странице

Printer.Pages сохраняет количество напечатанных страниц

Создайте приложение с одной командной кнопкой, под которой находится код:

Private Sub Print_Click()

Printer.Print " Напечатано"

End Sub

Дополнительные возможности работы со строками

Оператор Like и неопределенный поиск

Оператор Like позволяет сравнивать строки, используя обычные шаблоны для поиска файлов в DOS, однако значительно превосходя их по возможностям. Например, этот оператор может указать, присутствуют ли цифры внутри строки, либо назвать отсутствующие в строке символы. Для ненулевых строк данный оператор возвращает значение True, когда находит совпадение, a False - в случае неудачи. Зависимость от регистра символов здесь определяется текущими установками Option Compare в форме или модуле (конечно, такого рода задачи можно решать и при помощи функции Instr, но оператор Like работает быстрее и. что немаловажно, сохраняет время программиста). Как и в DOS. вопросительный знак (?) означает ровно один символ, а " *" заменяет произвольное количество символов. Например, в операторе If-Then, как здесь:

If'QuickBasic" Like " *Basic" Then

Print " a Basic lanquaqe"

Else

Print " not a Basic lanquaqe"

End If

будет выведена фраза

" a Basic language".

Алгоритм по-русски:

Если " QuickBasic" совпадает с " *Basic", (где «*» - любое количество символов перед Basic) то...

Но если изменить выражение:

If " QuickBasic" Like "? Basic"

Then на экране будет виден результат " not a Basic language"

В следующей таблице представлен обзор возможных шаблонов.

? один любой символ

* от нуля до нескольких символов

# одна любая цифра

[список символов] один любой символ из списка

[! список символов] один любой символ не из списка

Например:

Х = (“###" Like " 123") 'значение X - true, так как ### означает 3 ЛЮБЫХ цифры, а не то что 123.

Х = (" [AВС]" Like " 123") -значение X – false.

A если так. то:

Х=(" [! АВС|" Like " 123") 'значение Х - true

Еще пример:

If " [0-9]" Like A$

Означает, есть ли цифры в переменной А$