I'm formatting an excel sheet from Access - works OK accept the footer needs the &[PAGE] and &[DATE] command
When I send it just shows the words but doesn't fill in the PAGE or DATE
Dim objXL As Excel.Application
Set objXL = New Excel.Application
With objXL.ActiveSheet.PageSetup
.CenterFooter = "FirstLine" & Chr(10) & Chr(10) & "Second Line" & Chr(10) & Chr(10) & "&&[Page]" & " of " & "&&[Pages]" & Chr(10) & "&&[Date]"
end with
must be a secret to get it to work
When I send it just shows the words but doesn't fill in the PAGE or DATE
Dim objXL As Excel.Application
Set objXL = New Excel.Application
With objXL.ActiveSheet.PageSetup
.CenterFooter = "FirstLine" & Chr(10) & Chr(10) & "Second Line" & Chr(10) & Chr(10) & "&&[Page]" & " of " & "&&[Pages]" & Chr(10) & "&&[Date]"
end with
must be a secret to get it to work