1

实际上我正在尝试在热敏打印机上打印光栅图像

(实际上尝试了两种不同类型的打印机并遇到相同的问题)

打印图像在我发送的每组字节中制作一条白线。

正如您在下面的屏幕上看到的那样,我试图打印以下图片:

在此处输入图像描述

但这是我打印后的结果,以及与任何其他图像相同的问题:

在此处输入图像描述

这是我试图打印独特黑线的代码

For i = 1 To 60 * 1

    appIMG &= Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255)

    appIMG &= Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255)

    appIMG &= Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255)

    appIMG &= Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255) & Chr(255)
Next

使用以下代码,这是结果

在此处输入图像描述

64 是宽度字节,高度是 120 位,因此最大图像大小为 512 像素 x 120 像素的行

NewSer.WriteLine (Chr(29) & Chr(118) & Chr(48) & Chr(48) & Chr(64) & Chr(0) & Chr(120) & Chr(0) & appIMG)

NewSer.WriteLine (Chr(29) & Chr(118) & Chr(48) & Chr(48) & Chr(64) & Chr(0) & Chr(120) & Chr(0) & appIMG)

NewSer.WriteLine (Chr(29) & Chr(118) & Chr(48) & Chr(48) & Chr(64) & Chr(0) & Chr(120) & Chr(0) & appIMG)

NewSer.WriteLine (Chr(29) & Chr(118) & Chr(48) & Chr(48) & Chr(64) & Chr(0) & Chr(120) & Chr(0) & appIMG)
4

0 回答 0