vfp通用打印程序（VFP universal print program）.docVIP

vfp通用打印程序（VFP universal print program） 集谈了 printstatus() HH1 = 设置打印 而not.hh1做。 MessageBox（“打印机未准备好，请准备好打印机”，64） printstatus() HH1 = 结束循环 集谈了 设置打印设备 清楚的 A1 = GetFile（\“数据库\”）和打开打开文件对话框 使用“A1”和打开指定的文件 N1 = fcount() 获取打开的库中的字段数 尺寸（N1）和定义一个存放字段名的数组 尺寸B（N1）和定义一个存放字段宽度的数组 K = 1 在k时做 A（k）=场（k） k＝k＋1 enddo 将字段名赋给数组 W = 1 当w = N1时执行 B（W）= fsize（A（W））和获取字段的长度 如果b（w） 6 b（w）＝8 其他的 b（w）＝b（w）+ 2 endif w＝w + 1 结束循环 而不是eof() R1 = 1和显示表头的第一行 M = 1 2 = 1 在m＝N1时执行 如果m＝1 @ R1，COL1说“┌”+复制（\“\”，B（m）） 其他的 如果m＝N1 @ R1，COL1说“┬”+复制（\“\”，B（m））+“┐\” 其他的 @ R1，COL1说“┬”+复制（\“\”，B（m）） endif endif col1 = col1 + B（m） m＝m + 1 结束循环 M = 1和显示字段名行 2 = 1 在m＝N1时执行 如果m＝1 @ R1 + 1，2说“∣”+ substr（A（M）、1,6）+复制（\“\”（B（m）-莱恩（A（M）））） 其他的 如果m＝N1 @ R1 + 1，2说“∣”+ substr（A（M）、1,6）+复制（\“\”（B（m）-莱恩（substr（A（M）、1,6））））+“∣\” 其他的 @ R1 + 1，2说“∣”+ substr（A（M）、1,6）+复制（\“\”（B（m）-莱恩（substr（A（M）、1,6）））） endif endif col1 = col1 + B（m） m＝m + 1 结束循环 M = 1和由于字段多，一行不能完全显示整个行，因此分为两行显示字段名行 2 = 1 在m＝N1时执行 如果m＝1 @ R1 + 2，2说“∣”+ substr（A（M），7） 其他的 如果m＝N1 @ R1 + 2，2说“∣”+ substr（A（M），7）+复制（\“\”（B（m）-莱恩（substr（A（M），7））））+“∣\” 其他的 @ R1 + 2，2说“∣”+ substr（A（M），7） endif 如果[页] col1 = col1 + B（m） m＝m + 1 结束循环 M = 1和显示字段名下面的一行表格线 2 = 1 在m＝N1时执行 如果m＝1 @ R1 + 3，2说“├”+复制（\“\”，B（m）） 其他的 如果m＝N1 @ R1 + 3，2说“┼”+复制（\“\”，B（m））+“┤\” 其他的 @ R1 + 3，2说“┼”+复制（\“\”，B（m）） endif endif col1 = col1 + B（m） m＝m + 1 结束循环 row1 = R1 + 4 而不做。。eof() 每页显示20个记录 M = 1和显示各记录的值 2 = 1 在m＝N1时执行 如果type（a（m）“=”“C” 如果m＝1 @ row1，COL1说“∣”+一个（M） 其他的 如果m＝N1 @ row1， col1 say \ ∣ \ + alltrim ( a (m)) + (\ \ (b (m) - len (alltrim ( a (m))))) + \ ∣ \ else @ row1, col1 say \ ∣ \ + (m) endif endif else if m = 1 @ row1, col1 say \ ∣ \ + str ( a (m)) else if m = n1 @ row1, col1 say \ ∣ \ + alltrim (str ( a (m))) + (\ \ (b (m) - len (alltrim (str ( a (m)))))) + \ ∣ \ else @ row1, col1 say \ ∣ \ + alltrim (str ( a (m))) endif endif endif col1 = col1 + b (m) m = m + 1 enddo skip if - eof () 显示数据库结束的最后一行 m = 1 col1 = 1 while m i = n1 if m = 1 @ row1 + 1, col1 say \ └ \ + (\ \ , b (m)) else if m =