Dim bitmapFilePath As String = imagepath here...
Dim bitmapFileData As Byte() = System.IO.File.ReadAllBytes(bitmapFilePath)
Dim fileSize As Integer = bitmapFileData.Length
Dim bitmapDataOffset As Integer = 0
Dim width As Integer = 50 '255
Dim height As Integer = 50 '255
Dim bitsPerPixel As Integer = 1
Dim bitmapDataLength As Integer = 400
Dim widthInBytes As Double = Math.Ceiling(width/8.0)
Dim bitmap(bitmapDataLength) As Byte
Buffer.BlockCopy(bitmapFileData, bitmapDataOffset, bitmap, 0, bitmapDataLength)
For i As Integer = 0 To bitmapDataLength Step 1
bitmap(i) = bitmap(i) Xor &HFF
Next
Dim ZPLImageDataString As String = BitConverter.ToString(bitmap)
ZPLImageDataString = Replace(ZPLImageDataString, "-", String.Empty)
Dim zplCommand(3) As String
zplCommand(0) = "^XA"
zplCommand(1) = "^FO20,20"
zplCommand(2) =
"^GFA, " +
bitmapDataLength.ToString() + "," +
bitmapDataLength.ToString() + "," +
widthInBytes.ToString() + "," +
ZPLImageDataString
zplCommand(3) = "^XZ"
它打印出一个无意义的方块,看起来像某人在Photoshop中应用了噪声过滤器。我在Zebra网站上找到了这个解决方案,但是那个图像是255/255,我需要这个用于50/50的图像,但我不知道我应该改变偏移量或位图数据长度...使用ZPL标签打印机的位图处理
什么是您的源文件?该代码看起来像期待没有标题的纯二进制图像数据。 – SSS 2012-07-10 02:21:37
这是一个.BMP图像,没什么特别的...... http://imgur.com/SsxCL(我认为imgur已经将它变成了png,尽管 – Calvin 2012-07-10 12:56:56