Распечатать изображение с объекта Picture - VB

Узнай цену своей работы

Формулировка задачи:

На форме объект Picture1 и прочие элементы. На Picture1 строятся графики и выводятся таблички. Как распечатать на принтере то, что нарисовано на Picture1? Очень нужна ваша помощь!
Никто не знает что ли?

Решение задачи: «Распечатать изображение с объекта Picture»

textual
Листинг программы
If Printer.ScaleWidth / Printer.ScaleHeight > Picture1.ScaleWidth / Picture1.ScaleHeight Then
    Printer.PaintPicture Picture1.Image, 0, 0, Printer.ScaleHeight * Picture1.ScaleWidth / Picture1.ScaleHeight, Printer.ScaleHeight
Else
    Printer.PaintPicture Picture1.Image, 0, 0, Printer.ScaleWidth, Printer.ScaleWidth * Picture1.ScaleHeight / Picture1.ScaleWidth
End If
Printer.EndDoc

Оцени полезность:

15   голосов , оценка 3.733 из 5
Похожие ответы