From 305b6d0111a1ba2a4e816cd6e684f428cc771e89 Mon Sep 17 00:00:00 2001
From: Behrend Cornelius <bc@openoffice.org>
Date: Fri, 31 May 2002 13:12:53 +0000
Subject: #99085# start up routine for report wizard inserted

---
 wizards/source/tools/Debug.xba | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/wizards/source/tools/Debug.xba b/wizards/source/tools/Debug.xba
index 41d296d3fdb6..2f1653071b60 100644
--- a/wizards/source/tools/Debug.xba
+++ b/wizards/source/tools/Debug.xba
@@ -226,4 +226,11 @@ Dim bDoProtect as Boolean
 		End If
 	End If
 End Sub
+
+
+Sub FillDocument()
+	oMyReport = createUNOService(&quot;com.sun.star.wizards.report.CallReportWizard&quot;)
+	oMyReport.trigger(&quot;fill&quot;)
+End Sub
+
 </script:module>
\ No newline at end of file
-- 
cgit v1.2.3