Hola, necesito saber si es posible imprimir codigos descuentos de forma aleatoria y a su vez, que por cada código impreso lo vaya poniendo en un archivo txt o pdf, uno por cada linea.

Ejemplo:

Mandamos a imprirmir 100 hojas, y lo imprimirá aleatoriamente

Imprime 00190
Imprime 00393
Imprime 00593
Imprime 02297
Imprime 01594
Imprime 06591

Y a su vez me crea un archivo txt o pdf o report o lo que sea que salga así o similar:

archivo.txt
00190
00393
00593
02297
01594
06591

¿ Sabéis cómo puedo hacer esto?

CorelDRAW no tiene una funcion de generar numeros aleatorios. Si tienes una lista de numeros puedes usar imprimir Fusion para generar PDF (tanto sea individuales como varios en una misma hoja)

Corel hace muchas cosas pero de lo que precisas puede hacer la mitad, pese a que es un programa netamente para diseño vectorial, pero lo que necesitas lo puede conseguir con "Random Number generator" no se en que versión esté ahora.

Visita este sitio http://www.segobit.com/rng.htm

Hola Ariel,

Entonces, pasandole la lista de numero (que yo genero, ya sea con el programa que facilitas o personalizada por mi) la imprenta dandole a fusión para generar PDF lo haría solo y listo. No? Bueno, creo que acabo de encontrar la solución a lo que me indicas Ariel la dejo por si hay alguien que le interes: http://www.corelclub.org/imprimir-fusio ... coreldraw/

Muchas gracias !!

Interesante...

Existe la función Rnd en VBA que genera números aleatorios o sea que técnicament Corel si puede hacerlo sin necesidad de otro programa. Hay que saber VBA para hacerlo pero es posible.

ok, gracias. Mi problema era el como hacerlo para imprenta, los códigos ya los genero yo mediante web :-). Muchas gracias nuevamente, ha sido importante para el proyecto que vamos a realiar este paso. Una cervezita para tiiiiiiiii !!!

oye, y para mi que soy el autor del tutorial?

Estaba muy buena la cervecita, gracias.

Me puse a jugar con eso de la función Rnd (qué jueguitos tenemos nosotros los nerds!) y trabaja bastante bien aparentemente; este macro genera un número de cuatro cifras diferente cada vez que lo corres.

Solo fue un experimento, ya se que el problema está resuelto. Pero ya sabemos que podemos usar Corel para generar números de la lotto.

Sub Random()

Dim n As Integer, blah As String, rnumber As String
Dim char As Integer, sh As Shape

n = Int((9999 - 1 + 1) * Rnd + 1)
blah = CStr(n)
char = Len(blah)

    If char < 4 Then
    rnumber = String(4 - char, "0")
    Set sh = ActiveLayer.CreateArtisticText(2, 2, rnumber & n, , , "Arial", 24, cdrTrue)
    Else
    Set sh = ActiveLayer.CreateArtisticText(2, 2, n, , , "Arial", 24, cdrTrue)
    End If

End Sub

que no cunda el pánico !! jajaa una ronditaaaaaaaaa para todos !!!