vb picture.print 居中

控制位置，就可以了，但必须先把要打印的东西转换成字符串类型，因为需要使用TextWidth方法来计算文字的实际宽度。例子如下

Private Sub Command1_Click()
Dim X As Single, Y As Single
Dim W As Single
Dim S As String

S = "ABCDEFG" '要打印什么由你确定

W = Picture1.TextWidth(S)
X = (Picture1.Width - W) / 2
Y = 50 'Y 的值由你确定

Picture1.CurrentX = X
Picture1.CurrentY = Y
Picture1.Print S
End Sub

Me.Picture1.Print " " & "123"

将空格数量调节到居中的位置!!!

谢啦