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