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); "┃付|全 称|abcdefffff |收|全 称|abcdeeeeee┃"
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); "┃款项内容|aaaaaaaa |合同号| |附寄单证张数| ┃"
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
