<HTML>
<HEAD>
<TITLE>制作固定资产标签</TITLE>
<SCRIPTLANGUAGE="VBScript">
<!--
Sub DoPrint(strExport)
Dim TheForm
Set TheForm = Document.ValidForm
Dim ObjDoc
Set ObjDoc = CreateObject("bpac.Document")
strDir =
"有LBX文件的文件夹"
bRet = ObjDoc.Open(strDir &
"固定资产名称.lbx")
If (bRet <> False) Then
ObjDoc.GetObject("Name").Text = TheForm.FixedAsset.Value
ObjDoc.GetObject("Section").Text = TheForm.SectionName.Value
ObjDoc.GetObject("Number").Text = TheForm.SectionNo.Value
ObjDoc.GetObject("QR条码1").Text = TheForm.SectionNo.Value
ObjDoc.StartPrint "DocumentName", bpoAutoCut
ObjDoc.PrintOut 1, bpoAutoCut
ObjDoc.EndPrint
ObjDoc.Close
End If
Set ObjDoc = Nothing
End Sub
-->
</SCRIPT>
</HEAD>
<FORMNAME="ValidForm">
固定资产名称:
<INPUTVALUE="" NAME="FixedAsset" SIZE=30><BR>
管理部门:
<INPUTVALUE="" NAME ="SectionName" SIZE=30><BR>
管理No:
<INPUTVALUE="" NAME ="SectionNo" SIZE=30><P>
<INPUTTYPE="button" VALUE="打印" onClick='DoPrint'>
</FORM>
</BODY>
</HTML>