| Вопрос: Печать cp-866 | Добавлено: 21.07.06 09:46 |
Автор вопроса:  Arseny | ICQ: 298826769 |
|
Господа! Можно ли реализовать печать дос'овской кодировки на принтер, не поддерживающий таковую?
Прошу не советовать всевозможные готовые программы, т.к. они либо платные, либо с недостатками, либо с неудобствами. P.S. на VB6 |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  shuffle Администратор ICQ: 201502381 Вопросов: 15 Ответов: 737 |
Профиль | | #1 | Добавлено: 21.07.06 19:09 |
|
Полагаю, ты можешь сам конвертировать текст из 866 в 1251 с помощью OemToChar. Например:
Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Private Sub Command1_Click() Dim a As String, b As String * 256 a = Text1.Text 'текст в 866 OemToChar a, b Text1.Text = b End Sub |
||
|
Номер ответа: 2 Автор ответа:  Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #2 | Добавлено: 22.07.06 00:03 |
|
Да конвертировать то не сложно, это я бы сотворил, а что делать со знаками, которых нет в Win - 1251? типа псевдографики, таблички печатать, причем там и двойные линии и уголки...
Ежели надо чтоб один в один к оригиналу? Как люди-то делают? (DosPRN, WinPrint и т.п.) |
||
|
Номер ответа: 3 Автор ответа: Bombardier ICQ: 42305746 Вопросов: 2 Ответов: 67 |
Web-сайт: Профиль | | #3 | Добавлено: 26.07.06 15:49 |
| а при чем тут Win-1251, все эти знаки есть в Unicode )) которая отлично виндами поддерживается. | ||
|
Номер ответа: 4 Автор ответа: BombardierICQ: 42305746 Вопросов: 2 Ответов: 67 |
Web-сайт: Профиль | | #4 | Добавлено: 26.07.06 15:52 |
|
╔═══════════╗
╟───────────╢ ║ Hello ║ ╚═══════════╝ |
||
Страница: 1 |