查看完整版本: 如何实现打印右对齐？

如何实现打印右对齐？

　　'宣告打印字符串
Dim PrintString As String
'宣告打印字符串宽度
Dim StrWidth As Single

'你要输出的字符串
PrintString = "You can say something"

'计算字符串宽度
StrWidth = Printer.TextWidth(PrintString)

'设定印字头横向位置
Printer.CurrentX = Printer.ScaleWidth - StrWidth

'打印机印出该字符串
Printer.Print PrintString