Автор статьи: Беседин Игорь
Как отправить на принтер текст из буфера обмена?
Используйте следующий код:
txtString = Clipboard.GetText
'Считываем текст из буфера
обмена
HWidth = Printer.TextWidth(Msg) / 2 'Получаем
половину ширины
HHeight = Printer.TextHeight(Msg) / 2
' Получаем половину высоты
Printer.CurrentX = Printer.ScaleWidth / 2 - HWidth 'Устанавливаем
координаты вывода
Printer.CurrentY = Printer.ScaleHeight / 2 - HHeight
Printer.Print txtString 'Вывод на экран
Printer.EndDoc 'Заканчиваем печать
При любом воспроизведении этой статьи (и других статей с этого сайта) ставьте ссылку на сайт www.igoryksoft.narod.ru