Método Application.FilePageSetupLegendEx (Project)
Crea una leyenda para la impresión de las vistas de los datos de tareas, donde el color puede ser un valor hexadecimal.
Sintaxis
expresión. FilePageSetupLegendEx (Name, TextWidth, LegendOn, Alignment, Text, LabelFontName, LabelFontSize, LabelFontBold, LabelFontItalic, LabelFontUnderline, LabelFontColor)
Expresión Expresión que devuelve un objeto Application .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Name | Opcional | String | Nombre de la vista o del informe para los que se van a configurar las leyendas para su impresión. |
| TextWidth | Opcional | Integer | Ancho del texto, en centímetros o pulgadas. |
| LegendOn | Opcional | Long | Las páginas en la que aparece la leyenda. Puede ser una de las siguientes constantes de PjLegend: pjNoLegend, pjAfterLastPage o pjOnEveryPage. |
| Alignment | Opcional | Long | La alineación del texto de la leyenda. Puede ser una de las siguientes constantes de PjAlignment: pjCenter, pjLeft o pjRight. El valor predeterminado es pjRight. |
| Text | Opcional | String | Texto que se va a mostrar en la leyenda. Los códigos de formato especiales se pueden incluir como parte de la leyenda. |
| LabelFontName | Opcional | String | Nombre de la fuente. |
| LabelFontSize | Opcional | Integer | Tamaño de la fuente en puntos. |
| LabelFontBold | Opcional | Boolean | True si la fuente está en negrita; de lo contrario, False. |
| LabelFontItalic | Opcional | Boolean | True si la fuente está en cursiva; de lo contrario, False. |
| LabelFontUnderline | Opcional | Boolean | True si la fuente está subrayada; de lo contrario, False. |
| LabelFontColor | Opcional | Long | Color de la fuente. Puede ser un valor RGB hexadecimal, en el que el último byte representa el color rojo. Por ejemplo, el valor &HFF00 es el color amarillo. |
Códigos de formato
| Código de formato | Descripción |
|---|---|
| &B | Activa o desactiva la impresión en negrita. |
| &yo | Activa o desactiva la impresión en cursiva. |
| &U | Activa o desactiva la impresión del subrayado. |
| &""fontname"" | Imprime los caracteres situados detrás del código de formato en la fuente especificada. Por ejemplo: &""Arial"". |
| &nn | Imprime los caracteres situados detrás del código de formato con el tamaño de fuente especificado. Use un número de dos cifras para especificar un tamaño en puntos. Por ejemplo: &08. |
| &P""path"" | Inserta la imagen especificada. Por ejemplo, &P"" [Mis documentos] \Image.gif"". El término [Mis documentos] representa la ruta de acceso completa a la carpeta Mis documentos. |
| &[Fecha] | Imprime la fecha actual del sistema. |
| &[Hora] | Imprime la hora actual del sistema. |
| &[Archivo] | Imprime el nombre de archivo. |
| &[Página] | Imprime el número de página. |
| &[Pages] | Imprime el número total de páginas del documento. |
| &[Project Title] | Imprime el título. |
| &[Compañía] | Imprime el nombre de la compañía. |
| &[Manager] | Imprime el nombre del director. |
| &[Start Date] | Imprime la fecha de inicio del proyecto. |
| &[Finish Date] | Imprime la fecha de finalización del proyecto. |
| &[Current Date] | Imprime la fecha actual del proyecto. |
| &[Status Date] | Imprime la fecha de estado del proyecto. |
| &[Ver] | Imprime el nombre de la vista. |
| &[Informe] | Imprime el nombre del informe. |
| &[Filter] | Imprime el nombre del filtro. |
| &[Saved Date] | Imprime la fecha en la que se guardó por última vez. |
| &[Asunto] | Imprime el asunto. |
| &[Author] | Imprime el autor. |
| &[Keyword] | Imprime las palabras clave. |
| &[Field_Name] | Imprime el valor del campo especificado por Nombre_Campo. Si se va a ejecutar una macro en más de un idioma, el campo especificado por Field_Name deberá usar el nombre traducido en cada idioma. Por ejemplo: &[Costo real]. |
Valor devuelto
Boolean
Comentarios
Si se usa el método FilePageSetupLegendEx sin especificar ningún argumento, muestra el cuadro de diálogo Configurar página con la ficha leyenda seleccionada.
[!NOTA] FilePageSetupLegendEx solo funciona con vistas de datos de la tarea.
Ejemplo
En el siguiente ejemplo se configura una leyenda para su impresión.
Sub SetLegend()
Dim strLegend As String
strLegend = GetFontFormatCode("Arial")
strLegend = strLegend & "&BThis text will appear in the legend.&B"
Application.FilePageSetupLegendEx Text:=strLegend, _
Alignment:=pjCenter, LegendOn:=pjOnEveryPage
End Sub
Public Function GetFontFormatCode(strFontName As String) As String
GetFontFormatCode = "&" & Chr(34) & strFontName & Chr(34)
End Function
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.