下面怎么写 高手请教

[psboy316]

我画了一个长方形

Printer.ScaleMode = 6
Printer.PaperSize = vbPRPSA4

Printer.DrawStyle = 0
Printer.Line (77, 52)-(77, 78) '起点坐标-终点坐标
Printer.DrawStyle = 0
Printer.Line (77, 78)-(160.5, 78) '起点坐标-终点坐标
Printer.DrawStyle = 0
Printer.Line (160.5, 78)-(160.5, 52) '起点坐标-终点坐标
Printer.DrawStyle = 0
Printer.Line (160.5, 52)-(77, 52) '起点坐标-终点坐标


我要在这长方型里面的中间写 动态标志 4个字怎么写?
D T B Z

[lxy2008lxy]

[Quote=引用 1 楼 jhone99 的回复:]
结帖率：0.00%
[/Quote]
就是，发帖有十个了。

[jhone99]

结帖率：0.00%

[jhone99]

Printer.FontSize
Printer.CurrentX
Printer.CurrentY
Printer.Print

这样控制

[Tiger_Zhao]

用 TextWidth()、TextHeight() 求出文字区的大小；
结合外边框的坐标、按照居中的方式计算文字区的左上角坐标，设置CurrentX、CurrentY；
用 Print 打印文本。

[psboy316]

大家能否写的详细点

[booksoon]

关注~~~

[psboy316]

谢谢大家

[okexcel]

[Quote=引用 6 楼 lxy2008lxy 的回复:]
引用 1 楼 jhone99 的回复:
结帖率：0.00%

就是，发帖有十个了。
[/Quote]

不能支持这种人！