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 & &在字段名下麪顯示一個表格行。

位律師廻複