Cómo Ir etiquetas postales Usados ​​y láminas duplicados en Access

Access es un software de base de datos que le permite añadir código personalizado a la función de informes. Para omitir las etiquetas de correo utilizadas y los duplicados de impresión, lo que necesita saber cómo crear informes de etiquetas de correo, cómo utilizar Visual Basic para Aplicaciones o Access Basic y cómo utilizar las herramientas de programación suministradas en Microsoft Access. Creación de aplicaciones con Microsoft Access permite a los usuarios trabajar de forma más eficiente y completar las tareas más rápido , además de ahorrar papel y tinta de impresora de etiquetas . Instrucciones
1

Crear un informe de etiquetas postales y llamarlo MyLabels . Cree un nuevo módulo y en las declaraciones de sección , agregue el siguiente código:
Opción

Compare Database Option Explicit

LabelBlanks Dim & compare

LabelCopies Dim y

Dim BlankCount & compare

Dim CopyCount & compare

Función LabelSetup ()

LabelBlanks & = Val ( InputBox $ (" Ingrese el número de etiquetas en blanco para saltar "))

LabelCopies & = Val ( InputBox $ (" Introduzca el número de copias a imprimir " ))

Si LabelBlanks y < 0 entonces LabelBlanks & = 0

Si LabelCopies y < 1 Entonces LabelCopies y = 1

End Function

Función LabelInitialize ()

BlankCount & = 0

CopyCount & = 0

Función End of

Función LabelLayout (R Como Report)

Si BlankCount y LabelBlanks < y entonces

R.NextRecord = False

R.PrintSection = False

BlankCount & = BlankCount y + 1

demás

Si CopyCount y < ( LabelCopies y - 1 ) Entonces

R.NextRecord = False

CopyCount CopyCount & = y + 1

demás

CopyCount & = 0

End If

End If End Function

2

Abra el MyLabels informe en vista Diseño . Añadir "= LabelLayout ( Reports! [ MyLabels ] ) " en la sección "Detalles" en la línea de propiedad " OnPrint " .
3

Añadir "= LabelSetup ()" para el " OnOpen "la propiedad del informe.

4 Haga clic en" menú " o" View Format " en el menú 2.0 y seleccione " Informe encabezado /Pie de página " . Agregar un encabezado y pie de página. En la propiedad " OnFormat " del encabezado del informe agrega " = LabelInitialize (). " Establezca la propiedad "Altura " a cero tanto para el encabezado y el pie de página .
5

imprimir el informe. La función de codificación que ha introducido en los pasos 1 a 4, dará lugar a mensajes que le piden el número de etiquetas utilizadas para saltar y el número de cada etiqueta que desea imprimir.