Печать

[xqz_me]

Как распечатать на принтере картинку вверху посередине страницы и значение нескольких переменных с слевого краю (каждое значение на новой строчке)?

[Хакер]

Надо представить себе что объект Printer является PictureBox'ом, следовательно можно использовать Picture, PaintPicture, Print - и чего тут непонятного. Чтобы лучше разобраться - нужен принтер, куча бумаги и свободного времени, - иначе получить опыт в работе с принтером нельзя.

[xqz_me]

Как тесты печатать, я разобрался. Терь такой вопрос. Нашёл в одной статье:

Однако основным методом для работы с печатью графических документов является другой метод. Этот метода называется PaintPicture. Рассмотрим его работу на примере.

Printer.PaintPicture objPic, 100, 100

Это строчка кода печатает предварительно загруженный графический объект objPic со смещением от начала страницы на 100 пикселей по горизонтали и вертикали.

Если вместо objPic поставить печать Picture1 или Image1, то принтер надолго задумывается (Spooling). Как правильно распечатать картинку (не важно откуда, из файла или из самой проги)

[Konst_One]

objPic = IPictureDisp

[xqz_me]

Что это значит?

[Хакер]

Это значит что нужно передавать ссылку не на объект на на
Объект.Picture

в твоём случае Picture1.Picture или Image1.Picture

[xqz_me]

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

Private Sub Command1_Click()
Dim objPrinter As printer
printer.PaintPicture Picture1.Picture, 100, 100
End Sub

После чего статус принтера становится Spooling (типа, обрабатывает перед печатью). Печатать не хочет. В Picture1 - небольшая bmp картинка.

Добавление: через 3:20 минут картинка всё-таки расмечаталась. Долговато как-то. Что делать?

[Хакер]

расмечаталась.

а как эта же bmp-картинка расмечатается если её открыть Paint'ом и Ctrl+P.

и ещё. Ты принтер как-нибудь вообще настраиваешь.

[xqz_me]

15 секунд (правая кнопка > print).
Принтер у меня настроен в системе. В vb только тот код, который я написал. Вообще у меня 2 принтера и vb печатает на установленном по умолчанию с его настройками.

Может, правиленее через imagelist печатать?

[Хакер]

Private Sub Command1_Click()
Dim objPrinter As printer
printer.PaintPicture Picture1.Picture, 100, 100
End Sub

Я только не могу понять

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

Dim objPrinter As printer

______________________

Печатать через imagelist всё-равно, что хранить иконки в me.tag

[Хакер]

А вообще надо настроить принтер перед тем как печатать. (Ну там PaperBin, PaperSize, Zoom, PrintQulity, ITD)

[alibek]

Добавление: через 3:20 минут картинка всё-таки расмечаталась. Долговато как-то. Что делать?

А Printer.EndDoc делать не пробовал?

[xqz_me]

А Printer.EndDoc делать не пробовал?

Гы.. Определённо помогает. Спасибо