ACC: Como ignorar usado etiquetas de endereçamento e imprimir duplicatas

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 95806
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Moderado: Requer básica de macro, codificação e interoperabilidade habilidades.
Sumário
Este artigo descreve como imprimir várias cópias da mesma etiqueta de endereçamento e como usar uma página usada parcialmente onde somente algumas das etiquetas estão disponíveis.

Este artigo presume que você esteja familiarizado com Visual Basic for Applications e com a criação de aplicativos do Microsoft Access usando as ferramentas de programação fornecidas com o Microsoft Access. Para obter mais informações sobre o Visual Basic for Applications, consulte sua versão do manual "Criando aplicativos com o Microsoft Access".

Observação: o Visual Basic for Applications é denominado Access Basic no Microsoft Access versões 1.x e 2.0. Para obter mais informações sobre o Access Basic, consulte o manual "Introdução à programação" no Microsoft Access versão 1.x ou no manual "Building Applications" no Microsoft Access versão 2.0

Observação: Este artigo explica uma técnica demonstrada nos arquivos de exemplo, RptSampl.exe (para o Microsoft Access para Windows 95 versão 7.0) e RptSmp97.exe (para o Microsoft Access 97). Para obter informações sobre como obter esses arquivos de exemplo, consulte os seguintes artigos na Base de dados de Conhecimento da Microsoft:
145777ACC95: Microsoft Access exemplo relatórios disponíveis no Centro de download
175072ACC97: Microsoft Access 97 exemplo relatórios disponíveis no Centro de download
Mais Informações

Imprimir várias cópias do mesmo rótulo

Quando você clica em Imprimir no menu Arquivo, você pode optar por imprimir várias cópias do mesmo relatório. Mas quando você tenta imprimir uma etiqueta de endereçamento única 20 vezes, Microsoft Access imprime uma etiqueta em cada um dos 20 páginas.

Em uma impressora matricial, usando rótulos de coluna única, você pode contornar esse comportamento, definindo cada rótulo como uma página separada. No entanto, você não pode usar esse método para impressoras a laser ou rótulos de várias colunas. Para contornar esse comportamento, use o procedimento passo a passo descrito abaixo.

Usando rótulos que também would ser perdidos

Após a impressão de etiquetas, você geralmente acaba com uma página de última parcialmente usada. Não há nenhum mecanismo interno no Microsoft Access para usar os rótulos restantes em uma página usada parcialmente. O Microsoft Access sempre inicia em uma nova página. Em uma impressora matricial, você pode ajustar manualmente a parte superior do formulário. Mas você não pode fazer em impressoras a laser. Para resolver esse problema, use o procedimento passo a passo descrito abaixo.

Procedimento passo a passo para solucionar os problemas

O gerador de relatório do Microsoft Access fornece ganchos poderosos que permitem o controle sobre o produto concluído. Chamando uma função da propriedade OnFormat de seção de detalhe do relatório, você pode alterar as propriedades MoveLayout, NextRecord e SeçãoDeImpressão para deixar espaços em branco ou imprimir várias cópias na mesma página.

O código abaixo é genérico. Você pode anexá-lo a qualquer relatório de etiqueta de endereçamento para imprimir várias cópias e para ignorar etiquetas usadas se necessário. Para usar o exemplo, você precisará ter um relatório de etiqueta endereçamento chamado MyLabels.
  1. Criar um novo módulo e coloque as seguintes linhas na declaração seção:
          '*********************************************************         'Declarations section of the module.      '**********************************************************      Option Compare Database      Option Explicit      Dim LabelBlanks&      Dim LabelCopies&      Dim BlankCount&      Dim CopyCount&      '==========================================================         ' The following function will cause an input box to         ' display when the report is run that prompts the user         ' for the number of used labels to skip and how many         ' copies of each label should be printed.      '===========================================================      Function LabelSetup ()      LabelBlanks& = Val(InputBox$("Enter Number of blank labels to skip"))      LabelCopies& = Val(InputBox$("Enter Number of Copies to Print"))      If LabelBlanks& < 0 Then LabelBlanks& = 0      If LabelCopies& < 1 Then LabelCopies& = 1      End Function      '===========================================================         ' The following function sets the variables to a zero      '===========================================================      Function LabelInitialize ()         BlankCount& = 0         CopyCount& = 0      End Function      '===========================================================         ' The following function is the main part of this code         ' that allows the labels to print as the user desires.      '===========================================================      Function LabelLayout (R As Report)         If BlankCount& < LabelBlanks& Then            R.NextRecord = False            R.PrintSection = False            BlankCount& = BlankCount& + 1         Else            If CopyCount& < (LabelCopies& - 1) Then               R.NextRecord = False               CopyCount& = CopyCount& + 1            Else               CopyCount& = 0            End If         End If      End Function						
  2. Abra o relatório chamado MyLabels no modo de design e adicione a seguinte linha à propriedade AoImprimir da seção detalhe:
          =LabelLayout(Reports![MyLabels])						
  3. Adicione a seguinte linha a propriedade OnOpen do relatório MyLabels:
          =LabelSetup()						
  4. Embora normalmente rótulos não tem um cabeçalho de relatório, adicionar um cabeçalho e rodapé para o relatório selecionando cabeçalho/rodapé do relatório no modo de exibição menu (ou menu Formatar na versão 2.0 ou menu de layout na versão 1.x). Em seguida, adicione a seguinte linha de propriedade OnFormat de cabeçalho do relatório:
          =LabelInitialize()						
  5. Defina a propriedade altura para o cabeçalho de relatório e o rodapé do relatório como 0.
Quando você imprime o relatório, o relatório chama a função LabelSetup(), que solicita que você insira o número de rótulos usados para ignorar na primeira página (BlankCount) primeiro e, em seguida, solicita a quantidade de cada rótulo você deseja impressa (CopyCount).

Quando o cabeçalho do relatório é formatado, ele chama o LabelInitialize() funcionar, para que quando você alterna de visualização para imprimir, os campos BlankCount e CopyCount são definidos como zero. Como cada etiqueta é formatada, a função LabelLayout() ajusta o NextRecord e propriedades MoveLayout para ignorar etiquetas usadas e imprimir duplicatas desejadas.

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 95806 - Última Revisão: 12/04/2015 09:23:39 - Revisão: 2.3

Microsoft Access 1.0 Standard Edition, Microsoft Access 1.1 Standard Edition, Microsoft Access 2.0 Standard Edition, Microsoft Access 95 Standard Edition, Microsoft Access 97 Standard Edition

  • kbnosurvey kbarchive kbmt kbhowto kbprogramming kbusage KB95806 KbMtpt
Comentários