Статья: Чтение, создание, запись и печать текстовых файлов

If CMDialog1.Filename = "" Then Exit Sub

Form1.Caption = CMDialog1.Filename & ".txt" ' показ пути и имени файла

‘ открытие файла для записи

Open CMDialog1.Filename & ".txt" For Output As #1

Print #1, Form1.Text1.Text ‘ запись текста в файл

Close #1 ‘ закрытие файла

Во второй строке программа защищена от возможной ошибки в четвертой строке. Такая ошибка может возникнуть в том случае, если пользователь не указал имя сохраняемого файла. Вторая строка осуществляет выход из процедуры Save_Click, если именем файла является пустое множество. Третья строка помещает информацию о пути и имени сохраняемого файла в строку заголовка окна формы Form1. В четвертой строке открывается файл для записи под номером «Первый». Пятая строка записывает в открытый файл содержимое текстового поля. Последняя строка закрывает файл под номером «Первый».

В процедуру прерывания Print_Click впишите программный код:

Printer.FontName = "Arial Cyr" ‘ выбор вида шрифта для печати

Printer.FontSize = 12 ‘ установка размера шрифта для печати

Printer.Print "" ‘ инициализация объекта принтер

Printer.Print Form1.Text1.Text ‘ вывод текста на бумагу

Printer.EndDoc ‘ остановка печати документа

Самостоятельно завершите обработку выборов меню для знакомой Вам команды «Выход». Сохраните проект приложения. Создайте исполняемый EXEфайл.

При желании в меню добавьте команды, позволяющие пользователю менять размер шрифта как для набора текста, так и для печати.