none
50 IMPRESSÕES DE UMA PÁGINA COM PÁGINAS NUMERADAS SEQUENCIALMENTE RRS feed

  • Pergunta

  • OLÁ,

    Tenho um arquivo de uma página, preciso imprimir 50 páginas dela, porém preciso numera-las de 1 a 50.

    Estou tendo muita dificudade para conseguir esse feito. Por gentileza me ajudem.

    Utilizo o Excel 2007 

    quarta-feira, 28 de dezembro de 2016 13:12

Todas as Respostas

  • Olá. Você pode criar uma  macro como abaixo:

    Sub imprimir()
    
    Dim CopiesCount As Long
    Dim copynumber As Long
    Dim cell As String
    
    CopiesCount = Application.InputBox("Quantas cópias deseja imprimir?", Type:=1)
    cell = Application.InputBox("Em qual célula quer impimir a numeração (Ex: G20)?")
    
    For copynumber = 1 To CopiesCount
        With ActiveSheet
            .Range(cell).Value = copynumber
            .PrintOut
        End With
    Next copynumber
    
    End Sub


    https://inframicrosoft.wordpress.com/

    segunda-feira, 2 de janeiro de 2017 11:53