Печать картинки объектом Printer

[amelina]

Кто-нибудь знает, как напечатать с помощью объекта Printer картинку?
У меня, например, хранится файл вроде "логотипа" организации в таблице Access в поле OLE.

А у объекта Printer есть такой метод:

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

Printer.PaintPicture

а основной аргумент:

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

Picture as IPictureDisp

А как на картинку сослаться - не пойму..

[hCORe]

Используй объект Image на форме (назовем его imgTMP) и перенеси в него картинку из базы. Печать будет выглядеть примерно так:

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

Private Sub PrintImage ()
Printer.PaintPicture imgTMP.Picture 'это и есть IPictureDisp, а по русски - дескриптор картинки!
End Sub

ЗЫ. Можно и Picture использовать, у него тоже такое свойство есть

ЗЗЫ. Как выловить содержимое поля OLE - сам не знаю

[SSecurity]

Связываешь картинку с ПикчерБоксом и после этого печатаешь

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

Printer.CurentX=10
Printer.CurentY=10
' ... короче тут любой код
Printer.PaintPicture Picture1.Picture
Printer.EndDoc


Picture1 - ПикчерБокс

[amelina]

Связываешь картинку с ПикчерБоксом

Гы, легко сказать :)

А если я прямо из менюшки MDI-формы печатать хочу? Прайс-лист, например, с логотипом, например? А?

MDI капризничает чего-то по поводу вставления в нее картинок - только не помню, то ли PictureBox, то ли ImageBox ей не нравится.


p.s. Вау, у меня вроде бы одна звездочка закрасилась =))))

[SSecurity]

Ну в таком случае я бы пошел проще ... собрал бы окно и Создав глобальную переменную сделал бы её окном и создавал таких бы кучу, скока нужную ... там все свойства копируются и методы ... а их при желании можно на главной форме реализовать, только корректно общаться с Именем объекта

лично я не вижу проблемы, еслив чем-то етсь проблема, считаю возможным обойти её с другой стороны и решить

[amelina]

лично я не вижу проблемы, еслив чем-то етсь проблема, считаю возможным обойти её с другой стороны и решить

Совершенно согласна...

А проблема в том, что я хочу вытащить картинку из поля OLE.
Ну и послать ее на принтер с помощью объекта Printer...

Если можешь объяснить поподробнее, с какой стороны тут обойти, буду благодарна...

[SSecurity]

Уважаемая, amelina
Предлагаю Вашему вниманию код ... хотя я и не знал ... но немного поэксперементировав узнал ...

Private Sub Form_Click()
OLE1.Visible = False
OLE1.AppIsRunning = True
Image1.Picture = OLE1.Picture
End Sub

На Форме
DATA1 - ну это понятно база данных для связи
OLE1 - объект OLE
Image1 - Image всё с тулсов

У объекта ОЛЕ есть свойства ДАТАСоурс и ДатаФилд, думаю ты знаешь, что с ними делать
по клику на форме точечный рисунок из ОЛЕ передается в Image

[amelina]

Спасибо, попробую...

[amelina]

А вот это интересно...

Пишу:

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

OLE1.Visible = False
OLE1.AppIsRunning = True
MsgBox OLE1.AppIsRunning



Выдает False...
После этого, разумеется, если пробовать

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

Image1.Picture = OLE1.Picture

выдает ошибку object not running

[SSecurity]

Попробуй напиши

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

OLE1.AutoActivate = 3


Это автоматически активирует ОЛЕ-объект при обращении к нему ... по умолчанию кажтся установлено по КЛИКУ

Попробуй