直接使用print输出字符构成报表一例

原文地址：http://access911.net/index.asp?board=4&mode=3&recordid=71FAB41E17DC

Private Sub lpt_test() 

Dim i As Integer 
Dim FNO As Integer 

i = 5 
FNO = FreeFile 
Open "lpt1" For Output Access Write As #FNO 
Print #FNO, Spc(i); 
Print #FNO, Spc(i); "　　　同城特约委托收款（回　 单）　　 1　委托号：00000001" 
Print #FNO, Spc(i); "　　----------------------------------------------------" 
Print #FNO, Spc(i); " 委托日期：2001 年 12 月 16 日　　　　　 缴纳月份：2001 年 12 月 至 2001 年 12 月 " 
Print #FNO, Spc(i); "┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓" 
Print #FNO, Spc(i); "┃付|全　　称|XXXXXXXXXXXXXX　　　　　　　|收|全　　称|XXXXXXXXXXXXXXXXX┃" 
Print #FNO, Spc(i); "┠────────────────────────────────────────┨" 
Print #FNO, Spc(i); "┃款|帐　　号|　　　　　　　　　　　　　　　　　|款|帐　　号|　　　　　　　　　　 ┃" 
Print #FNO, Spc(i); "┠────────────────────────────────────────┨" 
Print #FNO, Spc(i); "┃人|开户银行|　　　　　　　　　　　　　　　　　|人|开户银行|　　　　　　　　　　 ┃" 
Print #FNO, Spc(i); "┠────────────────────────────────────────┨" 
Print #FNO, Spc(i); "┃委托金额|(大写):十六万四千八百六十四元七角八分　　　　　　|(小写):164864.78　　 ┃" 
Print #FNO, Spc(i); "┠────────────────────────────────────────┨" 
Print #FNO, Spc(i); "┃款项内容|XXXXXXXXXXX　　　　　　　　　　　　　 |合同号|　　　 |附寄单证张数|　　 ┃" 
Print #FNO, Spc(i); "┠────────────────────────────────────────┨" 
Print #FNO, Spc(i); "┃备注：　　　　　　　　　　　　　　　　　　　　| 款项收妥日期 |收款人开户银行盖章┃" 
Print #FNO, Spc(i); "┠───────────────────────|　　　　　　　|　　　　　　　　　┃" 
Print #FNO, Spc(i); "┃　　　　　　　　　　　　　　　　　　　　　　　|　　　　　　　|　　　　　　　　　┃" 
Print #FNO, Spc(i); "┠───────────────────────|　　　　　　　|　　　　　　　　　┃" 
Print #FNO, Spc(i); "┃　　　　　　　　　　　　　　　　　　　　　　　|　　　　　　　|　　　　　　　　　┃" 
Print #FNO, Spc(i); "┠───────────────────────|　　　　　　　|　　　　　　　　　┃" 
Print #FNO, Spc(i); "┃　　　　　　　　　　　　　　　　　　　　　　　|　　年　月　日|　　 年　 月　 日 ┃　" 
Print #FNO, Spc(i); "┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛" 
Print #FNO, Spc(i); "　单位主管　　　　　会计　　　　　　　　　复核　　　　　　　记帐" 
Print #FNO, Spc(i); "" 
Close #1 

End Sub