将多行文本框中的文本对齐，以便在vb6中打印

Question

我目前有这个

  

    

Private Sub cmdPrint_Click（）

         

Dim i As Long

         

Printer.FontItalic = True

         

Printer.CurrentX = 850

         

Printer.FontSize = 20

         

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

         

Printer.Print txtR.Text＆amp; vbCrLf＆amp; vbCrLf＆amp; vbCrLf＆amp; GTB3.Text

         

Printer.EndDoc     结束子

  

---

但是我想在那里插入一些代码，将所有从两个文本框打印的文本对齐到中心

感谢您的时间

Answer 1

这可以将其设置为左边距

Printer.CurrentX = LeftMargin

因此可能与下面的代码类似的内容可以帮助您集中精力。

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