Este fórum está sendo desativado

[luizpaps]

Pessoal preciso de uma ajuda para elaborar uma macro para imprimir a folha de ponto dos funcionários, na célula D6(mesclada) tem uma validação de dados em lista da plan funcionarios, eu preciso que imprima uma folha para cada funcionário constante da plan funcionarios, segue planilha anexa.

[Reinaldo]

Teste/experimente:

Código: Selecionar todos

Sub imprimir()
Dim lRow As Long, lLop As Long
'MsgBox "Imprimir todos os demonstrativos ?", vbYesNo, "Alerta"
Application.ScreenUpdating = False
lRow = Sheets("funcionarios").Cells(Cells.Rows.Count, "A").End(xlUp).Row
Sheets("Folha de Pto").Activate
For lLop = 2 To lRow

Sheets("Folha de Pto").Range("D6") = Sheets("funcionarios").Cells(lLop, 1).Value
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Next
Application.ScreenUpdating = True
MsgBox "Foram impressos; " & lRow - 1 & "Comprovantes"
End Sub

[luizpaps]

Muito obrigado Reinaldo funcionou 100%