Przycisk na formularzu i makro

[jacekg11]

Witam

Potrzebuje zrobić makro do przycisku na formularzu, który uruchomi mi raport, jak to zrobić , szukam szukam i nic nie znajduje.
Pomocy!

[belstar]

Kod: Zaznacz cały

Sub Main
	OpenReport( "Adresy" ) 
End Sub

function OpenReport( sReportName as string) as variant
   Dim aProp(1) As New com.sun.star.beans.PropertyValue
   aProp(0).Name = "ActiveConnection"
   aProp(0).Value = thisComponent.Drawpage.Forms(0).ActiveConnection
   aProp(1).Name = "OpenMode"
   aProp(1).Value = "open"
   OpenReport=thisComponent.Parent.getReportDocuments.loadComponentFromURL(sReportName,"_blank",0,aProp())
end function