Zebra打印机BMP格式LOG文件打印

`在这里插入代码片 'BMP Format Picture Download into Zebra Barcode Printer
Private Sub btnLOG_Click(sender As Object, e As EventArgs) Handles btnLOG.Click
Dim FileX As String = Nothing
If txtCOM.Text = “” Or Val(txtCOM.Text) <= 0 Or Int(Val(txtCOM.Text)) <> Val(txtCOM.Text) Or Val(txtCOM.Text) > 20 Or IsNumeric(txtCOM.Text) = False Then txtCOM.Text = “1”
intCOM = Val(txtCOM.Text)
If TxtLOGI.Text = “” Or TxtLOG.Text = “” Then
Dim xxx As DialogResult
xxx = MessageBox.Show(“LOG 文件或LOG文件索引不正确”, “Error”, MessageBoxButtons.YesNoCancel, MessageBoxIcon.Information)
Exit Sub
End If
If TxtLOG.Text.ToUpper.Contains(“.PCX”) = True Then
FileX = System.Windows.Forms.Application.StartupPath + “\LOG文件\” + TxtLOG.Text.ToUpper.Trim
Else
FileX = System.Windows.Forms.Application.StartupPath + “\LOG文件\” + TxtLOG.Text.ToUpper.Trim & “.PCX”
End If
Dim xCOUNT As Integer = 0
If Dir(FileX) = “” Then
MessageBox.Show("no DAC log at " + System.Windows.Forms.Application.StartupPath, “error”, MessageBoxButtons.OK, MessageBoxIcon.Warning)
End
End If
Dim Fs As FileStream = New FileStream(FileX, FileMode.Open, FileAccess.Read)
Dim Mbr As BinaryReader = New BinaryReader(Fs)
Dim Buffer(Fs.Length) As Byte
Mbr.Read(Buffer, 0, Fs.Length)
xCOUNT = Fs.Length
Fs.Flush()
Fs.Close()
Mbr.Close()
If SerialPort1.IsOpen = True Then SerialPort1.Close()
SerialPort1 = New System.IO.Ports.SerialPort(“COM” & CStr(intCOM), 9600, IO.Ports.Parity.None, 8, IO.Ports.StopBits.Two)
If Not SerialPort1.IsOpen Then
SerialPort1.Open()
SerialPort1.ReceivedBytesThreshold = 1
SerialPort1.RtsEnable = True
SerialPort1.DtrEnable = True
SerialPort1.ReadTimeout = 1000
SerialPort1.WriteTimeout = 1000
SerialPort1.Encoding = System.Text.Encoding.GetEncoding(“GB2312”)
Else
MessageBox.Show(“打印机端口错误”, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
SerialPort1.Write(“N” & Chr(10)） 'set clear image buffer
SerialPort1.Write(“GM” & Chr(34) & TxtLOGI.Text.Trim.ToUpper & Chr(34) & (xCOUNT).ToString & vbCrLf）

    SerialPort1.Write（Buffer, 0, xCOUNT）

    SerialPort1.Write("GG50,70," & Chr(34) & TxtLOGI.Text.Trim.ToUpper & Chr(34) & vbCrLf)
    SerialPort1.Write("GI" & vbCrLf)
    SerialPort1.Write(Chr(10) & "GG10,10," & Chr(34) & TxtLOGI.Text.Trim.ToUpper & Chr(34) & Chr(10)）
    SerialPort1.Write("P1" & vbCrLf)
    SerialPort1.Close()

End Sub
'Zebra Barcode Printer LOG  File Print Program 
Private Sub btnDELLOG_Click_1(sender As Object, e As EventArgs) Handles btnDELLOG.Click
    If txtCOM.Text = "" Or Val(txtCOM.Text) <= 0 Or Int(Val(txtCOM.Text)) <> Val(txtCOM.Text) Or Val(txtCOM.Text) > 20 Or IsNumeric(txtCOM.Text) = False Then txtCOM.Text = "1"
    intCOM = Val(txtCOM.Text)
    If TxtLOGI.Text = "" Then
        MessageBox.Show("LOG文件索引不正确", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Exit Sub
    End If
    If SerialPort1.IsOpen = True Then SerialPort1.Close()
    SerialPort1 = New IO.Ports.SerialPort("COM" & CStr(intCOM), 9600, IO.Ports.Parity.None, 8, IO.Ports.StopBits.Two)
    If Not SerialPort1.IsOpen Then
        SerialPort1.Open()
        SerialPort1.ReceivedBytesThreshold = 1
        SerialPort1.RtsEnable = True
        SerialPort1.DtrEnable = True
        SerialPort1.ReadTimeout = 1000
        SerialPort1.WriteTimeout = 1000
        SerialPort1.Encoding = System.Text.Encoding.GetEncoding("GB2312")
    Else
        MessageBox.Show("打印机端口错误", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    End If
    SerialPort1.Write("GK" & Chr(34) & TxtLOGI.Text.Trim.ToUpper & Chr(34） & vbCrLf）
    SerialPort1.Close()
End Sub`@[TOC](Zebra打印机BMP格式LOG文件打印)

