VisualFoxpro通用报表打印程序

经常使用数据库程序，现在很多用户使用报表设计器设计报表，简单方便。然而，在我的工作中，我必须打印数百个数据库。除了字段名不同，这些数据库的结构信息基本相同。因此，我编制了以下通用程序，供同行参考。
set talk off
hh1 = print status()
set print on
do while . not . hh1
？“打印机还没有准备好， 请准备打印机"
hh1 = print status()
enddo
set talk off
set device to print
clear[a1 = getfile(" DBF ")& &打开文件打开对话框[/br Use "&a1" &&打开指定的文件
n1=fcount() &&获取打开库中的字段数
维a(n1) &&定义一个字段名称数组
维b(n1) k = k+1
enddo & &将字段名分配给数组
w = 1
do while w b(w)= fsize(a(w))& & else
b(w)= b(w)+2
endif
w = w+1
enddo
do while not eof()
R1 = 1 & &第一个do while m if m=1
@r1

M=1 &&显示字段名line
col 1 = 1
do while m if m = 1
@ R1+1，col1say "∣"+substr (a (m)，1，6)+replicate("，(b(m)-len(a(m)))
else
if m = n1
@ R1+1，col 1 say " ∣"+substr(a(m),1,6)+replicate( "，(b(m)-len(substr(a(m)，1，6))))+"∣)"/br/]else 字段名line
col1 = 1
do while m if m = 1
@ R1+2，col 1表示“∣"+substr (a (m)，7)
else
。 col1说“∣"+substr(a(m),7)+replicate(”“,(b(m)-len(substr(a(m),7))))+"∣”
else
@ R1+2，col1说“∣"+substr(a(m”，7)
endif
endif
col 1 = col 1+b(m)
m = m+1
enddo
m = 1 & &在字段名下面显示一个表格行。