Как же ее распечатать...?

[BossXP]

Есть график в PictureBox, как его можно вывести на бумагу методом ptinter.print???

[dr.MIG]

Код: Выделить всё

Printer.Print Picture1
Printer.EndDoc


[Ramzes]

только для начала надо кординаты задать

Код: Выделить всё

Printer.CurrentX = ????
Printer.CurrentY = ????



[BossXP]

Пробовал. Печатает 0.
В чем проблема????

[dr.MIG]

А что значит "график в PictureBox". Там просто картинка какая или что?

[BossXP]

Кусок кода:

Picture1.Line (0, 20)-(lngCommon(0), 80), vbBlue, BF
Picture1.Line (0, 120)-(lngCommon(1), 180), vbRed, BF '85,80
Picture1.Line (0, 230)-(lngCommon(2), 290), vbGreen, BF

----------------------------
График закружается при загрузке формы(AutoRedRaw = true)

Вот, затем надо напечатать все что находиться внутри picture1

[BossXP]

Кусок кода:

Picture1.Line (0, 20)-(lngCommon(0), 80), vbBlue, BF
Picture1.Line (0, 120)-(lngCommon(1), 180), vbRed, BF
Picture1.Line (0, 230)-(lngCommon(2), 290), vbGreen, BF

----------------------------
График закружается при загрузке формы(AutoRedRaw = true)

Вот, затем надо напечатать все что находиться внутри picture1

[tyomitch]

Тогда вызывай

Код: Выделить всё

Printer.Print Picture1.Image

[BossXP]

нет... Непечатает.
Выводит символы похоже 16'й кодировки.
Вот проблема то.......

Еще какие предложения?

[Sirik]

1. Поставть свойство AutoRedraw=True
2. Народ, есть такой метод как PaintPicture!

Код: Выделить всё

Printer.PaintPicture Picture1.Image, 1, 1, Picture1.Width, Picture1.Height
Printer.EndDoc


У меня всё нормально печает. Вот только надо учесть одно но: размеры картинки чтобы не выходили за границу печати

[BossXP]

Хм... странно. Работает. Спасибо всем.