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

问题描述

|| 我目前有这个        私人Sub cmdPrint_Click（）          昏暗的我只要          Printer.FontItalic = True          Printer.CurrentX = 850          Printer.FontSize = 20          Printer.ForeColor = RGB（255、102、102）          Printer.Print txtR.Text＆vbCrLf＆vbCrLf＆vbCrLf＆GTB3.Text          Printer.EndDoc     结束子    但是我想在其中插入一些代码，以将从两个文本框中打印的所有文本对齐到中心 感谢您的时间     

解决方法

        这可以将其设置为左边距

Printer.CurrentX = LeftMargin

因此可能与以下代码类似的内容应该可以帮助您将其居中。

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