Método Report.Line (Access)

  • Artículo

El método Line dibuja líneas y rectángulos en un objeto Report cuando se produce el evento Print .

Sintaxis

expresión. Línea (paso (x1, y1): paso (x2, y2), color, BF)

expresión requerida. Variable que representa un objeto Report . Expresión que devuelve uno de los objetos de la lista Se aplica a.

Parameters

Nombre Tipo de datos Descripción
Paso Palabra clave Indica que las coordenadas del punto inicial son relativas a la posición de gráficos actual proporcionada por la configuración actual para las propiedades CurrentX y CurrentY del argumento Object .
x1, y1 Single Indica las coordenadas del punto inicial de la línea o rectángulo. Las propiedades Scale (ScaleMode, ScaleLeft, ScaleTop, ScaleHeight y ScaleWidth) del objeto Report especificado por el argumento Object determinan la unidad de medida utilizada. Si se omite este argumento, la línea comienza en la posición indicada por las propiedades CurrentX y CurrentY .
x2, y2 Single Obligatorio. Indica las coordenadas del punto final de la línea o rectángulo. Asegúrese de que el punto inicial y el punto final están separados por un guion ( - ).
Color Long Indica el color RGB (rojo-verde-azul) usado para dibujar la línea. Si se omite este argumento, se usa el valor de la propiedad ForeColor. También puede usar la función RGB o QBColor para especificar el color.
B Opción que crea un rectángulo usando las coordenadas como esquinas opuestas del rectángulo.
F F no se puede usar sin B. Si se usa la opción B , la opción F especifica que el rectángulo se rellena con el mismo color usado para dibujar el rectángulo. Si se usa B sin F, el rectángulo se rellena con el color especificado por el valor actual de las propiedades FillColor y BackStyle. El valor predeterminado de la propiedad BackStyle es Normal en el caso de los rectángulos y líneas.

Comentarios

Use este método solo en un procedimiento de evento o una macro especificada por la propiedad de evento OnPrint o OnFormat para una sección de informe, o la propiedad de evento OnPage para un informe.

Al dibujar líneas que están conectadas, asegúrese de que cada línea no inicial comience en el punto final de la línea anterior.

El ancho de la línea dibujada depende del valor de la propiedad DrawWidth . La forma en que se dibuja una línea o rectángulo en el fondo depende de la configuración de las propiedades DrawMode y DrawStyle .

Al aplicar el método Line , las propiedades CurrentX y CurrentY se vuelven a establecer en el punto final especificado por los argumentos x2 y y2 .

Ejemplo:

En el ejemplo siguiente se usa el método Line para dibujar un rectángulo rojo de cinco píxeles dentro del borde de un informe denominado EmployeeReport. La función RGB se usa para dibujar la línea en rojo.

Para probar este ejemplo en Microsoft Access, cree un nuevo informe denominado EmployeeReport. Pegue el código siguiente en la sección Declaraciones del módulo del informe y, a continuación, cambie a Vista previa de impresión.

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 
    ' Call the Drawline procedure 
    DrawLine 
End Sub 
 
Sub DrawLine() 
    Dim rpt As Report, lngColor As Long 
    Dim sngTop As Single, sngLeft As Single 
    Dim sngWidth As Single, sngHeight As Single 
 
    Set rpt = Reports!EmployeeReport 
    ' Set scale to pixels. 
    rpt.ScaleMode = 3 
    ' Top inside edge. 
    sngTop = rpt.ScaleTop + 5 
    ' Left inside edge. 
    sngLeft = rpt.ScaleLeft + 5 
    ' Width inside edge. 
    sngWidth = rpt.ScaleWidth - 10 
    ' Height inside edge. 
    sngHeight = rpt.ScaleHeight - 10 
    ' Make color red. 
    lngColor = RGB(255,0,0) 
    ' Draw line as a box. 
    rpt.Line(sngTop, sngLeft) - (sngWidth, sngHeight), lngColor, B 
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.