| Вопрос: Печать рисунков | Добавлено: 31.08.07 15:23 |
Автор вопроса:  Игорь | ICQ: 457394129 |
| Товарисчы! подскажыте пожалуйста как можно вывисти на принтер рисунок из пиктуры бокса? |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Stuart Вопросов: 5 Ответов: 152 |
Профиль | | #1 | Добавлено: 31.08.07 18:20 |
|
Как содержимое формы или Picture выкинуть на принтер?
Ответ прост 
w=Screen.ScaleX(Picture1.Picture.Width, vbHiMetric, vbTwips) h=Screen.ScaleY(Picture1.Picture.Height, vbHiMetric, vbTwips) Printer.PaintPicture Picture1.Picture, 0, 0, w, h, 0, 0, w, h, vbSrcCopy |
||
|
Номер ответа: 2 Автор ответа: ИгорьICQ: 457394129 Вопросов: 52 Ответов: 133 |
Профиль | | #2 | Добавлено: 31.08.07 18:28 |
| У меня выдаёт ошибку ScaleX и ScaleY! | ||
|
Номер ответа: 3 Автор ответа: StuartВопросов: 5 Ответов: 152 |
Профиль | | #3 | Добавлено: 31.08.07 18:37 |
|
Ну тогда вот так вот попробуй, у меня все работает!!!:
w = Picture1.Picture.Width h = Picture1.Picture.Height Printer.PaintPicture Picture1.Picture, 0, 0, w, h, 0, 0, w, h, vbSrcCopy |
||
Страница: 1 |