Cambiar Etiquetas e Imágenes en un Data Report en tiempo de ejecución

Ésto es algo bastante sencillo y muy útil para personalizar/dinamizar los encabezados de los datareports desde visual basic 6.0.


'con with evitamos el tener que repetir todo el rato la ruta

'en ReportHeader pones la sección en la que se encuentra el control

With DataReport1.Sections("ReportHeader")

'cualquier etiqueta

.Controls.Item("Etiqueta1").Caption = "loquesea 1"

'etiqueta n

.Controls.Item("Etiquetan").Caption = "loquesea n"

'imagen

Set .Controls("Image1").Picture = LoadPicture("ruta de la imagen")

End With