Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Дядя Федор Можно прямо на принтер Sub directPrt() Const ForWriting = 2 Dim fs, f Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile("Lpt1", ForWriting, True) f.Write "Первая строка пошла!!!" & vbCr f.Close End Sub
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.