Printing preview prbolem

[former_member193355]

Dear Experts,

I am trying to print preview using addon written in VB6 language in B1 2007 version but failed. Here is the part of source code that successful to use in printing preview in B1 2004 or 2005 but failed in current new version:

Public Sub Process_133 (ByVal FormUID As String, pVal As SAPbouiCOM.ItemEvent, BubbleEvent As Boolean)
 'Form AR Invoice process
  'hide  Sales Quotation and Sales Order
    If pVal.EventType = et_FORM_ACTIVATE Then
       Set oForm = SboApplication.Forms(pVal.FormUID)
       'hide sales order 
       Set oItem = oForm.Items.Item("36")
       oItem.Visible = False
       'hide sales quotation 
       Set oItem = oForm.Items.Item("37")
       oItem.Visible = False
    End If
    If pVal.EventType = et_FORM_LOAD Then
         If pVal.Before_Action = True Then
                Set oForm = SboApplication.Forms(pVal.FormUID)
                'hide sales order 
                Set oItem = oForm.Items.Item("36")
                oItem.Visible = False
                'hide sales quotation 
                Set oItem = oForm.Items.Item("37")
                oItem.Visible = False
                'BubbleEvent = True
         End If
           
                'Add button to show report about paid invoice based on customer code
                Set oItem = oForm.Items.Add("BtnPaid", it_BUTTON)
                oItem.Top = oForm.Items("138").Top
                oItem.Left = oForm.Items("138").Left + oForm.Items("138").Width
                oItem.Width = 80
                Set oButton = oItem.Specific
                oButton.Caption = "Paid Invoice"
           
                'Add button to show report about un paid invoice based on customer code
                Set oItem = oForm.Items.Add("BtnUnPaid", it_BUTTON)
                oItem.Top = oForm.Items("BtnPaid").Top
                oItem.Left = oForm.Items("BtnPaid").Left + oForm.Items("BtnPaid").Width + 5
                oItem.Width = 80
                Set oButton = oItem.Specific
                oButton.Caption = "UnPaid Invoice"
                
                'Set posting date field false
                Set oItem = oForm.Items("10")
                oItem.Enabled = False
                'BubbleEvent = False

Run-time error '-7012 (ffffe49c)':

ITem - already exists [66000-13]. Form Unique Id: F_151, Item Unique Id : BtnPaid and BtnUnPaid

Pls give help. I appreciate your help so much.

Rgd,

Steve

[Former Member · Accepted solution]

Hi,

In which form are u adding the new buttons. Check for the form and check if all the old items which u have used as a reference are unchanged.

And use a TRY and CATCH block and try to pin point the exact location of the error, u can also put up a break point and check the code execution.

Vasu Natari.