<<< 返回 access911.net 编程静态资料库索引页

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

 

作者:  摘自:  录入:cg1  时间:2002-12-13  浏览人次:1336


专题地址:http://access911.net/fixhtm/71FAB41E17DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


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); "┠────────────────────────────────────────┨" 
Pr.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/71FAB41E17DC.htm

 


上一篇:通过调用regsvr32.exe自动注册控件的函数

下一篇:access911.net简介及历史

2017年2月22日生成静态资料