VB6.0 编程 关于编写打印程序.恭敬前辈
打印一组数据,如何把它打印机成 文本靠左,数字靠右.
参考答案:通过自己的设计和编程完成报表打印输出。
传送正文和图形给 Printer 对象,再用 NewPage 和 EndDoc 方法打印。
Option Explicit
Private y As Integer
Private x As Integer
Private txt As String
Private fnt As Integer
Private dd As Variant
'打印函数
Public Function prnt(x As Variant, y As Variant, fnt As Variant, txt As Variant)
Printer.CurrentX = x
Printer.CurrentY = y
Printer.FontSize = fnt
Printer.Print txt
End Function
Private Sub cmdPrint_Click()
fnt = 18
y = 300
x = 500
txt = "打印"
dd = prnt(x, y, fnt, txt)
Printer.EndDoc ' 打印完成。
End Sub
详细请参阅如下网址本人的答复:
参阅网址本人的答复。
关于文本靠左,数字靠右的实现办法,文本按上述代码定位打印即靠左.而数字要靠右,则需使用LEN函数先计算打印的数字其字符长,然后在其前补足长度,例:
Text1 = "123.5"
l = Len(Text1)
Text2 = Space(10 - l) & Text1 '此初10为假定打印数字长度
经过这样处理后,凡数字处理成定长字符串按文本方式打印,它就实现靠右对齐.