ACC2000: Hoe kleiner maken en uitbreiden van een rechthoek in een rapport

Vertaalde artikelen Vertaalde artikelen
Artikel ID: 210321 - Bekijk de producten waarop dit artikel van toepassing is.
Dit artikel heeft betrekking op een Microsoft Access-database (. mdb) en een Microsoft Access-project (. adp).

Matig: Basic macro, codering en interoperabiliteit vaardigheden vereist.

Alles uitklappen | Alles samenvouwen

Samenvatting

In een rapport een tekstvak kunt uitvouwen verticaal als u deTe vergrotenenTe verkleineneigenschappenJa. Rechthoeken en lijnen, maar geen van deze eigenschappen en niet uitbreiden. Een rechthoek rond een besturings element dat kan groter of kleiner maakt, gebruikt u deRegelmethode om de rechthoek te tekenen.

Meer informatie

In het volgende voorbeeld wordt gedemonstreerd hoe u deRegelmethode om een rechthoek rond een Memo-veld van variabele grootte:
  1. Open de voorbeeld data base Noordenwind. mdb.
  2. Maak een nieuw, leeg rapport op basis van de tabel Werknemers.
  3. Stel deBreedteeigenschap van het rapport5 in.
  4. Als de lijst met velden niet wordt weer gegeven, klikt u opLijst met veldenop deWeergavemenu weer te geven.
  5. Sleep het veld Notities uit de lijst met velden naar de detail sectie.
  6. Het label van het tekstvak notities verwijderen door het label te selecteren en druk vervolgens op deVERWIJDERENsleutel.
  7. Stel de volgende eigenschappen van het tekstvak notities:
        Name: Notes
        ControlSource: Notes
        CanGrow: Yes
        CanShrink: Yes
        Left: 0.2 in
        Top: 0.166
        Width: 4.6042 in
        Height: 0.166 in
    					
  8. Klik op de detail sectie van het rapport.
  9. Stel deHoogteeigenschap van de detail sectie0,5in.
  10. Stel deBij afdrukkenEigenschappen van de detail sectie op de volgende gebeurtenisprocedure:
    Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
        Dim X1 As Single, Y1 As Single
        Dim X2 As Single, Y2 As Single
        Dim Offset As Single
        Dim Color As Long
    
        'Specify unit of measurement for coordinates on a page.
        Me.ScaleMode = 1        'Twips (1440 twips = 1 inch).
    
        'Define an offset of 1/8 inch from the text box to the rectangle.
        Offset = 1440 / 8
    
        'X and Y coordinates for the top left corner of the box.
        X1 = Me![Notes].Left - Offset
        Y1 = Me![Notes].Top - Offset
    
        'X and Y coordinates for the bottom right corner of the box.
        X2 = Me![Notes].Left + Me![Notes].Width + Offset
        Y2 = Me![Notes].Top + Me![Notes].Height + Offset
    
        Me.DrawWidth = 3        'Width of the line (in pixels).
        
        Color = RGB(0, 0, 0)    'Use black line color.
    
        'Draw the rectangle with the Line method.
        Me.Line (X1, Y1)-(X2, Y2), Color, B
    End Sub
    					
  11. Op deFout opsporingmenu, klikt u opNoorden wind compilerenvoor het compileren van de code.
  12. Sluit de module en bekijk het voorbeeld van het rapport. Opmerking het veld Notities en het kader rondom het uitvouwen en samen contract.

Referenties

Klik voor meer informatie over de methode Line, in de Visual Basic EditorMicrosoft Visual Basic Helpop deHelpin het menu typeLine, methodein de Office-assistent of de Antwoordwizard en klikt u vervolgens opZoekenom het onderwerp weer te geven.

Eigenschappen

Artikel ID: 210321 - Laatste beoordeling: maandag 28 februari 2011 - Wijziging: 2.0
De informatie in dit artikel is van toepassing op:
  • Microsoft Access 2000 Standard Edition
Trefwoorden: 
kbdta kbhowto kbofficeprog kbprogramming kbusage kbmt KB210321 KbMtnl
Automatisch vertaald artikel
BELANGRIJK: Dit artikel is vertaald door de vertaalmachine software van Microsoft in plaats van door een professionele vertaler. Microsoft biedt u professioneel vertaalde artikelen en artikelen vertaald door de vertaalmachine, zodat u toegang heeft tot al onze knowledge base artikelen in uw eigen taal. Artikelen vertaald door de vertaalmachine zijn niet altijd perfect vertaald. Deze artikelen kunnen fouten bevatten in de vocabulaire, zinsopbouw en grammatica en kunnen lijken op hoe een anderstalige de taal spreekt en schrijft. Microsoft is niet verantwoordelijk voor onnauwkeurigheden, fouten en schade ontstaan door een incorrecte vertaling van de content of het gebruik ervan door onze klanten. Microsoft past continue de kwaliteit van de vertaalmachine software aan door deze te updaten.
De Engelstalige versie van dit artikel is de volgende:210321

Geef ons feedback

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com