VB.net Печать изображения на Zebra

Question

У меня есть растровое изображение в VB.net, которое я хочу напечатать на принтере Zebra, надеюсь, используя код ZPLII. Я видел пример здесь: Working with bitmaps to a ZPL label printer без везения. Может кто-нибудь помочь с этим? Я несколько дней ударил головой о стену. Заранее спасибо!

Answer 1

Вы можете использовать шрифт утилиту загрузчик, чтобы сохранить изображение в принтер, а затем вспомнить его с помощью ZPL:

^XA 
^FT60,1750^A0B,42,40^XGE:[image_name].GRF^FS 
^PQ1,0,1,Y^XZ 

Answer 2

У меня есть решение

  Imports System.Drawing 
     Imports System.Drawing.Imaging 
     Imports System.IO 
     Imports System.Runtime.InteropServices 
     Imports System.Text 

     Class CONVERTBITMAP 

      ''' <summary> 
      ''' Return codeZPL of an bitmap 
      ''' </summary> 
      ''' <param name="BMP2">BITMAP</param> 
      ''' <returns></returns> 
      Public Shared Function CreateGRF(BMP2 As Bitmap) As String 
       'Dim bmp2 As Bitmap = Nothing 
       Dim bmp As Bitmap = Nothing 
       Dim imgData As BitmapData = Nothing 
       Dim pixels As Byte() 
       Dim x As Integer, y As Integer, width As Integer 
       Dim sb As StringBuilder 
       Dim ptr As IntPtr 
       Try 
        bmp = CONVERTBITMAP.CopyToBpp(BMP2, 1) 
        imgData = bmp.LockBits(New Rectangle(0, 0, bmp.Width, bmp.Height), ImageLockMode.[ReadOnly], PixelFormat.Format1bppIndexed) 
        width = Math.Abs(imgData.Stride) 
        pixels = New Byte(width - 1) {} 
        sb = New StringBuilder(width * bmp.Height * 2) 
        ptr = imgData.Scan0 
        Dim PREVNUM As Integer = 0 
        For y = 0 To bmp.Height - 1 
         Marshal.Copy(ptr, pixels, 0, width) 
         For x = 0 To width - 1 
          If (x + 1) * 8 > bmp.Width Then 
           Dim DIF As Integer = ((x + 1) * 8) - bmp.Width 
           Dim NUM As Integer = (2^(DIF - PREVNUM)) - 1 
           Dim BYTENOT As Byte = Not (CByte(NUM)) 
           PREVNUM = DIF 
           If NUM < 255 Then 
            Dim NOTPX As Byte = Not (pixels(x)) 
            Dim CBYTE2 As Byte = CByte(NUM) 
            Dim STR As Byte = Format("{0:X2}", NOTPX - CBYTE2) 
            sb.AppendFormat("{0:X2}", CByte(STR)) 
           Else 
            sb.AppendFormat("{0:X2}", CByte(0)) 
           End If 

          Else 
           sb.AppendFormat("{0:X2}", CByte(Not pixels(x))) 
          End If 

         Next 
         PREVNUM = 0 
         ptr = ptr.ToInt64 + imgData.Stride 'DirectCast(ptr.ToInt64() + imgData.Stride), IntPtr) 
        Next 
       Finally 
        If bmp IsNot Nothing Then 
         If imgData IsNot Nothing Then 
          bmp.UnlockBits(imgData) 
         End If 
         bmp.Dispose() 
        End If 
       End Try 
       Return [String].Format("^GFA,{0},{0},{1},", width * y, width) + sb.ToString() 
      End Function 
     End Class  

затем, для использования

public function Create_ZPLImage(my_Image As Image) as string 
     return CONVERTBITMAP.CreateGRF(_Image) 
    End Sub 

Работа для меня