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

(责任编辑：admin)

• ·解决Access在页面设置中设置边距无法保
• ·Access通用报表打印设置
• ·在Access中使用自动化打印报告
• ·报表奇偶分页打印
• ·access输出资料到word用于打印
• ·支票打印的日期大写问题Access2007
• ·[报表]报表跨节垂直居中例子
• ·ACCESS-VBA编程 第八章 报表
• ·用Access2007解决支票打印的日期大写问
• ·自由设置页码打印报表
• ·ACCESS和EXECL结合的简单说明
• ·每页打印一定行数后自动分页（报表分页
• ·在VB中用代码打印ACCESS报表
• ·[原创]在 Access 2000中变通实现弹出式
• ·在Access 2002中打印报表的关系图
• ·Access轻松实现多数据批量打印