Compartilhar via


Propriedade Report.PrtMip (Access)

Use a propriedade PrtMip no Visual Basic para definir ou retornar as informações do modo de dispositivo especificadas para um formulário ou relatório na caixa de diálogo Imprimir .

Sintaxe

expressão. PrtMip

Expressão Uma variável que representa um objeto Report .

Comentários

A configuração da propriedade PrtMip é uma estrutura de 28 bytes mapeada conforme as configurações na guia margens para um formulário ou relatório na caixa de diálogo Configurar página.

A propriedade PrtMip tem os membros a seguir.

Member Descrição
LeftMargin, RightMargin, TopMargin, BottomMargin Um Long que especifica a distância entre a borda da página e o item a ser impresso em twips.
DataOnly Um Long que especifica os elementos a serem impressos. Quando True, imprime apenas os dados em uma tabela ou consulta no modo de exibição Datasheet, um formulário ou um relatório e suprime rótulos, controle bordas, linhas de grade e exiba gráficos como linhas e caixas. Quando False, imprime dados, rótulos e gráficos.
ItemsAcross Um Long que especifica o número de colunas para relatórios ou rótulos de várias colunas. Esse componente é equivalente ao valor da caixa Número de Colunas em Configurações da Grade na guia Colunas da caixa de diálogo Configurar Página.
RowSpacing Um Long que especifica o espaço horizontal entre seções detalhes em unidades de 1/20 de um ponto.
ColumnSpacing Um Long que especifica, em twips, o espaço vertical entre seções detalhes.
DefaultSize Um Long. Quando True, utiliza o tamanho da seção detalhe no Modo de design. Quando False, utiliza os valores especificados pelos membros ItemSizeWidth e ItemSizeHeight.
ItemSizeWidth Um Long que especifica, em twips, a largura da seção detalhe. Esse componente é equivalente ao valor da caixa Largura em Tamanho da Coluna na guia Colunas da caixa de diálogo Configurar Página.
ItemSizeHeight Um Long que especifica a altura da seção de detalhes em twips. Esse componente é equivalente ao valor da caixa Altura em Tamanho da Coluna na guia Colunas da caixa de diálogo Configurar Página.
ItemLayout Um Long que especifica o layout horizontal (1953) ou vertical (1954) de colunas. Esse membro é equivalente à guia À direita e abaixo ou Abaixo e à direita, respectivamente, em Layout da Coluna na guia Colunas da caixa de diálogo Configurar Página.
FastPrint Reservado.
Datasheet Reservado.

A configuração da propriedade PrtMip é leitura/gravação no modo de Design e somente leitura nos outros modos.

Exemplo

O exemplo da propriedade PrtMip, a seguir, demonstra como configurar o relatório com duas colunas horizontais.

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

O próximo exemplo da propriedade PrtMip mostra como definir todas as margens como 1 polegada.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.