下面怎么写 高手请教

Question

我画了一个长方形Printer.ScaleMode = 6
Printer.PaperSize = vbPRPSA4Printer.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
                           

Answer 1

Printer.FontSize
Printer.CurrentX
Printer.CurrentY
Printer.Print这样控制

Answer 2

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