对齐文本在VB6

Question

打印我现在有这个

私人小组cmdPrint_Click（）

昏暗我只要

Printer.FontItalic =真

Printer.CurrentX = 850

Printer.FontSize = 20

Printer.ForeColor = RGB（255，102，102）

Printer.Print txtR.Text & vbCrLf & vbCrLf & vbCrLf & GTB3.Text

Printer.EndDoc 结束子

---

但是我想在那里的地方插入一些代码，将调整所有从两个文本框印入中心

谢谢您的时间

Answer 1

文本这可以将其设置为左边距

Printer.CurrentX = LeftMargin 

所以可能类似于下面的代码应该帮助你居中。

Printer.CurrentX = LeftMargin + _ 
     (PrintWidth - Printer.TextWidth(str))/2