VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如何实现打印右对齐?
发表评论(0)作者:, 平台:, 阅读:12343, 日期:2000-03-12
'宣告打印字符串
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