将VB或C#代码转换为PB代码,万分感谢!该怎么解决

将VB或C#代码转换为PB代码,万分感谢!
将VB或C#代码转换为PB代码,万分感谢!

因为不能发附件,发链接地址:
http://www.teklynx.com/top_pages/cs_actxsamples.html

主要是打印部分的代码,其它的不用,谢谢!

将VB或C#代码转换为PB代码,万分感谢!

[解决办法]

VB code

dim cs, var, doc, label, qty, intDoIt'open a new CodeSoft no CodeSoft is launched'set cs = getobject (,"lppx2.application")set cs = createObject ("lppx2.application")'cs.Application.Visible = truelabel = InputBox("label to be printed","Open Label","identity")set doc = cs.documents.open (label,TRUE)if (MsgBox ("Do you want to modify the form variables values ?",vbOkCancel+vbInformation,"form variables") = vbOk) then    ' lppxFormDialog = 3    cs.Dialogs.Item (3).Show (null)end if'doc.ViewMode = lppxViewModeValue'doc.copytoclipboarddoc.PrintDocument (1)cs.Documents.CloseAll (false)cs.quit
[解决办法]
VB code
integer resultOLEObject cscs= CREATE OLEObjectresult = myoleobject.ConnectToObject("", "lppx2.application")doc = cs.documents.open (label,TRUE)doc.PrintDocument (1)cs.Documents.CloseAll (false)