请懂PB和VB或DELPHI的朋友请进(50分)

本在用别人的一个DLL文件时
它是优化F1BOOK的预览
可他只提供了PB程序
可我哪一点PB知识又看不懂
其程序如下
oleobject ole
integer result
any re
ole = CREATE OLEObject
result = ole.ConnectToNewObject("carelandprintservice.printService")
If result <> 0 then
messagebox("error", "create object error")
else
result = 12
string sname = "c:/ls.vts"
re= ole_1.object.Write("c:/ls.vts", result)
re = ole.Print_vts("$A$1:$G30","c:/ls.vts")
re = ole.DisconnectObject ()
End If
请问其代表什么意思敬请高手
将其改为VB或DELPHI的程序
注DLL为
carelandprintservice.dll
现在我只有这么点分了
请帮助我把
哪门！！！！

大家回答我好吗

朋友，你应该提供OLE对象carelandprintservice.printService的信息，
不然没有办法知道在Delphi中运行对不对。
最少你得知道那是个什么东西。

ADMIMIS我已经把例子发给你了

大家回答我好吗

大家回答我好吗

我好同情你

给我的程序已收到，你可以这样做：
首先安装和注册CareLandPrintService.dll，估计是有安装程序的。
如果没有，你要在命令符下敲 "regsvr32 c:/../CareLandPrintService.dll"，
要把路径部分c:/../写全。
在Delphi中新建项目，在uses 部分加入 ComObj 单元。
然后可以写如下代码：
procedure TForm1.Button1Click(Sender: TObject);
var Prt : Variant;
begin
Prt := CreateOleObject('carelandprintservice.printService');
Prt.Print_vts('$A$1:$G30','c:/temp/sample.vts');
......
end;

其中Print_vts是调用dll中的方法。这个方法的第一个参数是打印的区域，
第二个参数是要打印的文件。如果你接触过VTS格式的文件就知道，
它是类似EXCEL的东西。
我在调用Print_vts方法的时候报错说缺少comdlg32.ocx里面的什么东东，
估计在安装你的那个控件的时候才有，
我没有安装所以报错。你可以在自己的机器上试一下。
该DLL中还有很多别的方法和属性，你要看看它的帮助才能知道。

你好adminis
你的来信我已经收来了非常感谢你
我的VB程序如下
并已通过
Dim xlapp As Object
Set xlapp = CreateObject("carelandprintservice.printService")
F1Book1.Write "c:/ls.vts", 12
xlapp.Print_vts "$A$1:" &amp;
Chr(96 + F1Book1.LastCol) &amp;
F1Book1.LastRow, "c:/ls.vts"
你的说的报错是因为你没有安装VB
对了
你是如何知道该DLL文件有很多的方法和属性，
我知道可以用QUICKVIEW看可我不知它在哪里你还能帮助我吗
分已经给加上了