software

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: www.excelforum.com/member.php...oamp;userid=28766
View this thread: www.excelforum.com/showthread...hreadid=540586try 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

quot;amrezzatquot; gt; wrote in
message ...
gt;
gt; heloo
gt; i want to print all charts in my sheet
gt; and i want to se the margins of the sheet to all equal to =2 cm
gt; and no footer no header
gt;
gt; how through vba?
gt; by the way i use a sub to print a sheet and specifiy the printarea for
gt; it
gt; and when i use that
gt; ActiveSheet.ChartObjects.PrintOut preview:=True
gt; an error appears
gt; how can i fix that??
gt;
gt;
gt; --
gt; amrezzat
gt; ------------------------------------------------------------------------
gt; amrezzat's Profile:
gt; www.excelforum.com/member.php...oamp;userid=28766
gt; View this thread: www.excelforum.com/showthread...hreadid=540586
gt;