Thread: Input Custom Header on Print
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
DDawson DDawson is offline
external usenet poster
  
Posts: 59
Default Input Custom Header on Print
I finally got it, thanks to Ivan F Moala and
http://www.mrexcel.com/archive/VBA/18199.html

Private Sub btnTitle_Click()
Dim strTitle As String

strTitle = frmPageTitle.txtTitle.Value

ActiveSheet.PageSetup.CenterHeader = "&""Arial,Bold""&14 " & strTitle _
& Chr(10) & (Date)

frmPageTitle.Hide
End Sub

"DDawson" wrote:



"DDawson" wrote:

Is there a way to make Excel ask for Custom Header Text after sending a print
command.

I want to be able to print out Autofiltered Tables and have specific titles
for them according to the data I've filtered.

If Excel could ask me for the Title text before the print, this would be
ideal.

Regards
Dylan
Reply With QuoteReply With Quote