I'm using VSPrinter Control to Print an array of Charts
which are on my form. The problem is, its printing
only the last chart. I don't understand where I'm going wrong. Can anyone please help me.

I'm using the following code:

Dim J As Integer
vsPrinter1.StartDoc
For J = 1 To MSChart1.UBound
MSChart1(J).EditCopy
vsPrinter1.X1 = 1000
vsPrinter1.Y1 = 1000
vsPrinter1.X2 = 3000 + MSChart1(J).Width
vsPrinter1.Y2 = 3000 + MSChart1(J).Height
Clipboard.Clear
Next
vsPrinter1.EndDoc