Вывод данных на печать

На протяжении своего жизненного цикла программа вводит данные, производит с ними операции в памяти и, возможно, сохраняет на диске. Все эти функции чрезвычайно важны, и во многих приложениях без них не обойтись, но все же самое важное — вывести их на печать. В Visual Basic существует несколько способов печати:

О печать текущей формы;

О построчная печать на форме или принтере;

О печать в окне непосредственных вычислений;

О печать отчетов, созданных в Crystal Reports Pro (поставляется с Visual Basic);

О печать из другого приложения (например, Word for Windows) средствами DDE и OLE Automation.

Метод Print

Наш урок начинается с изучения метода Print. Он выводит значения переменных, что позволяет вам проследить за тем, как эти переменные изменялись перед выполнением оператора Print. Кроме того, значения переменных можно просмотреть в окне непосредственных вычислений — для этого следует прервать выполнение программы (команда Run > Break). Метод Print применяется для вывода данных на форму и на принтер. Для вывода информации на принтер используется метод Printer. Print, а для вывода на текущую форму достаточно просто написать Print, хотя в подобных случаях рекомендуется указывать перед методом имя объекта (например, frmMyForm.Print).

ПРИМЕЧАНИЕ Метод Cls убирает с формы весь текст, выведенный ранее. Если его не вызвать, после нескольких вызовов Print текст исчезает под нижним краем формы.

При выводе на принтер необходимо указать, когда следует приступать к печати. Метод Print лишь направляет результаты вывода в память — он готовит их к пе-

чати, но не печатает. Почему? Представьте себе, что вам нужно напечатать несколько строк на одной странице. Если бы метод Ргint немедленно начинал печатать, то вы бы получили несколько страниц, на каждой из которых была выведена одна строка. Печать начинается методом EndDoc, а для многостраничных документов существует метод NewPage.

Например, следующий фрагмент (возможно, находящийся в процедуре события Click формы) печатает документ, состоящий из нескольких страниц:

Printer.Print "Первая страница"

Printer.Print "Вторая строка на первой странице"

Printer.NewPage

Printer.Print "Вторая страница"

Printer.EndDoc