Print signature lines as footer

[goss]

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 fo
mgr signatur

 

[William]

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

(e-mail address removed)

| 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
|