Access é um software de banco de dados que permite que você adicione código personalizado para a função de relatórios. Para pular etiquetas de endereçamento usados e duplicatas de impressão, você precisa saber como criar relatórios de etiquetas de endereçamento, como usar o Visual Basic for Applications ou Access Basic e como usar as ferramentas de programação fornecidas no Microsoft Access. Criação de aplicativos com o Microsoft Access permite que os usuários trabalhem com mais eficiência e completar tarefas mais rapidamente, bem como economia de papel de etiqueta e tinta da impressora. Instruções
1
Criar um relatório de etiqueta de endereçamento e chamá-lo MyLabels . Crie um novo módulo e na secção de declarações , adicione o seguinte código :
Option Compare Database Option
explícita
Dim LabelBlanks &
Dim LabelCopies & < br >
Dim BlankCount &
Dim CopyCount &
Função LabelSetup ()
LabelBlanks & = Val ( InputBox $ (" Digite o número de etiquetas em branco para pular ")) < br >
LabelCopies & = Val ( InputBox $ (" Digite o número de cópias a imprimir "))
Se LabelBlanks & < 0 Then LabelBlanks & = 0
Se LabelCopies & <1 Então LabelCopies & = 1
End Function
LabelInitialize Function ( )
BlankCount & = 0
CopyCount & = 0
End Function
LabelLayout Função (R Como Report)
Se BlankCount & < LabelBlanks & Then
R.NextRecord = False
R.PrintSection = False
BlankCount & = BlankCount & + 1
Else
Se CopyCount & < ( LabelCopies e - 1) Então
R.NextRecord = False
CopyCount & = CopyCount & + 1 < br >
Else
CopyCount & = 0
End If End If
Função
Fim
2
Abra o MyLabels relatório no modo de design. Adicionar "= LabelLayout ( Reports! [ MyLabels ] ) " na seção "Detail" na linha de propriedade " AoImprimir " .
3
Adicionar "= LabelSetup ()" para o " OnOpen "propriedade do relatório.
4
Clique no botão" menu " ou " View Format "no menu 2.0 e selecionar " Relatório cabeçalho /rodapé . " Adicionar um cabeçalho eo rodapé do relatório . Na propriedade " ao formatar " do cabeçalho do relatório adicionar "= LabelInitialize (). " Defina a propriedade "Height " a zero para o cabeçalho eo rodapé .
5
imprimir o relatório. A função de codificação que você inseriu nas etapas de 1 a 4 irá resultar em mensagens que solicitam que você para o número de rótulos usados para pular eo número de cada etiqueta para imprimir .
