печать картинки + BitBlt = не могу

[evgm00]

привет всем
пытаюсь отправить на принтер

Printer.NewPage
Call BitBlt(Printer.hDC, 0, 0, lWidthPixels, lHeightPixels, PictureBox.hDC, 0, 0, SRCCOPY)
Printer.EndDoc

при любом раскладе lWidthPixels, lHeightPixels хоть в пикселях хоть в мм, при любом Printer.ScaleMode = vbTwips хоть км
картинка печатается маленькая (раз в 4,5 меньше) в левом верхнем углу

что-то я не так делаю - надо чтобы картинка выводилась на весь лист при любом формате бумаги - то есть масштабировалась
пробовал
lWidthPixels = PictureBox.ScaleX(PictureBox.ScaleWidth, PictureBox.ScaleMode, vbPixels)
lHeightPixels = PictureBox.ScaleY(PictureBox.ScaleHeight, PictureBox.ScaleMode, vbPixels)

безрезультатно
что не так и как надо чтобы было так???
заранее спасибо

[GSerg]

Раз.

tag_warning

[Matew]

evgm00, у принтера свое разрешение.

[evgm00]

evgm00, у принтера свое разрешение.

и как же это узнать???
(плотно с принтерами не работал, так что...)
как вычислить ширину и высоту взависимости от принтера
чтобы она полностью на лист любого формата любого разрешения принтера масштабировалась???

[Matew]

Используй Printer.ScaleHeight и
Declare Function StretchBlt Lib "gdi32" Alias "StretchBlt" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
вместо BitBlt.

[Viper]

evgm00, у тебя некорректная смесь API с VB. Или пользуйся только функциями VB или только API (имеется ввиду конкретно твой случай). Для получения свойств принтера пользуйся либо объектом Printer, либо соответствующими функциями API (GetPrinter, GetDeviceCaps и так далее, MSDN рулит).

З.Ы. где-то выкладывал пример, где возвращались все данные о принтере.

[evgm00]

спасибо большое - все получилось
только вот почему-то принтер отпечатывает картинку и следом выплевывает еще одну пустую страницу зачем-то...

[Viper]

код свой покажи, похоже ты дважды отсылаешь печать новой страницы

[evgm00]

вот такая смесь:

Printer.ScaleMode = vbPixels
PictureBox.ScaleMode = vbPixels
Printer.Orientation = vbPRORLandscape
Printer.NewPage
Call StretchBlt(Printer.hdc, 0, 0, Printer.ScaleWidth, Printer.ScaleHeight, PictureBox.hdc, 0, 0, PictureBox.ScaleWidth, PictureBox.ScaleHeight, SRCCOPY)
Printer.EndDoc

[evgm00]

не приходилось мне еще работать с принтерами всякими
буду очень признателен за пример правильного кода

[Viper]

Printer.NewPage убери

[evgm00]

Printer.NewPage убери

заремил Printer.NewPage
вообще печать прекратилась
не передается задание на принтер...

[BV]

Тебе же сказали, что смешивать класс Printer и API нехорошо.
Замени StretchBlt на Printer.PaintPicture.

[evgm00]

Тебе же сказали, что смешивать класс Printer и API нехорошо.
Замени StretchBlt на Printer.PaintPicture.

ну уж нет уж...
лучше подскажите как заменить все на АПИ
PaintPicture не устроит - кртинка не загружается как изображение откуда-то а рисуется графическими методами (это схема ограмная)
она гораздо бельше видимой области экрана (да еще и n- кол-во листов разбита да еще и со слоями) так что боюсь что тут только АПИ
только надо все правильно отработать

[GSerg]

PaintPicture не устроит - кртинка не загружается как изображение откуда-то а рисуется графическими методами

Не вижу логики во фразе.
Нет никакой разницы, откуда что загружается или рисуется.

[evgm00]

PaintPicture не устроит - кртинка не загружается как изображение откуда-то а рисуется графическими методами

