Конференция VBStreets

**Matew** » 15.09.2004 (Ср) 5:16

Взял с этого форума код и доработал его под себя:

Код: Выделить всё: Dim w As Long, h As Long w = pic.Width' где-то 900 получается h = pic.Height ' 550 Me.pic.AutoRedraw = True Printer.PaintPicture pic.Picture, 0, 0, w , h, 0, 0, w, h , vbSrcCopy Me.pic.AutoRedraw = False [quote] Прога пишет: Ошибка 481 недопустимое изображение. И печатает пустой лист :( . Что не так? Может легче печатать из программы BMP файл (который я создал)?(но лучше не надо)[/quote]

**A.A.Z.** » 15.09.2004 (Ср) 21:22

Может, стоит все ScaleMode в vbPixel перевести? :roll:

**Matew** » 16.09.2004 (Чт) 8:15

Все в пикселях.(((

**Matew** » 16.09.2004 (Чт) 14:38

Ну подскажите-очень надо((

**A.A.Z.** » 16.09.2004 (Чт) 17:55

У меня все печатается...

**Matew** » 17.09.2004 (Пт) 5:58

А уменя почему-то не работает((( Наверно потому, что принтер сетевой?

**Matew** » 17.09.2004 (Пт) 9:48

Я достал пример из книги Эпплмана, и он вроде работает.A.A.Z., извини за беспокойство.

**A.A.Z.** » 17.09.2004 (Пт) 21:29

Да ладно

Печать картинки