Создание предпросмотра печати документа?

[Alex_new_2030]

Делаю программу с выводом результатов работы на принтер.
Печатаю с помощью объекта printer (printer.print "текст для печати")
Вот хочу сделать предпросмотр того что будет напечатано.
На форму кинул объект PictureBox и напечатал все в него (picture1.print "текст для печати") все получилось cool.
Далее захотел сделать увеличение и уменьшение листа просмотра, однако оказалось что у picturebox'а нет свойства stretch, которое есть у ImageBox'а.
Решил перекинуть нарисованную картинку из PictureBox в ImageBox, а затем маштабировать ImageBox сколько душа пожелает - да не тут то было. Не хочет он картинку из PictureBox в ImageBox перекидывать (image1.picture=picture1.picture) . Хотя если в PictureBox предварительно загрузишь картинку из файла, то ее он перекидывает.
Что можно придумать? Может кто подскажет?

[GSerg]

Ну попробуй метод PaintPicture поюзать

[alibek]

Должно быть Picture1.AutoRedraw=True

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

Set Image1.Picture = Picture1.Image

[Alex_new_2030]

Cool

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

Set Image1.Picture = Picture1.Image

Работает!!!
Большое спасибо.

[Oldman]

Я тоже занимаюсь этой проблемой (субж). Но у меня другая проблема:
У меня заполняется Flex, к ней пририсовывается заголовок, номер страницы и тогда можно на печать. Но при выводе на печать изображение с очень плохим разрешением. Все буквы в квадратиках. Как побороть данный глюк?
И на экране тоже хрен чего видно...
Как быть?

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

  Pict1.PaintPicture Flex1.Picture, (Pict1.Width - Flex1.Width) / 2, 500
  Im1.Height = Pict1.Height
  Im1.Width = Pict1.Width
  Flex1.Visible = False
  Set Im1.Picture = Pict1.Image
  Pict1.Visible = False
  Im1.Stretch = True
  Im1.Height = PreViewF.Height - 500
  Im1.Width = Int(Im1.Height / 1.414)


где Pict1 - пикчербокс, Flex1 - MSHFlexGrid, Im1 - ImageBox.