對齊文本在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