Criar etiqueta de volume com macro

[Élcio Alves da Silva]

Tenho uma etiqueta de identificação em Excel de despacho que e colada em cada volume.

                                                  

Eu preciso da sua ajuda para elaborar um meio, seja por macro ou VBA para imprimir etiqueta da seguinte forma.

 

Ex.: Vol. 5 = Imprimir 5 etiquetas alterando apenas o volume nessa ordem: Vol.  1/5  2/5 assim sucessivamente.

Minuta.Rev.01.xlsx

[Basole]

Elcio,  [ Alt + F11 ] ,e crie um modulo, em seguida cole o codigo abaixo,  [ Alt+ F8 ] e execute a macro 'Print_Etiqueta' 

 

Sub Print_Etiqueta()
    For i = 1 To 5
        With Sheets("Etiqueta")
            .Range("n2") = i ' atualiza o nº volume
            .PageSetup.PrintArea = ""  'Limpa a area definida
            .PageSetup.PrintArea = .Range("b1:q10").Address  'define a area a imprimir
            .PrintOut  'imprime
        End With
    Next
End Sub

[Élcio Alves da Silva]

Agradeço pela ajuda, só ficou faltando um detalhe. o número de volume fica defenido pela planilha "Formulario" em P2 e digitado o nº de vol. que pode ser qualquer valor.

[Basole]

Agradeço pela ajuda, só ficou faltando um detalhe. o número de volume fica defenido pela planilha "Formulario" em P2 e digitado o nº de vol. que pode ser qualquer valor.

Bom essa informação você nao apresentou no primeiro post. se nao ja tinha resolvido. 

Segue abaixo. codigo alterado. 

 

Sub Print_Etiqueta()

    Dim i As Long

    Dim ws As Worksheet

    Set ws = Sheets("Etiqueta")

    i = 1

    With ws

        For i = i To .[p2]

            .Range("n2") = i    ' atualiza o nº volume

            .PageSetup.PrintArea = ""  'Limpa a area definida

            .PageSetup.PrintArea = .Range("b1:q10").Address  'define a area a imprimir

            .PrintOut  'imprime

        Next

    End With

End Sub

[Élcio Alves da Silva]

Amigo, ficou perfeito. Muitíssimo obrigado.

[Léo Maia BR SP]

Olá bom dia.

Basole, a dias tenho acompanhado suas resoluções Parabéns.

 

Cara, gostaria de pedir ajuda pois tenho essa mesma dificuldade.

Preciso muito gerar etiquetas diariamente porém as minhas eu só preciso informar a razão social numero de nota fiscal e quantidade de volumes.

fracionada ex: 1/5, 2/5, 3/5...

 

Poderia me ajudar?

 

Desde já agradeço, ainda que não possa parabéns bom trabalho.