Страница: 1 |
Как распечатаь на VB6 обычный текстовый файл?
Страница: 1 |
Вопрос: Как пустить на печать текстовый файл? В VB6
Добавлено: 11.06.04 12:36
Автор вопроса: EDIK
Ответы
Всего ответов: 1
Номер ответа: 1
Автор ответа:
Pashenko
ICQ: 176176951
Вопросов: 14
Ответов: 655
Профиль | | #1
Добавлено: 11.06.04 12:50
Dim S As String
Open "e:\laser.txt" For Input As #1
Printer.NewPage
Do While Not EOF(1)
Line Input #1, S
Printer.Print S
Loop
Printer.EndDoc
Close