| Код |
|
По приведенной ссылке находится много полезных советов по работе с принтером: "Printing the contents of a picturebox, including (most) controls, to a printer", "Print a Picture to Fit a Page"... Не понятно, почему не воспользовались
| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > VB6 > печать |
| Автор: Land_Lelik 10.2.2008, 16:19 |
| в Picturebox строится график,с осями координат и масштабом! как его распечатать на принтере??? смотрел здесь-http://www.andreavb.com/Print.html сделал,печатает какие то цифры пробовал так Private Sub Command3_Click() Printer.Print Picture1.Image Printer.EndDoc End Sub и еще один вариант из форума всегда выходит какое нить число или 0 |
| Автор: bom 10.2.2008, 20:59 | ||
По приведенной ссылке находится много полезных советов по работе с принтером: "Printing the contents of a picturebox, including (most) controls, to a printer", "Print a Picture to Fit a Page"... Не понятно, почему не воспользовались |
| Автор: Land_Lelik 11.2.2008, 14:43 |
| сделал как ты посоветовал! Private Sub Command3_Click() Printer.PaintPicture Picture1.Picture, 0, 0 Printer.EndDoc End Sub показывает ошибку invalid picture в строке Printer.PaintPicture Picture1.Picture, 0, 0 но когда программу закрываешь начинает печатать,но ывходит чистый лист. http://www.andreavb.com/Print.html на этом ресурсе я воспользовался Print a Picture to Fit a Page! Printing the contents of a picturebox, including (most) controls, to a printer печатает чистый лист и после клика по command все рисунки на picture стираются! Добавлено через 3 минуты и 51 секунду на picture1 выводится линии,точки и числа: Picture1.Print Format(tz, "##0.0##") Picture1.Line (500 + tz * mas, Picture1.Height - 450)-(500 + tz * mas, Picture1.Height - 650) Picture1.PSet (tz * mas + 500, Picture1.Height - 500 - Max * z), RGB(250, 0, 0) может нужно изменить какое нить свойство у picturebox для нормальной печати? |
| Автор: bom 11.2.2008, 15:51 | ||||||
значит надо:
|
