Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Impressão em Lote
 
Notifications
Clear all

Impressão em Lote

 
2024 - VBA & Macros
Post Recente por romanholi 8 anos atrás
3 Posts
2 Usuários
0 Reactions
1,257 Visualizações
RSS
 romanholi
(@romanholi)
Posts: 0
New Member
Topic starter
 

Pessoal, boa tarde!

Preciso fazer a impressão de etiquetas de convocação.
Quando eu clicar no botão, a macro deverá ir na base de dados dos funcionários, pregar a primeira matricula e preencher a primeira etiqueta, depois pegar a segunda matricula e preencher a segunda etiqueta, até fechar uma página. Daí a macro imprime e volta a preencher as etiquetas da matricula que parou!

Comecei a fazer, mas só consegui utilizando uma etiqueta!

Poderiam me ajudar!

Valeu galera!

 
Postado : 06/03/2017 11:27 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Sem testar, mas experimente:

Sub Imprime()

uLinha = Sheets("Bd_Funcs").Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("Convite")
For x = 2 To uLinha Step 10
    .Range("E6") = Sheets("Bd_Funcs").Range("A" & x)
    .Range("Q6") = Sheets("Bd_Funcs").Range("A" & x + 1)
    .Range("E21") = Sheets("Bd_Funcs").Range("A" & x + 2)
    .Range("Q21") = Sheets("Bd_Funcs").Range("A" & x + 3)
    .Range("E36") = Sheets("Bd_Funcs").Range("A" & x + 4)
    .Range("Q36") = Sheets("Bd_Funcs").Range("A" & x + 5)
    .Range("E51") = Sheets("Bd_Funcs").Range("A" & x + 6)
    .Range("Q51") = Sheets("Bd_Funcs").Range("A" & x + 7)
    .Range("E66") = Sheets("Bd_Funcs").Range("A" & x + 8)
    .Range("Q66") = Sheets("Bd_Funcs").Range("A" & x + 9)
     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
Next
End Sub
 
Postado : 06/03/2017 12:55 pm
 romanholi
(@romanholi)
Posts: 0
New Member
Topic starter
 

Perfeito meu amigo!
Show de bola!

Obrigado

 
Postado : 06/03/2017 1:03 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico