print specific chart(s)

[Jockster]

A worksheet called "Charts" has 13 charts on it.
I would like the ability for the user print out any of the charts by clicking a button and then being asked which chart to print. The user simply enters the chart number into an input box and that specific chart is printed to A4.
A second option to print all charts onto seperate sheets of paper would also be great.
Is this sort of thing do-able?

 

[Trevor G]

Here is sample code to allow you to select a chart by using an inputbox, I haven't included anything if there is no chart number

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> PrintCharts()<br><SPAN style="color:#007F00">'Allow to print preview selected chart</SPAN><br><SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN><br>i = InputBox("Which Chart Do you want to Print", "Charts")<br>ActiveSheet.ChartObjects("Chart " & i).Activate<br>ExecuteExcel4Macro "PRINT(1,,,1,,TRUE,,,,,,2,,,TRUE,,FALSE)"<br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[Jockster]

Thanks Trevor. Just the job.

Do you know how I would add username, date and time to the footer when print previeved? That would be really handy!

I tried:

With ActiveSheet.ChartObjects("Chart " & i)
         .LeftFooter = "Revised on " & Date & " by " & Application.UserName
End With

but it errored.