将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)