Issue 18148

I have Mandrake 9.0 and KDE 3.0.5 
 the following code will crash OOo RC2 in scalc, if after the module is 
 run ( it shows no errors and it does what it should) you attempt to do 
 a page preview or a page print. 
 
 David 
 
 Sub Main 
 Dim vSheet 
 Dim sGraphicURL As String 
 Dim sGraphicService As String 
 Dim oDrawPage As Object 
 Dim oGraphic As Object 
 dim TheSize as new com.sun.star.awt.Size 
 dim aPosition as new com.sun.star.awt.Point 
 dim GX as long, GY as long 
 GX = 15849 
 GY = 2000 
 vSheet = ThisComponent.Sheets(0) 
sGraphicURL="file:///usr/local/openoffice1.1RC/share/gallery/bullets/blkpearl.gif" 
sGraphicService =  "com.sun.star.drawing.GraphicObjectShape" 
 oDrawPage = vSheet.getDrawPage() 
 oGraphic = ThisComponent.createInstance(sGraphicService) 
 oGraphic.GraphicURL = sGraphicURL 
 oDrawPage.add(oGraphic) 
 TheSize.width=600 
 TheSize.height=600 
 oGraphic.setsize(TheSize) 
 aPosition.X = GX 
 aPosition.Y = GY 
 oGraphic.setposition(aPosition) 
 end sub