| Вопрос: Печать MSChart | Добавлено: 24.11.07 13:22 |
Автор вопроса:  Иван | Web-сайт: www.harami.ru
|
|
Помогите, пожалуйста, отправить на печать диаграмму MSChart через Printer (PrintForm не годится).
(Насколько я понимаю, надо предварительно преобразовать диаграмму в изображение?) |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  EUGY Вопросов: 0 Ответов: 454 |
Профиль | | #1 | Добавлено: 25.11.07 12:13 |
|
если по-проще, то так можно:
Private Sub Command1_Click() '1) MSChart1.EditCopy Printer.PaintPicture Clipboard.GetData, 0, 0 Printer.EndDoc End Sub Private Sub Command2_Click() '2) Picture1.AutoRedraw = True Picture1.Width = MSChart1.Width Picture1.Height = MSChart1.Height Call SendMessage(MSChart1.hwnd, WM_PAINT, Picture1.hdc, 0) Picture1.Picture = Picture1.Image Printer.PaintPicture Picture1, 0, 0 Picture1.AutoRedraw = False Printer.EndDoc End Sub |
||
|
Номер ответа: 2 Автор ответа: Иван Вопросов: 34 Ответов: 53 |
Web-сайт: Профиль | | #2 | Добавлено: 26.11.07 16:57 |
| Спасибо Вам большое, EUGY, Вы уже не в первый раз меня выручаете. | ||
Страница: 1 |