How to get a UDF value inside print event.

Question

I'm designing an add-on that will print 3 labels based on different criteria when and Invoice or a Delivery ticket is print.  Each label will go to a different printer since these are specifilly dedicated to each type of label/form.
My problem is that that I have 2 UDF in the header of the marketing documents (Y/N fields) that flag me when 2 of the labels needs to be printed.  I have tried unsuccessfully to get the value from the UDF items in the form, I got several information like cardname, shipto address and total from the marketing document form, but no UDF can be access. 
Below find copy of my routine (tPOTD is my UDF), this code will only work if there is only one instance of the form open, now is there's a way of knowing the instance number of a specific form?
Private Sub SBO_Application_PrintEvent(ByRef printeventInfo As SAPbouiCOM.PrintEventInfo, ByRef BubbleEvent As Boolean) Handles SBO_Application.PrintEvent
        Dim s As String
        Dim DocType As String
        Dim oForm As SAPbouiCOM.Form
        Dim tInvNum As SAPbouiCOM.EditText
        Dim tName As SAPbouiCOM.EditText
        Dim tshipto As SAPbouiCOM.EditText
        Dim ttotal As SAPbouiCOM.EditText
        Dim tPOTD As SAPbouiCOM.ComboBox
        If printeventInfo.BeforeAction = True And printeventInfo.PrintEventType = SAPbouiCOM.BoPrintEventTypes.pet_Print Then
            oForm = SBO_Application.Forms.Item(printeventInfo.FormUID)
            If oForm.TypeEx = "133" Or oForm.TypeEx = "60090" Then
                DocType = "Invoice"
            Else
                DocType = "Delivery"
            End If
            tInvNum = oForm.Items.Item("8").Specific
            tName = oForm.Items.Item("54").Specific
            tshipto = oForm.Items.Item("92").Specific
            ttotal = oForm.Items.Item("29").Specific
' Next line is to get the value of the UDF but it fails finishing the routine and no exceptions raise
            tPOTD = SBO_Application.Forms.GetForm("-" + oForm.TypeEx, oForm.TypeCount - 1).Items.Item("U_PrintOTD").Specific
            s = tName.Value + Chr(13) + Chr(10) + Replace(tshipto.Value, Chr(13), Chr(13) + Chr(10)) + Chr(13) + _
                Chr(10) + Chr(13) + Chr(10) + DocType + ": " + tInvNum.Value + "   Total: " + ttotal.Value
        End If
EndSub

Answer 1

First off, do you have the UDF form visible?  If not, I'm not aware of a way to retrieve the UDF data without the DI-API.
Assuming you're printing with the form active, you can use the SBO_Application.Forms.ActiveForm.TypeCount value to obtain the "instance" of the form, I'd guess.  I haven't tried it, but I assume it would work:
UDFForm = SBO_Application.Forms.GetFormByTypeAndCount(-133, SBO_Application.Forms.ActiveForm.TypeCount)
Then your field would be:
UDFValue = oUDFForm.Items.Item("U_MYFIELD").Specific
Message was edited by:
        Curtis Fry