Печать простого отчета...

[X-BOND]

Значит мне надо просто запустить на принтер простую картинку и пару строк текста. (Данные беру с нужной формы)
Пытался использовать DataReport, но после метода .Show выскакивает ошибка Invalid data source. Насколько я понял необходимо заполнить поле DataSource. Но что туда писать если у меня нет базы данных. Может вообще надо использовать другой контрол?
Спасибо.

[SSecurity]

Если текста мало ... и каринка не большая..., то
рисуешь все а форме ...
так как надо чтобы оно вышло на принтере
цвет фона формы - белый,
бордер стиль - 0

и...

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

Form1.PrintForm

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

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

Printer.NewPage
Printer.CurrentY = 10
Printer.CurrentX = 20
Printer.Print "Этот текст"
Printer.CurrentY = 90
Printer.Print "И Этот тоже"
Printer.CurrentX = 1000
Printer.CurrentY = 10
Printer.PaintPicture LoadPicture("c:\1.bmp"), 0, 0
Printer.EndDoc


типа такого

[X-BOND]

Идея интересная.
Попробовал, но у меня печатается только картинка.
Причем на второй странице, а первая выходит пустая.
Закоментировал все строки, кроме рисунка, все равно две страницы вылазит (изв. за выражение).
в чем тута секрет?

[SSecurity]

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

Printer.NewPage

не нужен ...
у Printer кажется есть ещё свойства для указания где печатать ... там тоже в твипах все ...
у меня тока сегодня Катридж появился .... завтра скажу

[X-BOND]

Немного поэкспериментировал и нашел оптимальный способ - печать через форму. Во-первых сразу видишь, что печатаешь, во-вторых можно сразу "на печатной странице", то бишь форме, заполнять поля.
Удобно и просто.
Кстати, BorderStyle не обязательно ставить в 0. У меня стоит как DialogBox и все ОК.

Спасибо!

[SSecurity]

Рад, что помогло ... а я поэксперементировал с Printer и научился...

Короче CurentX и CurentY задается в твипах ... стало быть 1000 твипов - это где-то 2 см ... так что если величины изменить то все ОК..
печатает ...

там ещё куча замечательных свойств и шрифтик устанавливать надо ))

[alibek]

А почему бы не сделать Printer.ScaleMode=6 и не работать в миллиметрах?

[SSecurity]

А почему бы не сделать Printer.ScaleMode=6 и не работать в миллиметрах?

Можно ... но это для самых умных )) ... сам вчера днем когда эксперементировал - обнаружил 6))) .... но всетаки надо же помучаться немного ))

[Oldman]

А как сделать, чтобы свойства принтера вызвать (типа там режим, ориентация страницы и т.д.) как в каждой проге есть, причем я так понял, что вызывается стандартная форма... Она у каждого принтера своя

[hCORe]

Используй CommonDialog Control 6.0:

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

dlgCommon.ShowPrinter

или модуль CommonDialog (об этом как то раз писали на этой конференции)
У них есть все свойства (ориентация и пр.), которые тебе нужны.

ЗЫ. Если захочешь печатать данные из RichTextBox (с использованием модуля CommonDialog), вызови это дело так:

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

'xHDC (handler device context) - данные об дескрипторе устройства.
'См. код CommonDialog Module
ShowPrinter
RichTextBox1.SelPrint xHDC