How realize print of the createded form? URGENT!!!!!

Question

Hi all
I created user form in sbo 2004. and a have pattern of printed form. how realize printing use Menu Uid 519? (please code vb)
thanks
Message was edited by: Artem Artamonov
Message was edited by: Artem Artamonov

Answer 1

Hi Artem,
Here is piece of my code for printing through word
I hope this helps.
Imports Microsoft.Office.Interop
Dim wordApp As Word.Application = New Word.Application
wordApp.Visible = False
Dim document As Word.Document =                      wordApp.Documents.Add(GetAddOnDirectory() + "req4quot.dot", False, Word.WdNewDocumentType.wdNewBlankDocument, True)
Dim zp As SAPbobsCOM.IBusinessPartners = main.sboCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oBusinessPartners)
zp.GetByKey(Item("supplier").Specific.string)
Dim supplier As String = zp.CardName + vbCrLf + zp.ContactPerson + vbCrLf + zp.Address + vbCrLf + zp.ZipCode + " " + zp.City + vbCrLf + zp.Country
document.Application.Selection.GoTo(what:=Microsoft.Office.Interop.Word.WdGoToItem.wdGoToBookmark, Name:="supplier")
document.Application.Selection.InsertAfter(supplier)
document.Application.Selection.GoTo(what:=Microsoft.Office.Interop.Word.WdGoToItem.wdGoToBookmark, Name:="itemdesc")
document.Application.Selection.InsertAfter(Item("itemdesc").Specific.string)
document.Application.Selection.GoTo(what:=Microsoft.Office.Interop.Word.WdGoToItem.wdGoToBookmark, Name:="quantity")
document.Application.Selection.InsertAfter(Format(Val(Item("quantity").Specific.string), "#,###,##0"))
Dim filename As String = GetAddOnDirectory() + "req 4 quot dd" + Format(Now, "yyyy-mm-dd hh:mm:ss") + ".doc"
Console.WriteLine(filename)
document.SaveAs(GetAddOnDirectory() + "req 4 quot - " + Format(Now, "yyyymmddhhmmss") + ".doc")
document.PrintOut()
document.Close(Word.WdSaveOptions.wdDoNotSaveChanges)
wordApp.Quit()
Regards
Ad