Como imprimir Odd Mesmo Páginas em Excel 2007

Você pode acessar Excel VBA a partir do teclado.

Enquanto a Microsoft Excel 2007 oferece uma variedade de opções de impressão a partir do menu de impressão na barra de ferramentas, que não lhe dá a opção de imprimir as páginas pares ou ímpares. Felizmente, há uma ferramenta que você pode usar para imprimir as páginas pares e ímpares: Visual Basic for Applications (VBA). VBA é construído em Excel 2007, e permite que você personalize Excel para atender às suas necessidades. Isso inclui macros em execução (programas que executam uma tarefa específica).

Clique no "Desenvolvedor" guia no Excel 2007.
Clique em "Visual básico" para abrir o Editor do Visual Basic (VBE).
Clique "Inserir," então "Módulo" para abrir uma janela do módulo em branco.

Copie e cole o seguinte código na janela do módulo:

Sub PrintOddEven ()

TotalPages Dim As Long
Dim StartPage As Long
Dim Página As Integer
StartPage = InputBox ("Digite número de página inicial")


TotalPages = Application.ExecuteExcel4Macro ("GET.DOCUMENT (50)")
Se StartPage gt; 0 E StartPage lt; = TotalPages Então
Para página = Startpage ao TotalPages Passo 2
ActiveSheet.PrintOut De: = Página, Para: = Página, _
Cópias: = 1, Agrupar: = true
Próximo
Fim se

End Sub

pressione "F5" para executar a macro. Uma janela pop-up irá aparecer e você será devolvido para a folha de cálculo Excel.
Digite o número da página inicial na caixa de texto. Se você deseja imprimir páginas ímpares, insira um número ímpar. Se você deseja imprimir as páginas pares, digite um número par. Excel irá imprimir as páginas pares ou ímpares a partir desse ponto de partida. Por exemplo, se você digitar "1," Excel irá imprimir páginas ímpares 1 até o final do documento.

dicas & avisos

Se você não vê a guia desenvolvedor, clique no "Microsoft Office" botão, em seguida, clique "Opções do Excel."
Clique "Popular," em seguida, no "Mostrar desenvolvedor" guia na caixa de seleção da fita.

De esta maneira? Compartilhar em redes sociais: