Thread: How to print the charts in my sheet through vba

heloo
i want to print all charts in my sheet
and i want to se the margins of the sheet to all equal to =2 cm
and no footer no header

how through vba?
by the way i use a sub to print a sheet and specifiy the printarea for it
and when i use that
ActiveSheet.ChartObjects.PrintOut preview:=True
an error appears
how can i fix that??

try this idea instead
Sub printcharts()
Dim Ch As ChartObject
For Each Ch In ActiveSheet.ChartObjects
Ch.Chart.PrintPreview
Next
End Sub

--
Don Guillett
SalesAid Software
dguillett1@austin.rr.com
"amrezzat" <amrezzat.27l5gz_1147254301.6911@excelforum-nospam.com> wrote in
message news:amrezzat.27l5gz_1147254301.6911@excelforum-nospam.com...
>
> heloo
> i want to print all charts in my sheet
> and i want to se the margins of the sheet to all equal to =2 cm
> and no footer no header
>
> how through vba?
> by the way i use a sub to print a sheet and specifiy the printarea for
> it
> and when i use that
> ActiveSheet.ChartObjects.PrintOut preview:=True
> an error appears
> how can i fix that??
>
>
> --
> amrezzat
> ------------------------------------------------------------------------
> amrezzat's Profile:
> http://www.excelforum.com/member.php...o&userid=28766
> View this thread: http://www.excelforum.com/showthread...hreadid=540586
>