用Printer对象 如: dim x as long dim y as long dim s as long '行间距自己定义 dim ys as long '共几行 ys=10 s=90 x=20 '左边距自己控制 y=20 '起始行自己控制printer.width=4000 printer.height=9000 '注纸张大小自己定义 printer.currentx = 20 printer.currenty = 20 strTXT="编号 时间 ......" printer.print strTXT for i=1 to ys strTXT=编号字段值+" "+时间变量值 y=y+s printer.currentx=20 printer.currenty=y printer.print strTXT '本行的变量(而自己计算) next i printer.enddoc '送到打印机 如果你不习惯用printer对象的话用Word来实现比较容易。
如:
dim x as long
dim y as long
dim s as long '行间距自己定义
dim ys as long '共几行
ys=10
s=90
x=20 '左边距自己控制
y=20 '起始行自己控制printer.width=4000
printer.height=9000
'注纸张大小自己定义
printer.currentx = 20
printer.currenty = 20
strTXT="编号 时间 ......"
printer.print strTXT
for i=1 to ys
strTXT=编号字段值+" "+时间变量值
y=y+s
printer.currentx=20
printer.currenty=y
printer.print strTXT '本行的变量(而自己计算)
next i
printer.enddoc '送到打印机
如果你不习惯用printer对象的话用Word来实现比较容易。
[email protected]谢谢!
[email protected]