欢迎使用Markdown编辑器

你好！ 这是你第一次使用 Markdown编辑器 所展示的欢迎页。如果你想学习如何使用Markdown编辑器, 可以仔细阅读这篇文章，了解一下Markdown的基本语法知识。

新的改变

我们对Markdown编辑器进行了一些功能拓展与语法支持，除了标准的Markdown编辑器功能，我们增加了如下几点新功能，帮助你用它写博客：

1. 全新的界面设计 ，将会带来全新的写作体验；
2. 在创作中心设置你喜爱的代码高亮样式，Markdown 将代码片显示选择的高亮样式 进行展示；
3. 增加了 图片拖拽 功能，你可以将本地的图片直接拖拽到编辑区域直接展示；
4. 全新的 KaTeX数学公式 语法；
5. 增加了支持甘特图的mermaid语法¹ 功能；
6. 增加了 多屏幕编辑 Markdown文章功能；
7. 增加了 焦点写作模式、预览模式、简洁写作模式、左右区域同步滚轮设置 等功能，功能按钮位于编辑区域与预览区域中间；
8. 增加了 检查列表 功能。

功能快捷键

撤销：Ctrl/Command + Z
重做：Ctrl/Command + Y
加粗：Ctrl/Command + B
斜体：Ctrl/Command + I
标题：Ctrl/Command + Shift + H
无序列表：Ctrl/Command + Shift + U
有序列表：Ctrl/Command + Shift + O
检查列表：Ctrl/Command + Shift + C
插入代码：Ctrl/Command + Shift + K
插入链接：Ctrl/Command + Shift + L
插入图片：Ctrl/Command + Shift + G
查找：Ctrl/Command + F
替换：Ctrl/Command + G

合理的创建标题，有助于目录的生成

直接输入1次#，并按下space后，将生成1级标题。
输入2次#，并按下space后，将生成2级标题。
以此类推，我们支持6级标题。有助于使用TOC语法后生成一个完美的目录。

如何改变文本的样式

强调文本 强调文本

加粗文本 加粗文本

标记文本

删除文本

引用文本

H₂O is是液体。

2¹⁰ 运算结果是 1024.

插入链接与图片

链接: link.

图片:

带尺寸的图片:

居中的图片:

居中并且带尺寸的图片:

当然，我们为了让用户更加便捷，我们增加了图片拖拽功能。

如何插入一段漂亮的代码片

去博客设置页面，选择一款你喜欢的代码片高亮样式，下面展示同样高亮的 代码片.

// An highlighted block
var foo = 'bar';

生成一个适合你的列表

• 项目
  • 项目
    • 项目

1. 项目1
2. 项目2
3. 项目3

• 计划任务
• 完成任务

创建一个表格

一个简单的表格是这么创建的：

项目	Value
电脑	$1600
手机	$12
导管	$1

设定内容居中、居左、居右

使用:---------:居中
使用:----------居左
使用----------:居右

第一列	第二列	第三列
第一列文本居中	第二列文本居右	第三列文本居左

SmartyPants

SmartyPants将ASCII标点字符转换为“智能”印刷标点HTML实体。例如：

TYPE	ASCII	HTML
Single backticks	'Isn't this fun?'	‘Isn’t this fun?’
Quotes	"Isn't this fun?"	“Isn’t this fun?”
Dashes	-- is en-dash, --- is em-dash	– is en-dash, — is em-dash

创建一个自定义列表

Markdown

Text-to- HTML conversion tool

Authors

John

Luke

如何创建一个注脚

一个具有注脚的文本。²

注释也是必不可少的

Markdown将文本转换为 HTML。

KaTeX数学公式

您可以使用渲染LaTeX数学表达式 KaTeX:

Gamma公式展示 $\Gamma (n)=(n-1)!\forall n\in \mathbb{N}$ 是通过欧拉积分

$$\Gamma (z)=$$