Не Смейтесь

[NITROs]

Здрасте.Сейчас будет ламерский-преламерский вопрос.Вобщем, как распечатать текст кодом?И если через API, то какие константы нужны для этого,и вобще лучше пример кода.Заранее громадное спасибо, я надеюсь что хоть вопрос и ламерский на него ответят)

[Vitaly1]

Для того, что бы узнать код символа, применяется функция asc(строка), для того, чтобы преобразовать цифру в текст str(число), для того, что бы получить по коду символ chr(код символа).
для взятия символа из строуки функция
MID(строка, начиная с имвола, количесво символов)
Ну вот пример показа десятичных кодов символов строки:

Код: Выделить всё

sub pr(s as string)
  s1=""
  for i=1 to len(s)
   s1=s1+mid(s,i,1) + "="+chr(asc(mid(s,i,1)))+" "
next i
msgbox s1
end sub

[SeRRg]

М.Б. Ты имеешь ввиду на принтере?

[NITROs]

Да, на принтере.

[SeRRg]

Не знаю, как другие, а я всегда кодом из сгенеренной программы пользуюсь. М.Б. можно лучше, но я это часто не использую...

[NITROs]

честно-говоря я в представленный код не врубился....

[Yurik]

Елки палки все проще простого!

Код: Выделить всё

Printer.Print Text1.Text
Printer.EndDoc

Вот и все!

[SeRRg]

А-а-а. А я делал Printer.Print Text1.text, но он печатал
у меня только после выхода из программы. Теперь понятно.