View Single Post
  #1  
Old 05-07-2012, 09:36
grzjanik grzjanik is offline
Member
 
Join Date: Mar 2010
Location: Lodz, Poland
Posts: 86
Send a message via Skype™ to grzjanik
Post File save with date

Hallo members.

How do I add the date to file name?

I'm using CorelDraw v12.

Code:
Sub ExportSelectionToDesktop()

    Dim OrigSelection As ShapeRange, expflt As ExportFilter

    Set OrigSelection = ActiveSelectionRange

        Set expflt = ActiveDocument.ExportBitmap( _
            "c:\Users\xxx\Desktop\" & ActiveDocument.Name & "HOW TO INSERT THE CURRENT DATE" & ".jpg", _
            cdrJPEG, cdrSelection, cdrRGBColorImage, , , 300, 300, cdrSupersampling, , , UseColorProfile:=True)

    With expflt
        .Progressive = True
        .Optimized = True
        .SubFormat = 0
        .Compression = 0
        .Smoothing = 0
        .Finish
    End With

End Sub
Thanks in advance.

Regards.

~GrzJanik

Last edited by grzjanik; 06-07-2012 at 03:03.
Reply With Quote