vb.net – 打印/图形问题

范围：
我开发了一个标签打印程序,用于打印斑马打印机的自定义标签.当我尝试将整个标签作为图像打印时,打印机的清晰度出现问题因此我试图将标签中的所有文本存储到数组中,清除标签,将剩余的图像发送到打印机,以及根据存储的数组叠加新文本.此结果旨在将文本发送到打印机而不是图像.

问题：
由此产生的标签对于文本非常清晰,因为我想要它但是我的打印方法对齐时遇到了麻烦.对于测试,我将显示原始图像,顶部有覆盖文本,它们应完全对齐或在合理范围内关闭.这样做的结果是它们没有对齐.

测试：

Dim g2 As Graphics
    g2 = Form1.PictureBox2.CreateGraphics
    g2.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
    g2.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
    g2.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
    g2.Clear(Color.White)

    g2.DrawImage(largeimage,New Point(0,0))

    Dim myBrush As Brush
    Dim i As Integer = 0
    Do Until i = label_array.Count - 1
        myBrush = New SolidBrush(label_array(i).ForeColor)
        g2.DrawString(label_array(i).Text,label_array(i).Font,myBrush,label_array(i).Location)
        i = i + 1
    Loop

在打印方法中,我使用上述方法将叠加和图像输出到图片框.当这样做时,它工作,但是……

e.Graphics.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
    e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
    e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
    e.Graphics.Clear(Color.White)

    e.Graphics.DrawImage(largeimage,0))

    i = 0
    Do Until i = label_array.Count - 1
        myBrush = New SolidBrush(label_array(i).ForeColor)
        e.Graphics.DrawString(label_array(i).Text,label_array(i).Location)
        i = i + 1
    Loop

..将它显示在上面显示的打印图形上会导致错位……

任何想法都欢迎,因为我会尝试任何事情.我猜测打印图形正在做一些我不知道的普通图形.

我注意到与DrawString相比,TextRenderer.DrawText改善了结果.然而,当使用它时,结果似乎是通过一些未知的缩放因子从原始缩放…

以下是原始顶部的结果叠加层：