VB Code:
Private Sub Command1_Click()
'============================
Dim pct As PictureBox
MSChart1.EditCopy
Set pct = Controls.Add("VB.Picturebox", "pctTemp")
pct.AutoSize = True
pct.AutoRedraw = True
pct.Picture = Clipboard.GetData(vbCFMetafile)
Printer.FontBold = True
Printer.FontSize = 12
Printer.FontUnderline = True
Printer.CurrentX = (Printer.Width - Printer.TextWidth("CPMS Representative Trend Report")) / 2
Printer.CurrentY = 400
Printer.Print "Daily Report"
Printer.CurrentX = Printer.CurrentX + 400
Printer.PaintPicture pct.Picture, _
(Printer.Width - MSChart1.Width) / 2, _
Printer.CurrentY, _
MSChart1.Width, _
MSChart1.Height
Printer.EndDoc
Controls.Remove "pctTemp"
Set pct = Nothing
End Sub