Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Not ActiveSheet.Name = "Time_Entry" Then Exit Sub
Dim r As Range, s As String, c As Range, i As Integer
With Sheets("mytools")
Set r = .Range("A10:F10")
For i = 1 To 6
For Each c In r.Offset(i, 0)
s = s & " " & c
Next c
s = s & vbNewLine
Next i
End With
Sheets("Time_Entry").PageSetup.RightFooter = s
End Sub
--
XL2002
Regards

William



"goss " wrote in message
...
| Hi ng
| Using xl 2003
|
| Using nodupes to print employee timesheets
| (An individual sheet prints for each employee based on name in col A)
|
| Would like to also print signature lines at bottom of each report
|
| Tried this,not working
|
| Private Sub Workbook_BeforePrint(Cancel As Boolean)
| Application.ScreenUpdating = False
| Sheets("mytools").Select
| Set myfooter = Range("A11:F16")
|
| ActiveSheet.PageSetup.RightFooter = myfooter
|
| End Sub
|
| The data to be printed is on Time_Entry!
|
| The footer should have line for employee signature and another line for
| mgr signature
|
|
| ---
| Message posted from http://www.ExcelForum.com/
|