Does anyone know the code to put a number in the right header...
You are already 50% there.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet1" Then
ActiveSheet.Range("K1").Value = ActiveSheet.Range("K1").Value + 1
ActiveSheet.PageSetup.RightHeader = ActiveSheet.Range("K1").Value
End If
End Sub
--
Gary''s Student - gsnu200737
"Jennifer-Houston, TX" wrote:
Does anyone know the code to put a number in the right header and have the
number change everytime you print? This number has nothing to do with the
worksheet itself, it is a totally different number.
This is what I am using to do the regular printing in the spreadsheet and
would like it to be changed for the right header only no cell reference:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet1" Then
ActiveSheet.Range("K1").Value = ActiveSheet.Range("K1").Value + 1
End If
End Sub
Thanks sorry for the double post but I haven't received an answer to help me.
Jennifer
|