Не вижу логики во фразе.
Нет никакой разницы, откуда что загружается или рисуется.

ну как нет разницы???
(я повторюсь третий раз - нет у меня достаточного опыта печати из VB)
может я неправильно формулирую вопрос... или вообще (что более вероятно) не понимаю сути процесса...
как мне написать PaintPicture???
PictureBox.Picture - инвалид - ее просто нет...
Printer.PaintPicture(PictureBox.Picture, 0, 0, ... и тд)
----------------------
что печатать-то??? откуда ее взять???

[tyomitch]

как мне написать PaintPicture???
PictureBox.Picture - инвалид - ее просто нет...
Printer.PaintPicture(PictureBox.Picture, 0, 0, ... и тд)
----------------------
что печатать-то??? откуда ее взять???

PictureBox.Image не подойдёт?

[evgm00]

Form1.Picture1 - картинка А3

Printer.ScaleMode = vbPixels
Form1.Picture1.ScaleMode = vbPixels
Printer.Orientation = vbPRORLandscape
Printer.NewPage
Call StretchBlt(Printer.hdc, 0, 0, Printer.ScaleWidth, Printer.ScaleHeight, Form1.Picture1.hdc, 0, 0, Form1.Picture1.ScaleWidth, Form1.Picture1.ScaleHeight, SRCCOPY)
Printer.EndDoc

дома все масштабировалось на А4 и печаталось (только выплевывалась вторая чистая страница)
на работе хоть на А4 хоть на А3 выезжает две чистые страницы почему-то
в чем дело???

заранее спасибо

[alibek]

evgm00, посмотри этот кирпич, там есть в том числе и вывод картинки.

[evgm00]

посмотрел - попробовал - все равно выходит чистая страница

Dim aaa As New PrintJob
Call aaa.AddImage("ааа", 0, 0, Printer.ScaleWidth, Printer.ScaleHeight, Form1.Picture1.Image)
Call aaa.PrintCurrentJob(Printer)
Printer.EndDoc

хотя дома на др принтере все работает - работает и мой вариант описаный выше и этот класс...

[alibek]

А что за принтер?

[evgm00]

может что в настройках самой системы???
и дома и на работе WinXPpro
дома А4 НР DeskJet 3745 естесственно локальный
на работе А3 HP Color LaserJet 5500 PCL 6 (FET18) естесственно сетевой
может не в коде дело совсем???

[alibek]

Если сделать Printer.Print "Test", то тоже пустая страница выводится? Или проблемы только с растровыми рисунками?

[evgm00]

нет "Test" печатает

[evgm00]

Call Form1.Picture1.Move(0, 0, 16839.9, 11907) - картина А4
Call Form1.Picture2.Move(0, 0, 23814, 16839.9) - картина А3

Call StretchBlt(Form1.Picture1.hdc, 0, 0, Form1.Picture1.Width, Form1.Picture1.height, Form1.Picture2.hdc, 0, 0, Form1.Picture2.Width, Form1.Picture2.height, SRCCOPY)

картинка копируется с масштабированием

Printer.NewPage
Call StretchBlt(Printer.hdc, 0, 0, Printer.Width, Printer.height, Form1.Picture2.hdc, 0, 0, Form1.Picture2.Width, Form1.Picture2.height, SRCCOPY)
Printer.EndDoc

выходит 2 чистые страницы

Printer.Print "Test" работает

Printer.PaintPicture (Form1.Picture2.......
печатает есс-но только то что видно на экране

Form1.Picture2.Picture = LoadPicture("ляляля")
Call StretchBlt(Printer.hdc, 0, 0, Printer.Width, Printer.height, Form1.Picture2.hdc, 0, 0, Form1.Picture2.Width, Form1.Picture2.height, SRCCOPY)

печатает с диким увеличением

и картинка и принтер ScaleMode = vbPixels

помогите подскажите