how do I print an employee timesheet with employee individual name without having to print one at a time please?

[Monbellydancer]

help. how do I print an employee timesheet with employee individual name without having to print one at a time please?

 

[Logit]

How is the time sheet layout presented ? It would be best if you could attach a copy of your example
workbook.

 

[Monbellydancer]

Hi. I have attached a sample. I have Excel sheet with month. Where it says name I will insert employee name but just want to generate to print automatically with all employee names without having to insert a name at a time and print a sheet for each employee. Hope it makes sense

 

[Monbellydancer]

Thanks any help appreciated

Hi. I have attached a sample. I have Excel sheet with month. Where it says name I will insert employee name but just want to generate to print automatically with all employee names without having to insert a name at a time and print a sheet for each employee. Hope it makes sense

 

[pecoflyer]

Thanks any help appreciated

It is customary to wait at least 24hrs before bumping. Thx ( BTW your thread title could be more explicit)

 

[Logit]

Thanks for the sheet image.

From past experience I feel there is more to your project than you have already described and this will prevent you receiving an
accurate answer to your question.

Where are the employee names kept ?
How are you maintaining the shift information/hours for each individual employee ?
Does each date in your example image represent a shift ? Or will there be additional data entered to the right of each date ? Where is that data
kept for each employee ?

There are other questions that will arise as you progress with your project.

 

[Monbellydancer]

Hi. I have names of the employees on mother Excel sheet. The sample I gave you runs from 1sr Sept to 30th september.itsba simple sheet. No hours, no shifts. The employee manually signs in and out on each day. Very simple

 

[Logit]

Sub PrintShiftsPreview()
    Dim rCl As Range
    Dim rRng As Range
    With Sheet1
        Set rRng = ActiveWorkbook.Windows(1).Selection.Rows
        For Each rCl In rRng
            With Sheet2
                .Cells(1, 1).Value = rCl.Value
                .PrintPreview
            End With
            
        Next rCl

    End With
  
   With Sheet2
                .Cells(1, 1).Value = ""
   End With
  
End Sub

Sub PrintShiftsAll()
    Dim rCl As Range
    Dim rRng As Range
    With Sheet1
        Set rRng = ActiveWorkbook.Windows(1).Selection.Rows
        For Each rCl In rRng
            With Sheet2
                .Cells(1, 1).Value = rCl.Value
                
            End With
        Next rCl

    End With
    
    With Sheet2
                .Cells(1, 1).Value = ""
    End With
    
End Sub

 

[Monbellydancer]

Thank you for your kindness. this has helped me. Thank you for helping, Im very appreciated. Best wishes

 

[Logit]

You are welcome.