| Pregunta: | 8463 - DIBUJO DE LINEAS EN INFORME |
| Autor: | Germán |
| Buenas, estoy haciendi una BdD y necesito repesentar un valor numerico como una barra o linea horizontal en un informe de resultados. Dado que el numero de registros varia y que está linea debe ser solida, rayada etc dependiendo del valor, esto debo hacerlo en tiempo de ejecución, pero en códido no me deja agregar controles a un informe ya que "debo estar en modo de diseño". No consigo simular o pasar a modo de diseño en código y no sé como agregar los controles. He probado en varios eventos del Report (page, Activate, open...) pero en todos me da el mismo problema... ¿Alguna idea...? Gracias. | |
| Respuesta: | MAURICIO |
| _ CREA UN REPORTE Y VINCULALE UNA TABLA _ LUEGO EN LA SECCION DETALLE INSERTA UN LABEL, CON CUALQUIER CAPTION _ LUEGO HACE UN CLICK CON EL BOTON DERECHO DEL MOUSE EN LA SECCION DETALLE (LA PARTE BLANCA) _ APARECE UN MENU _ SELECCIONA "PROPIEDADES" _ SELECCIONA "EVENTOS" _ SELECCIONA AL "IMPRIMIRSE" E INGRESA ESTE CODIGO Option Compare Database Option Explicit Public A As Integer Private Sub Detalle_Print(Cancel As Integer, PrintCount As Integer) Dim T As Integer A = A + PrintCount Me.Etiqueta1.Caption = Str(A) For T = 1 To 100 Me.Line (10, 10)-(A * T, 10) Next T End Sub ESTE CODIGO IMPRIMIRA EL NUMERO DE REGISTRO ACTUAL EN EL LABEL Y DIBUJARA UNA LINEA DEL LARGO DE ESTE NUMERO, AL MOMENTO EN QUE SE IMPRIMA ESTE REPORTE. Pd: Espero te sirva de algo. | |