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.