HEXADECIMAL OU PCX

USUARIO.EXCLUIDOS 23/05/2007 10:55:35
#217887
Olá Galera.

Gostaria de uma ajudinha básica. rs.
Estou precisando imprimir uma imagem através de uma impressora térmica.
Porém na documentação só tem este exemplo:

Public Sub ImprimirHexa()
Open "LPT1:" For Output As #1

  Print #1, Chr$(2) + "KI7" + Chr$(0) 'for direct thermal
 
  Print #1, Chr(2) + "IAFHEXFILE"
  Print #1, "802000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF"
  Print #1, "802000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF"
  Print #1, "802000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF"
  Print #1, "802000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF"
  Print #1, "8020FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00"
  Print #1, "8020FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00"
  Print #1, "8020FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00"
  Print #1, "8020FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00"
  Print #1, "0000FF10"
  Print #1, "8020FFFFFF0000000000000000000000000000000000000000000000000000FFFFFF"
  Print #1, "FFFF"

  Print #1, Chr(2) + "L"
  Print #1, "D11"
  Print #1, "1Y1100001000050HEXFILE"
  
  
  Print #1, "Q0001"	'// Quantidade de Cópias
  Print #1, "E"

Close #1
End Sub


Neste exemplo, ele imprimi um quadradinho no inicio e uma linha tracejada por uns 3 centimetros e depois outro quadradinho no final.

Pelo que entendi, deve-se converter a imagem para Hexadecimal
Alguém tem idéia de como posso chegar neste código?

Obs.: A imagem será pequena e preto e branco (lógico)

Qualquer ajuda será bem vinda.

Att.
Tópico encerrado , respostas não são mais permitidas
Voltar