Tisk grafu MSChart
Procedura:
Private Sub Graf_Tisk()
'Zkopírování
grafu do schránky
Grafik.SelectPart
VtChPartTypeChart, 0, 0, 0, 0
Grafik.EditCopy
'Otočení
papíru
Printer.Orientation = vbPRORLandscape
'Ze
schránky vložíme graf a ještě ho roztáhneme na celej papír
Printer.PaintPicture Clipboard.GetData(3), 0, 0, _
Printer.Width - 1300,
Printer.Height
Printer.EndDoc
End Sub