Propriété Report.ScaleTop (Access)

Article
04/07/2023

Utilisez la propriété ScaleTop pour spécifier les unités des coordonnées verticales qui décrivent l’emplacement du bord supérieur d’une page lorsque la méthode Circle, Line, Pset ou Print est utilisée pendant l’impression ou l’aperçu d’un rapport, ou lorsque sa sortie est enregistrée dans un fichier. String en lecture/écriture.

Syntaxe

expression. ScaleTop

Expression Variable qui représente un objet Report .

Remarques

Vous pouvez définir la propriété ScaleTop à l’aide d’une macro ou d’une procédure événementielle Visual Basic spécifiée par le paramètre de propriété OnPrint d’une section.

À l'aide de ces propriétés et aux propriétés ScaleHeight et ScaleWidth connexes, vous pouvez configurer un système de coordonnées personnalisé avec des coordonnées positives et négatives. Quatre ces propriétés à l'échelle d'interagit avec la propriété ScaleMode de la manière suivante :

Définition des propriétés d'échelle à n'importe quelle valeur automatiquement définit la propriété ScaleMode à 0.
Définition de la propriété ScaleMode pour un nombre supérieur à 0 remplace les paramètres de propriété ScaleHeight et ScaleWidth par la nouvelle unité de mesure et définit les propriétés ScaleLeft et ScaleTop sur 0. En outre, les paramètres des propriétés CurrentX et CurrentY modifier pour refléter les nouvelles coordonnées du point actuel.

Vous pouvez également utiliser la méthode Scale pour définir les propriétés ScaleHeight, ScaleWidth, ScaleLeft et les propriétés ScaleTop dans une instruction.

Remarque

[!REMARQUE] La propriété ScaleTop n'est pas le même que la propriété Top.

Exemple

L'exemple suivant utilise la méthode Circle Dessine un cercle et créer un secteur d'un cercle. Il utilise ensuite les propriétés FillColor et FillStyle pour colorer le secteur en rouge. Il dessine également une ligne de l’angle supérieur gauche au centre du cercle.

Pour appliquer cet exemple dans Microsoft Access, créez un nouvel état. Définissez la propriété OnPrint de la section Détail sur [Event Procedure]. Entrez le code suivant dans le module du rapport, puis basculez vers Aperçu avant impression.

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 
 
 Const conPI = 3.14159265359 
 
 Dim sngHCtr As Single 
 Dim sngVCtr As Single 
 Dim sngRadius As Single 
 Dim sngStart As Single 
 Dim sngEnd As Single 
 
 sngHCtr = Me.ScaleWidth / 2 ' Horizontal center. 
 sngVCtr = Me.ScaleHeight / 2 ' Vertical center. 
 sngRadius = Me.ScaleHeight / 3 ' Circle radius. 
 Me.Circle (sngHCtr, sngVCtr), sngRadius ' Draw circle. 
 sngStart = -0.00000001 ' Start of pie slice. 
 
 sngEnd = -2 * conPI / 3 ' End of pie slice. 
 Me.FillColor = RGB(255, 0, 0) ' Color pie slice red. 
 Me.FillStyle = 0 ' Fill pie slice. 
 
 ' Draw Pie slice within circle 
 Me.Circle (sngHCtr, sngVCtr), sngRadius, , sngStart, sngEnd 
 
 ' Draw line to center of circle. 
 Dim intColor As Integer 
 Dim sngTop As Single, sngLeft As Single 
 Dim sngWidth As Single, sngHeight As Single 
 
 Me.ScaleMode = 3 ' Set scale to pixels. 
 sngTop = Me.ScaleTop ' Top inside edge. 
 sngLeft = Me.ScaleLeft ' Left inside edge. 
 sngWidth = Me.ScaleWidth / 2 ' Width inside edge. 
 sngHeight = Me.ScaleHeight / 2 ' Height inside edge. 
 intColor = RGB(255, 0, 0) ' Make color red. 
 
 ' Draw line. 
 Me.Line (sngTop, sngLeft)-(sngWidth, sngHeight), intColor 
 
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.

Partager via