Propiedad Report.PrtMip (Access)
Use la propiedad PrtMip en Visual Basic para establecer o devolver la información de modo de dispositivo especificada para un formulario o informe en el cuadro de diálogo Imprimir .
Sintaxis
expresión. PrtMip
Expresión Variable que representa un objeto Report .
Comentarios
El valor de la propiedad PrtMip es una estructura de 28 bytes que asigna a los valores en la ficha márgenes para un formulario o informe en el cuadro de diálogo Configurar página.
La propiedad PrtMip consta de los siguientes miembros.
| Member | Descripción |
|---|---|
| LeftMargin, RightMargin, TopMargin, BottomMargin | Long que especifica la distancia entre el borde de la página y el elemento que se va a imprimir en twips. |
| DataOnly | Valor de tipo Long que especifica los elementos que se van a imprimir. Cuando es True, imprime solo los datos de una tabla o consulta en la vista Hoja de datos, un formulario o un informe, y suprime etiquetas, bordes de control, líneas de cuadrícula y muestra gráficos como líneas y cuadros. Si el valor es False, se imprimen datos, etiquetas y gráficos. |
| ItemsAcross | Valor de tipo Long que especifica el número de columnas a lo ancho para etiquetas o informes con varias columnas. Este elemento equivale al valor del cuadro Número de columnas de la sección Configuración de cuadrícula de la pestaña Columnas del cuadro de diálogo Configurar página. |
| RowSpacing | Valor de tipo Long que especifica el espacio horizontal que hay entre las secciones de detalle en unidades de 1/20 de punto. |
| ColumnSpacing | Valor de tipo Long que especifica el espacio vertical que hay entre las secciones de detalle en twips. |
| DefaultSize | Valor de tipo Long. Si el valor es True, se usa el tamaño de la sección de detalle de la vista Diseño. Si el valor es False, se usan los valores especificados en los elementos ItemSizeWidth e ItemSizeHeight. |
| ItemSizeWidth | Valor de tipo Long que especifica el ancho de la sección de detalle en twips. Este elemento equivale al valor del cuadro Ancho de la sección Tamaño de columna de la pestaña Columnas del cuadro de diálogo Configurar página. |
| ItemSizeHeight | Long que especifica el alto de la sección de detalles en twips. Este elemento equivale al valor del cuadro Alto de la sección Tamaño de columna de la pestaña Columnas del cuadro de diálogo Configurar página. |
| ItemLayout | Valor de tipo Long que especifica el diseño horizontal (1953) o vertical (1954) de las columnas. Este elemento equivale a las opciones A lo ancho y después hacia abajo o Hacia abajo y después a lo ancho, respectivamente, de la sección Diseño de columna de la pestaña Columnas del cuadro de diálogo Configurar página. |
| FastPrint | Reservado. |
| Datasheet | Reservado. |
El valor de la propiedad PrtMip es de lectura y escritura en la vista Diseño y de sólo lectura en las demás vistas.
Ejemplo:
En el siguiente ejemplo de la propiedad PrtMip, se muestra cómo configurar el informe con dos columnas horizontales.
Private Type str_PRTMIP
strRGB As String * 28
End Type
Private Type type_PRTMIP
xLeftMargin As Long
yTopMargin As Long
xRightMargin As Long
yBotMargin As Long
fDataOnly As Long
xWidth As Long
yHeight As Long
fDefaultSize As Long
cxColumns As Long
yColumnSpacing As Long
xRowSpacing As Long
rItemLayout As Long
fFastPrint As Long
fDatasheet As Long
End Type
Public Sub PrtMipCols(ByVal strName As String)
Dim PrtMipString As str_PRTMIP
Dim PM As type_PRTMIP
Dim rpt As Report
Const PM_HORIZONTALCOLS = 1953
Const PM_VERTICALCOLS = 1954
' Open the report.
DoCmd.OpenReport strName, acDesign
Set rpt = Reports(strName)
PrtMipString.strRGB = rpt.PrtMip
LSet PM = PrtMipString
' Create two columns.
PM.cxColumns = 2
' Set 0.25 inch between rows.
PM.xRowSpacing = 0.25 * 1440
' Set 0.5 inch between columns.
PM.yColumnSpacing = 0.5 * 1440
PM.rItemLayout = PM_HORIZONTALCOLS
' Update property.
LSet PrtMipString = PM
rpt.PrtMip = PrtMipString.strRGB
Set rpt = Nothing
End Sub
En el siguiente ejemplo de la propiedad PrtMip, se muestra cómo establecer los márgenes en 1 pulgada.
Public Sub SetMarginsToDefault(ByVal strName As String)
Dim PrtMipString As str_PRTMIP
Dim PM As type_PRTMIP
Dim rpt As Report
' Open the report.
DoCmd.OpenReport strName, acDesign
Set rpt = Reports(strName)
PrtMipString.strRGB = rpt.PrtMip
LSet PM = PrtMipString
' Set margins.
PM.xLeftMargin = 1 * 1440
PM.yTopMargin = 1 * 1440
PM.xRightMargin = 1 * 1440
PM.yBotMargin = 1 * 1440
' Update property.
LSet PrtMipString = PM
rpt.PrtMip = PrtMipString.strRGB
Set rpt = Nothing
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.