#7225
Support 1a
Participant

This should be possible using the NativeInterface property of a portal. The nativeInterface property gives you the IWebBrowser2 interface for the portal, which in tern has an ExecWB() method. You can use this method to print the contents of the portal.

Here’s an example:

Sub Main(Client, GWEvent)

   dim iPortals
   dim iPortal1
   dim iret

   Set iPortals = GroupWise.PortalManager.Portals
   Set iPortal1 = iPortals.Item("PORTAL1")

   If iPortal1 is Nothing Then
     Set iPortal1 = iPortals.Add
     iPortal1.Caption = "Advansys Home"
     iPortal1.TabCaption = "Advansys"
     iPortal1.ID = "PORTAL1"
     iPortal1.NavigationControlsEnabled = True
     iPortal1.URLInputEnabled = True
     iPortal1.Url = "www.advansyscorp.com"
   else
     MsgBox "Found it - try to print it"
     const IDM_PRINT = 6
     call iPortal1.NativeInterface.ExecWB(IDM_PRINT, -1)
   End If

End Sub

This is somewhat incomplete, because the printer selection dialog still appears. I understand it should be possible to turn this off by using flags. See the Microsoft Documentation on the IWebBrowser2.ExecWB() method, and the IDM_PRINT command. More information is available at http://msdn.microsoft.com/workshop/browser/mshtml/reference/constants/idm_print.asp.

I hope this helps.

Advansys Support