Impressão de Folha de ponto
Enviado: 09 Jan 2017 às 09:40
por 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.
Re: Impressão de Folha de ponto
Enviado: 09 Jan 2017 às 10:11
por Reinaldo
Teste/experimente:
Código: Selecionar todosSub 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
Impressão de Folha de ponto
Enviado: 09 Jan 2017 às 11:32
por luizpaps
Muito obrigado Reinaldo funcionou 100%