I have recorded a macro to get the code to add the active sheet name to the centre footer of a print out but this doesn't seem to work
I can't see anything that tells it to use the sheet name.
Any ideas anyone?
Thanks
Seem to be having a problem with the whole code as well
Thanks
Code:
.CenterHeader = "&""Arial,Bold""&36&A"
Any ideas anyone?
Thanks
Seem to be having a problem with the whole code as well
Code:
Sub PrintGraph()
Dim objChart As Object
For Each objChart In ActiveSheet.ChartObjects
With objChart.Chart
.PageSetup.Orientation = xlLandscape
.CenterHeader = "&""Arial,Bold""&36&A"
.LeftMargin = Application.InchesToPoints(0.393700787401575)
.RightMargin = Application.InchesToPoints(0.393700787401575)
.TopMargin = Application.InchesToPoints(0.590551181102362)
.BottomMargin = Application.InchesToPoints(0.590551181102362)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintPreview
End With
objChart.Chart.PrintPreview
' objChart.Chart.PrintOut
Next objChart
End Sub
Last edited: