Propriété Report.PrtMip (Access)

Utilisez la propriété PrtMip dans Visual Basic pour définir ou retourner les informations de mode appareil spécifiées pour un formulaire ou un état dans la boîte de dialogue Imprimer .

Syntaxe

expression. PrtMip

Expression Variable qui représente un objet Report .

Remarques

La valeur de la propriété PrtMip est une structure de 28 octets qui désigne les paramètres sous l'onglet marges pour un formulaire ou un état dans la boîte de dialogue Mise en Page.

La propriété PrtMip utilise les membres suivants.

Member	Description
LeftMargin, RightMargin, TopMargin, BottomMargin	Long qui spécifie la distance entre le bord de la page et l’élément à imprimer en twips.
DataOnly	Long qui spécifie les éléments à imprimer. Si la valeur est True, imprime uniquement les données d’une table ou d’une requête en mode Feuille de données, un formulaire ou un état, et supprime les étiquettes, les bordures de contrôle, les lignes de grille et les graphiques d’affichage tels que les lignes et les zones. Lorsque la valeur est False, imprime les données, les étiquettes et les graphiques.
ItemsAcross	Valeur de type Long spécifiant le nombre de colonnes des états ou des étiquettes à colonnes multiples. Ce membre est égal à la valeur indiquée dans la zone Nombre de colonnes, au-dessous de l'option Paramètres de la grille, sur l'onglet Colonnes de la boîte de dialogue Mise en page.
RowSpacing	Valeur de type Long qui définit l'espacement horizontal des sections Détail, en unités de 1/20 de point.
ColumnSpacing	Valeur de type Long qui définit l'espacement vertical des sections Détail en twips.
DefaultSize	Valeur de type Long. Si ce membre possède la valeur True, c'est la taille de la section Détail en mode Création qui est utilisée. Si le membre possède la valeur False, ce sont les valeurs spécifiées par les membres LargeurElément et HauteurElément qui sont utilisées.
ItemSizeWidth	Valeur de type Long qui définit la largeur de la section Détail en twips. Ce membre est égal à la valeur définie dans la zone Largeur, au-dessous de l'option Taille des colonnes sur l'onglet Colonnes de la boîte de dialogue Mise en page.
ItemSizeHeight	Long qui spécifie la hauteur de la section de détail en twips. Ce membre est égal à la valeur définie dans la zone Hauteur, au-dessous de l'option Taille des colonnes sur l'onglet Colonnes de la boîte de dialogue Mise en page.
ItemLayout	Valeur de type Long qui spécifie la disposition horizontale (1953) ou verticale (1954) des colonnes. Ce membre est égal à la valeur définie respectivement pour Vers la droite, ensuite vers le bas ou Vers le bas, ensuite vers la droite au-dessous de l'option Format des colonnes sur l'onglet Colonnes de la boîte de dialogue Mise en page.
FastPrint	Réservé.
Feuille de données	Réservé.

La valeur de la propriété PrtMip est en lecture/écriture en mode Création et en lecture seule dans les autres modes.

Exemple

L'exemple de propriété PrtMip suivant indique comment configurer l'état pour qu'il possède 2 colonnes 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

L'exemple suivant de la propriété PrtMip indique comment définir toutes les marges pour qu'elles aient 1 pouce de large.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.