в Picturebox строится график,с осями координат и масштабом! как его распечатать на принтере???
смотрел здесь-http://www.andreavb.com/Print.html
сделал,печатает какие то цифры

пробовал так

Private Sub Command3_Click()
 Printer.Print Picture1.Image
Printer.EndDoc
End Sub

и еще один вариант из форума 

всегда выходит какое нить число или 0

По приведенной ссылке находится много полезных советов по работе с принтером: "Printing the contents of a picturebox, including (most) controls, to a printer", "Print a Picture to Fit a Page"... Не понятно, почему не воспользовались  

сделал как ты посоветовал!

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 для нормальной печати?

 что тут скажешь.

значит надо: