Setting numbers up in numerical order?

[Accelerated Graphics]

I need to set up numbers 24000-25000 to be cut on my plotter.
Anyone know of a macro that will do it easily?
I have corel x3,x4 or x7 to choose from.

Thanks

 

[BIG EASY DOES IT]

Not a corel user. But I am an avid YouTube user. Now days you can find anything on youtube. Including how to use Corel x3 to do sequential numbering.

[video=youtube;A_CZMlfipCQ]https://www.youtube.com/watch?v=A_CZMlfipCQ[/video]

 

[myront]

might try this one.

Sub GridOfNumbers2()
Dim s1 As Shape, startnum As Integer, i As Integer, ix As Integer, ti As Integer
ActiveDocument.Unit = cdrMillimeter
startnum = InputBox("Enter starting number")
ActiveDocument.BeginCommandGroup ("numbers")
Optimization = True
ti = startnum
For i = startnum To (startnum + 30) 'adjust this number to get more or less
For ix = startnum To (startnum + 21) 'adjust this number to get more or less
Set s1 = ActiveLayer.CreateArtisticText(0 + x, 290 + y, Format(ti, "000"))
s1.Fill.UniformColor.CMYKAssign 45, 45, 45, 100
s1.Outline.SetNoOutline
x = x + 40
ti = ti + 1
Next ix
x = 0
y = y - 30
Next i
Optimization = False
ActiveWindow.Refresh
End Sub

 

[Accelerated Graphics]

Not a corel user. But I am an avid YouTube user. Now days you can find anything on youtube. Including how to use Corel x3 to do sequential numbering.

https://www.youtube.com/watch?v=A_CZMlfipCQ

Yeah I've already watched that and a couple more you tube videos , but since I'm using my summa and won't work..

 

[Accelerated Graphics]

might try this one.

Sub GridOfNumbers2()
Dim s1 As Shape, startnum As Integer, i As Integer, ix As Integer, ti As Integer
ActiveDocument.Unit = cdrMillimeter
startnum = InputBox("Enter starting number")
ActiveDocument.BeginCommandGroup ("numbers")
Optimization = True
ti = startnum
For i = startnum To (startnum + 30) 'adjust this number to get more or less
For ix = startnum To (startnum + 21) 'adjust this number to get more or less
Set s1 = ActiveLayer.CreateArtisticText(0 + x, 290 + y, Format(ti, "000"))
s1.Fill.UniformColor.CMYKAssign 45, 45, 45, 100
s1.Outline.SetNoOutline

x = x + 40
ti = ti + 1
Next ix
x = 0
y = y - 30
Next i
Optimization = False
ActiveWindow.Refresh
End Sub

That looks way over my head!!

 

[James Burke]

With a sequenced text or Excel file (which takes two minutes to make), SignLab can do this with the "badge" function. It only takes three or four clicks of the mouse.

I'm not sure what files you can import, but let me know if I can help.


JB

 

[myront]

That looks way over my head!!

Tools/Macros/Macro Manager
right clcik on Visual Basic for Applications
choose New Macro Project
Name NumberGrid (no spaces)
Right click on that title and choose New Module and enter
right click on that and choose new macro
copy the macro above and paste over what's there.

 

[myront]

Tools/Macros/Macro Manager
right clcik on Visual Basic for Applications
choose New Macro Project
Name NumberGrid (no spaces)
Right click on that title and choose New Module and enter
right click on that and choose new macro
copy the macro above and paste over what's there.

You'll want to change this line Set s1 = ActiveLayer.CreateArtisticText(0 + x, 290 + y, Format(ti, "000")) to
Set s1 = ActiveLayer.CreateArtisticText(0 + x, 290 + y, Format(ti, ""))