View Single Post
  #2  
Old 29-11-2006, 13:01
wOxxOm's Avatar
wOxxOm wOxxOm is offline
Senior Member
 
Join Date: Mar 2005
Posts: 836
Default

I knew this was the case with cdr11.

try this
Code:
for x = 1 to 100
   set doc=ActiveDocument
   doc.export "filename.jpg", filetype, other parameters....
   set doc=nothing
next x
or maybe you'll need to use this:
Code:
dim expF As ExportFilter

for x = 1 to 100
   Set expF = ActiveDocument.ExportBitmap(s, cdrJPEG, cdrCurrentPage, .......)
   expF.Compression = jCompression: expF.Optimized = jOptimized
   expF.SubFormat = jSubFormat: expF.Compression = jCompression: expF.Smoothing = jSmoothing
   expF.Finish
   set expF=Nothing
next
or maybe most hardcore solution is to use winAPI timerproc 100 times - this will ensure that each time a timerproc is done the objects are released
Reply With Quote