Please help - Ayuda Por Favor

[Jose Marte2]

Ingles:

Greetings, for all, I hope you are well. I apologize, but if you can, could you help me how to identify which copy or copy number I am printing when using the DCPRINT ON command? I explain the idea is to be able to know which copy or number of copy is to be able to print a different sign on each of the copies. For example, when printing an invoice, you can print on the first ORIGINAL copy in the second copy CLIENT in the third copy OFFICE and so on. Thanks for all.

Español:

Saludos, para todos, espero estén bien. Me disculpan, pero si puede me podrían ayudar como identificar que copia o numero de copia estoy imprimiendo al utilizar el comando DCPRINT ON. Le explico la idea es poder saber que copia o numero de copia es para poder imprimir un letrero diferente en cada una de las copias. Por ejemplo al imprimir una factura poder imprimir en la primera copia ORIGINAL en la segunda copia CLIENTE en la tercera copia DESPACHO y así sucesivamente. Las gracias anticipadas para todos.

[rdonnay]

The best way to do this is just call your print code in a loop and pass it a different heading.

Code: Select all

FUNCTION PrintInvoice()

LOCAL i, aHeadings := {'ORIGINAL','CLIENT','OFFICE'}

DCPRINT ON

FOR i := 1 TO 3
  PrintPage(aHeadings[i])
NEXT

DCPRINT OFF

RETURN nil

* -----------

STATIC FUNCTION PrintPage( cHeading )

@ 1,30 DCPRINT SAY cHeading FONT '20.Arial Bold'

... Print remaing invoice

DCPRINT EJECT

RETURN nil