摘要载入中…　　　　请稍等…















内容载入中…　　　　请稍等…

如何实现打印右对齐？

 2009-1-5 20:06:01　　　来源：互联网　　
   

　·编程实现将所有窗口最小化　·打印机技巧 
如何实现打印右对齐？
 


'宣告打印字符串
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
　[1]