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.