Печать рисунков

[GRS]

Привет!

Рад Вас снова видеть!!!

Сложность в этот раз заключается вот в чем: надо печатать рисунок. Изображение от силы 2-3 kb. Я печатаю напрямую, т.е.

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

OPEN LPTn for OUTPUT as #n


Текст печатается, ESC-команды понимаются. Но, вот, как печатать картинки?

Кто подскажет?

Спасибо!!!

[GSerg]

Щас, отойду, потом скажу...

[GRS]

Никто не подскажет?! Неужели не сталкивались?!
Может вопрос непонятно задал?...

[Oxygen]

Как вариант, натягиваешь рисунок свой на форму, ставишь форму определенного размера, или закидываешь в image, а потом ровняешь форму по нему, и есть такой метод form.Print. то самое примитивное, что бы не заморачиваться. А вообще, есть такой объект -Printer, от сюда и шагай.

[YB]

Объявляем функцию

Declare Function BitBlt& Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long)

Вставляй куда надо для вывода, только scalemode=3. Должно работать, давно не занимался. Если не работает поищи в MSDN или Инете.

BitBlt printer.hdc, 0, 0, printer.scaleWidth, printer.scaleHeight, picture1.hdc, 0, 0, &HCC0020

[alibek]

А чем Printer.PaintPicture плох? Он вдобавок и масштабирование реализует.

Только я так понял, что человеку необходимо реализовать печать не через виндовый драйвер печати, а напрямую, отправкой ESC-команд на порт.
Если так, то изучай спецификации принтера. Сама команда (печати графики) это ESC ( G (выбрать графический режим) в ESC * или ESC . c v hm.
Тут мануал по командам на русском языке.

[Шурик]

Вот именно:

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

    w = Picture1.Picture.Width
    h = Picture1.Picture.Height
    Printer.PaintPicture Picture1.Picture, 0, 0, w, h, 0, 0, w, h, vbSrcCopy


Интересно, а афтору принципиально печатать напрямую

[GRS]

Тякс!...

Парни, что касаемо вопроса о "печати напрямую" - то тут нет вариантов. Принтер этот чековый и ESC команды кое-какие у меня на него есть. Точнее, он совместим с EPSON. Драйвера на него нет. Обрезать бумагу встроенным резаком я научился. Все шлю напрямую и вроде как проходит. Но вот что касается картинок, тут я зашел в тупик.
Собственно, варианты с объектом Printer заведомо не подходят.
Давайте еще варианты рассмотрим?
alibek - спасибо, буду смотреть...

Тема не закрыта, уважаемые!

[Scuder]

Сама команда (печати графики) это ESC ( G (выбрать графический режим) в ESC * или ESC . c v hm

Вот как перевести принтер в графический режим - понятно. А как в него картинку послать?

Сам долго парился со STAR TUP 9xx. В итоге забил на эту идею..

[alibek]

Смотришь документацию к принтеру и то, каким образом в него передается растр. Обычно это битовая маска, т.е. конвертируешь (программно) изображение в черно-белую (1 бит) картинку, разбиваешь ее на блоки требуемой длины и передаешь растровый образ.
Я как-то давно баловался прямым выводом на печать (для матричного принтера это гораздо быстрее, чем через драйвер Windows), но забросил именно из-за того, что не удалось картинку передать в нужном виде.

[GRS]

...но забросил именно из-за того, что не удалось картинку передать в нужном виде.

Как бы сказать, звучит эээ... многообещающе
Как, блин, быть?

[GRS]

У меня идея возникла и суть ее в том, что бы побайтово файл считать и отослать в порт. Чё вы думаете он мне выдал? В страшном сне не увидишь... Чё делать

[alibek]

А с чего бы принтеру понимать форматы файлов?
Я же говорю, на принтер передаешь растр.
Т.е. структурно примерно так:

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

Dim str As String, res As Byte
For Y = 1 To ImageHeight
  str = vbNullString
  For X = 1 To ImageWidth Step 8
    res = 0
    For B = 0 To 7
      If Image.Point(X+B, Y) <> vbWhite Then res = res + 2^B
    Next B
    str = str & Chr$(res)
  Next X
  Print #1, Chr$(27) & " * " & str
Next Y


Разумеется этот код работать не будет
Тебе надо вначале узнать, в каком виде принтеру требуется растр (скорее всего в подобном тому, как я указал). Затем тебе необходимо изображение разделить на фрагменты, т.к. буфер у матричных принтеров обычно небольшой и надо "уместиться" в него.