Question

我有一个图片框，我在里面打印内容。我想知道文本的确切文本宽度，以毫米为单位。但我错了价值。这是我的代码

me.scalemode = vbmillimeters
picturebox.scalemode = vbmillimeters

picturebox.fontname = "Arial"
picturebox.fontsize = 12
debug.print textwidth("AB.C.D.E. FGHIJKLMN")

当我在纸张打印输出中测量它是48毫米但它显示32.97mm

请帮我错。提前致谢

Answer 1

如果您需要打印到图片框的文本宽度，请使用：

PictureBox.textwidth("AB.C.D.E. FGHIJKLMN")

您实际在做什么：textwidth("AB.C.D.E. FGHIJKLMN")测试打印到表单（Me）的相同文本。

这样做会减少错误：

Dim TextWidth as Single
With PictureBox
  .ScaleMode = vbMillimeters
  .FontName = "Arial"
  .FontSize = 12
  TextWidth = .TextWidth("AB.C.D.E. FGHIJKLMN")
End With

因为如果您正在切换到纸张，您还可以轻松切换上下文：

With SelectedPrinter....

文字宽度无法以毫米为单位显示vb6

1 个答案: