I am looking for a way to make CorelDraw x6 automatically insert the current time and date into a specific area on a drawing...

revenant
over 8 years ago

I am looking for a way to make CorelDraw x6 automatically insert the current time and date into a specific area on a drawing.  We have a proof disclaimer we insert into every proof we send to customers.  I would like that file to automatically update the time and date whenever it is inserted.  Is there a way to do this?

Parents
No Data
Reply
  • over 8 years ago

    You can try following macro - inserts the system date and time on given position (x,y). If started again then replaces an original date and time by actual   

    Sub IDAT()
    Dim DAT As Shape, x#, y#
    ActiveDocument.Unit = cdrMillimeter
    ActivePage.FindShapes(Name:="DAT").Delete
    x = 0 'position of text with a system date and time
    y = 0 'position of text with a system date and time
    Set DAT = ActiveLayer.CreateArtisticText(x, y, Date & "  " & Time, cdrEnglishUS, , "Arial", 7, , , , cdrLeftAlignment)
    DAT.Fill.UniformColor.CMYKAssign 0, 0, 0, 100
    DAT.Name = "DAT"
    End Sub

    Best regards

    Mek

Children
No Data

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.