|
Access est un logiciel de base de données qui vous permet d'ajouter du code personnalisé pour la fonction de rapports. Pour sauter des étiquettes de publipostage utilisées et les doublons d'impression, vous devez savoir comment créer des rapports d'étiquettes de publipostage , comment utiliser Visual Basic pour Applications ou accès de base et comment utiliser les outils de programmation fournis dans Microsoft Access. Création d'applications avec Microsoft Access permet aux utilisateurs de travailler plus efficacement et exécuter des tâches plus rapidement , ainsi que pour économiser le papier de l'étiquette et de l'encre de l'imprimante. Instructions
1 Créer un rapport de l'étiquette d'envoi et l'appeler MyLabels . Créer un nouveau module et dans la section Déclarations , ajoutez le code suivant :
Option Compare Database
Option Explicit
LabelBlanks Dim &
LabelCopies Dim & < br > Dim BlankCount &
Dim CopyCount &
LabelSetup de fonction ( )
LabelBlanks & = Val ( InputBox $ (" Entrez le numéro d'étiquettes vierges pour sauter ")) < br > LabelCopies & = Val ( InputBox $ (" Entrez le nombre de copies à imprimer "))
Si LabelBlanks & < 0 alors LabelBlanks & = 0
Si LabelCopies et <1 alors LabelCopies & = 1
Fin de Fonction: Fonction LabelInitialize ()
BlankCount & = 0
CopyCount & = 0
End Function
LabelLayout de fonction ( R Comme Rapport)
Si BlankCount & LabelBlanks de < & Then
R.NextRecord = False
R.PrintSection = False
BlankCount & = BlankCount & + 1
Else
Si CopyCount & < ( LabelCopies et - 1), puis
R.NextRecord = False
CopyCount & = & CopyCount + 1 < br > Else
CopyCount & = 0
End If End If
End Function
2 Ouvrez l' MyLabels état en mode de conception. Ajouter "= LabelLayout ( Reports! [ MyLabels ] ) " dans la section "Détail " dans le " OnPrint " limite de propriété.
3 Ajouter "= LabelSetup () » à la « OnOpen " propriété de l'état.
4 Cliquez sur le menu" " ou " View Format " menu 2.0 et sélectionnez« en-tête /pied de page " . Ajouter un en-tête et pied de page de rapport. Dans le " OnFormat " propriété de l'en-tête du rapport ajouter "= LabelInitialize (). " Définir la propriété "Hauteur " à zéro pour l'en-tête et le pied de page .
5 imprimer le rapport. La fonction de codage est entré dans les étapes 1 à 4 se traduira par des invites qui vous demandera le nombre d'étiquettes utilisées pour sauter et le nombre de chaque étiquette à imprimer.
|
