Peter,

Try

ActiveSheet.PrintOut


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Peter McCaul" wrote in message
...
Sub printall()
For i = 1 To 6
[c1] = i
ActiveSheet.PrintPreview
Next
[c1] = 0
End Sub

This piece of coding will printout a filtered chart. My
problem is that it
previews the chart and then you have to click the print button
to print. I
don't want that. I would like it to print without previewing.
I have run
the code without the word printpreview and it still doesn't
work. Any help
is appreciated. Thanks.