Private Sub m_BillTransfer_LoadBillEnd(ByVal ShowType As Long)
'TODO: 请在此处添加代码响应事件 LoadBillEnd
With m_BillTransfer.BillForm.tlbTool.Buttons
.Add .Count, "mnuEngPrint", "英文打印", , 24
End With
' m_BillTransfer.BillForm.tlbTool.Buttons("PRINT").Enabled = False
' m_BillTransfer.BillForm.tlbTool.Buttons("PRINTVIEW").Visible = False
End Sub
Private Sub m_BillTransfer_RetEvents(ByVal Para As KFO.IDictionary)
If Para("EventID") = "Bill_ButtonClick" And Para("EventIDProp") = 1 Then
If Para("Para")("Button").Key = "mnuEngPrint" Then
MsgBox "Shell你的打印程序"
End If
End If
End Sub
'TODO: 请在此处添加代码响应事件 LoadBillEnd
With m_BillTransfer.BillForm.tlbTool.Buttons
.Add .Count, "mnuEngPrint", "英文打印", , 24
End With
' m_BillTransfer.BillForm.tlbTool.Buttons("PRINT").Enabled = False
' m_BillTransfer.BillForm.tlbTool.Buttons("PRINTVIEW").Visible = False
End Sub
Private Sub m_BillTransfer_RetEvents(ByVal Para As KFO.IDictionary)
If Para("EventID") = "Bill_ButtonClick" And Para("EventIDProp") = 1 Then
If Para("Para")("Button").Key = "mnuEngPrint" Then
MsgBox "Shell你的打印程序"
End If
End If
End Sub