View Single Post
  #1  
Old 22-08-2008, 01:08
norbert_ds
Guest
 
Posts: n/a
Default Export to GIF problem

Hi what I am trying to achieve is to make three differently named GIF files out of my Corel artwork. While the files are created, two of them show up as 0KB.

Would appreciate any help.

Regards
Norbert

Code:
Dim expfltGIF1 As ExportFilter
    Dim expfltGIF2 As ExportFilter
    Dim expfltGIF3 As ExportFilter
    If sx > sy Then
        height = sy * 216 / sx
        Set expfltGIF1 = ActiveDocument.ExportBitmap(FilePth + "Magazine-" + clientID + "_" + Street + "  " + Suburb + "_000_" + RightDigit + ".gif", cdrGIF, cdrAllPages, cdrRGBColorImage, 216, height, 72, 72, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone, palGIF)
        Set expfltGIF2 = ActiveDocument.ExportBitmap(FilePth + "Newspaper-" + clientID + "_" + Street + "  " + Suburb + "_000_" + RightDigit + ".gif", cdrGIF, cdrAllPages, cdrRGBColorImage, 216, height, 72, 72, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone, palGIF)
        Set expfltGIF3 = ActiveDocument.ExportBitmap(FilePth + "WebSite-" + clientID + "_" + Street + "  " + Suburb + "_000_" + RightDigit + ".gif", cdrGIF, cdrAllPages, cdrRGBColorImage, 216, height, 72, 72, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone, palGIF)
    Else
        width = sx * 216 / sy
        Set expfltGIF1 = ActiveDocument.ExportBitmap(FilePth + "Magazine-" + clientID + "_" + Street + "  " + Suburb + "_000_" + RightDigit + ".gif", cdrGIF, cdrAllPages, cdrRGBColorImage, width, 216, 72, 72, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone, palGIF)
        Set expfltGIF2 = ActiveDocument.ExportBitmap(FilePth + "Newspaper-" + clientID + "_" + Street + "  " + Suburb + "_000_" + RightDigit + ".gif", cdrGIF, cdrAllPages, cdrRGBColorImage, width, 216, 72, 72, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone, palGIF)
        Set expfltGIF3 = ActiveDocument.ExportBitmap(FilePth + "WebSite-" + clientID + "_" + Street + "  " + Suburb + "_000_" + RightDigit + ".gif", cdrGIF, cdrAllPages, cdrRGBColorImage, width, 216, 72, 72, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone, palGIF)
    End If
    
    With expfltGIF1
        .Interlaced = True
        .Transparency = 0
        .InvertMask = False
        .ColorIndex = 1
        .Finish
    End With
    
    With expfltGIF2
        .Interlaced = True
        .Transparency = 0
        .InvertMask = False
        .ColorIndex = 1
        .Finish
    End With
    
    With expfltGIF3
        .Interlaced = True
        .Transparency = 0
        .InvertMask = False
        .ColorIndex = 1
        .Finish
    End With
Reply With Quote