A
aggc
I'm using MODI Object to convert Word Document (OFFICE 2003) to Tiff File.
So far so good...but some strange thing happens.
When i'm trying to convert mdi to Tiff sometimes raises an Exception "There
is insufficient disk space to complete operation".
Ok, the exception said it all.. wrong!If i open the mdi viewer and i save to
tiff. it generates 88mb tiff file. i have 30gb of free space on disk, so..
whats the catch? why raises that exception?Why failed that conversion. Anyone
can help me?
Just an simple test (see below)
Dim oMoDI As New MODI.Document
Dim oAppWord As Word.Application = New Word.Application
Dim objCurrentDoc As Word.Document = New Word.Document
objCurrentDoc = oAppWord.Documents.Add(Me.OpenFileDialog1.FileName)
oAppWord.ActivePrinter = "Microsoft Office Document Image Writer"
oAppWord.NormalTemplate.Saved = True
objCurrentDoc.PrintOut(Background:=True,
Range:=Word.WdPrintOutRange.wdPrintAllDocument, _
Copies:=1, PageType:=Word.WdPrintOutPages.wdPrintAllPages, _
PrintToFile:=True, Collate:=False, ManualDuplexPrint:=False, _
PrintZoomColumn:=1, PrintZoomRow:=1,
OutputFileName:="C:\test.mdi")
objCurrentDoc.Close()
AppWord.Quit()
Try
oMoDI .Create("c:\test.mdi")
oMoDI .SaveAs("c:\t.tif",
MODI.MiFILE_FORMAT.miFILE_FORMAT_TIFF_LOSSLESS,
MODI.MiCOMP_LEVEL.miCOMP_LEVEL_HIGH)
Catch ex As Exception
MsgBox(ex.Message)
Finally
oMoDI .Close(True)
End Try
So far so good...but some strange thing happens.
When i'm trying to convert mdi to Tiff sometimes raises an Exception "There
is insufficient disk space to complete operation".
Ok, the exception said it all.. wrong!If i open the mdi viewer and i save to
tiff. it generates 88mb tiff file. i have 30gb of free space on disk, so..
whats the catch? why raises that exception?Why failed that conversion. Anyone
can help me?
Just an simple test (see below)
Dim oMoDI As New MODI.Document
Dim oAppWord As Word.Application = New Word.Application
Dim objCurrentDoc As Word.Document = New Word.Document
objCurrentDoc = oAppWord.Documents.Add(Me.OpenFileDialog1.FileName)
oAppWord.ActivePrinter = "Microsoft Office Document Image Writer"
oAppWord.NormalTemplate.Saved = True
objCurrentDoc.PrintOut(Background:=True,
Range:=Word.WdPrintOutRange.wdPrintAllDocument, _
Copies:=1, PageType:=Word.WdPrintOutPages.wdPrintAllPages, _
PrintToFile:=True, Collate:=False, ManualDuplexPrint:=False, _
PrintZoomColumn:=1, PrintZoomRow:=1,
OutputFileName:="C:\test.mdi")
objCurrentDoc.Close()
AppWord.Quit()
Try
oMoDI .Create("c:\test.mdi")
oMoDI .SaveAs("c:\t.tif",
MODI.MiFILE_FORMAT.miFILE_FORMAT_TIFF_LOSSLESS,
MODI.MiCOMP_LEVEL.miCOMP_LEVEL_HIGH)
Catch ex As Exception
MsgBox(ex.Message)
Finally
oMoDI .Close(True)
End Try