Thank you, Rob
It needed a dot before the LeftHeader, but otherwise works fine.
Brian
"broro183" wrote in
message ...
Hi Brian,
I'm assuming from your question that you know some macro basics.
If you are already printing from a button incorporate the following
into your existing code:
Dim CustomLeftHeader As String
CustomLeftHeader = Worksheets("Master").Range("a1") & Chr(13) _
& Worksheets("Master").Range("a2") & Chr(13) &
Worksheets("Master").Range("a3")
With Worksheets("PrntRpt").PageSetup
LeftHeader = CustomLeftHeader
End With
Or if you/users will just be printing using Excel's normal methods (eg
[ctrl + p], file - print) enter this code into your ThisWorkbook code
sheet:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim CustomLeftHeader As String
If ActiveSheet.Name = "PrntRpt" Then
CustomLeftHeader = Worksheets("Master").Range("a1") & Chr(13) _
& Worksheets("Master").Range("a2") & Chr(13) &
Worksheets("Master").Range("a3")
With Worksheets("PrntRpt").PageSetup
LeftHeader = CustomLeftHeader
End With
Else
End If
End Sub
hth
Rob Brockett
NZ
Always learning & the best way to learn is to experience...
--
broro183
------------------------------------------------------------------------
broro183's Profile:
http://www.excelforum.com/member.php...o&userid=30068
View this thread: http://www.excelforum.com/showthread...hreadid=521424