Access är ett databasprogram som gör att du kan lägga till egen kod till rapporter funktionen . Att hoppa begagnade adressetiketter och tryck dubbletter , måste du veta hur du skapar rapporter adressetikett , hur man använder Visual Basic for Applications eller Access Basic och hur man använder de programmeringsverktyg som i Microsoft Access . Bygga applikationer med Microsoft Access kan användare arbeta mer effektivt och utföra uppgifter snabbare , samt spara etikett papper och skrivarbläck . Instruktioner
1
Skapa en rapport adresslappar och kalla det MyLabels . Skapa en ny modul och i deklarationsavsnittet , lägg till följande kod :
Option Compare Database
Option Explicit
Dim LabelBlanks &
Dim LabelCopies &
Dim BlankCount & Spa
Dim CopyCount & Spa
Function LabelSetup ( ) katalog
LabelBlanks & = Val ( InputBox $ ( " Ange antal blanka etiketter för att hoppa " ) )
LabelCopies & = Val ( InputBox $ ( " Ange antal kopior att skriva ut " ) ) katalog p Om LabelBlanks & < 0 Then LabelBlanks & = 0
p Om LabelCopies & < 1 Då LabelCopies & = 1
End Function
Funktion LabelInitialize ( ) katalog
BlankCount & = 0
CopyCount & = 0
End Function
Funktion LabelLayout ( R Som Report ) katalog p Om BlankCount & LabelBlanks < & sedan
R.NextRecord = False
R.PrintSection = False
BlankCount & = BlankCount & + 1
Else
p Om CopyCount & < ( LabelCopies & - 1 ) Then
R.NextRecord = False
CopyCount & = CopyCount & + 1
Else
CopyCount & = 0
End If
End If
End Function
2
Öppna MyLabels rapporten i designläge . Lägg " = LabelLayout ( Reports! [ MyLabels ] ) " i " Detail " avsnittet i " OnPrint " tomtgränsen .
3
Lägg " = LabelSetup ( ) " till " OnOpen " egendom av rapporten .
4
Klicka på menyn" Visa " eller " Format " -menyn i 2.0 och välj " rapport Sidhuvud /sidfot . " Lägg en rapport sidhuvud och sidfot . I " OnFormat " egendom av rapporten header lägga " = LabelInitialize ( ) . " Ställ in " Höjd " egendom till noll för både sidhuvud och sidfot .
5
ut rapporten . Funktionen kodning du angav i steg 1 till 4 kommer att resultera i anvisningar som ber dig för det antal etiketter som används för att hoppa och antalet av varje etikett för att skriva ut .
