La Web del Programador: Comunidad de Programadores
 
    Pregunta:  19623 - IMPRIMIR COPIAS DE DATA REPORT CON PIE DIFERENTE
Autor:  jr cerced
Tengo un Informe creado con Data report del cual necesito imprimir 3 copias pero que en cada una de ellas aparezca un pie de página (mas bien una etiqueta) diferente.

¿Hay alguna posibilidad de realizar esto sin tener que crear 3 informes diferentes y mandarlos imprimir a la vez?

Gracias de antemano.

  Respuesta:  Javier Gonzalez
Si es posible lo que puedes hacer es : ponder un rptlaber en el pie de pagina.

Antes de Mandar a imprimir el datareport tendrías que módificar por código el rptlabel.caption del pie de página.

para ello tenes que recorrer los controles de la seccion del datareport.
creo que la seccion pie de pagina es seccion(1), si no proba con otro numero

ejemplo: (tu rptlabel de pie de pagina se llama "lbTitulo")

dim oCTRL as Object
for each oCTRL in Drs1.Seccion(1).controls
if oCTRL.Name = "lbTitulo" then
lbTitulo.Caption = "nota de pie de pagina"
end if
next oCTRL

y mandas a imprimir.....

despues vuelves a ejecutar el codigo de arriba y nuevamente imprimes

bueno espero haberta ayudado

saludos