Come Skip usati etichette postali e duplicati di stampa in Access

November 17

Come Skip usati etichette postali e duplicati di stampa in Access


Access è un software di database che permette di aggiungere codice personalizzato per la funzione di report. Per saltare usato etichette e duplicati di stampa, è necessario sapere come creare rapporti mailing etichette, come utilizzare Visual Basic, Applications Edition o Access Basic e come utilizzare gli strumenti di programmazione forniti in Microsoft Access. Creazione di applicazioni con Microsoft Access consente agli utenti di lavorare in modo più efficiente e completare le attività più veloce, così come risparmiare carta e inchiostro della stampante etichetta.

istruzione

1 Creare un report Etichetta Postale e chiamarlo MyLabels. Creare un nuovo modulo e nella sezione Dichiarazioni, aggiungere il seguente codice:

Option Compare Database

Option Explicit

LabelBlanks Dim &

LabelCopies Dim &

Dim BlankCount &

Dim CopyCount &

LabelSetup function ()

LabelBlanks& = Val(InputBox$("Enter Number of blank labels to skip"))

LabelCopies & = Val (InputBox $ ( "Inserisci numero di copie da stampare"))

Se LabelBlanks & & lt; 0 Then LabelBlanks & = 0

Se LabelCopies & & lt; 1 Poi LabelCopies & = 1

End Function

LabelInitialize function ()

BlankCount& = 0

CopyCount & = 0

End Function

LabelLayout Function (R come Report)

If BlankCount& < LabelBlanks& Then

R.NextRecord = false

R.PrintSection = false

BlankCount & = BlankCount & + 1

Altro

Se CopyCount & & lt; (LabelCopies & - 1) Poi

R.NextRecord = false

CopyCount & = CopyCount & + 1

Altro

CopyCount & = 0

Finisci se

Finisci se

End Function

2 Aprire il report MyLabels nella vista di disegno. Aggiungere "= LabelLayout (Report! [MyLabels])" nella sezione "Dettagli" nella linea di proprietà "OnPrint".

3 Aggiungere "= LabelSetup ()" al "OnOpen" proprietà del report.

4 Fare clic sul menu "Visualizza" o "Format" menu 2.0 e selezionare "Intestazione / piè di pagina." Aggiungere un'intestazione di report e piè di pagina. Nella "formattazione" di proprietà della intestazione del report aggiungere "= LabelInitialize ()." Impostare la proprietà "Altezza" a zero sia per l'intestazione e piè di pagina.

5 Stampare il report. La funzione di codifica immesso nei passaggi da 1 a 4 si tradurrà in messaggi in cui viene chiedono il numero di etichette usati per saltare e il numero di ogni etichetta da stampare.