|
8#
楼主 |
发表于 2002-11-26 00:55:00
|
只看该作者
如果安装了Office2000则在其 ..\office\Msbcode9.ocx 及 Msbcode9.hlp条形码控件。(Office97好象没有)
在PB7中,Insert -> Control ->OLE...
出现Insert Object对话框
选择Insert Control页
单击Register New 指定..\office\Msbcode9.ocx 路径
(或run: regsvr32 c:\office2k\office\Msbcode9.ocx)
(好象不重新注册不能在VB & PB... 中使)
代码:
long Job
Job = PrintOpen( )
Ole_1.border=false
ole_1.Print(Job, 500,1000)
PrintClose(Job)
Ole_1.border=true
效果不错!
虽然Msbcode9.ocx本身没有Print方法,但PB中的OLE容器有Print方法(意外)。 |
|