Print signature lines as footer

G

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
 
W

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

[email protected]

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