Impressão em Lote

2024 - VBA & Macros

Post Recente por romanholi 8 anos atrás

3 Posts

2 Usuários

0 Reactions

1,266 Visualizações

RSS

romanholi

(@romanholi)

Posts: 177

Estimable 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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 06/03/2017 12:55 pm