Печать бумажек

[~Виктор~]

Здравствуйте уважаемые дамы и гаспада!

в проге необходимо распечатать накладную. естественно можно былобы использовать Printer.Print "Сумма" и т.д. но это утомительно долго.

Попытался использовать DataReport но при попытке вывести на экран Пустой отчет DataReport1.Show 1 выдает Invalid data source. Я так понял из статей, что к нему нужно прикрутить базу и.т.д. и т.п, а мне не нужен этот геморой, мне нужно:

ПРОСТО НАПЕЧАТАТЬ НАКЛАДНУЮ

В 1С есть чудесные канструктор Таблицы, а что посаветуете для VB 6

[alibek]

Printer
Excel
ActiveReports

[dr.MIG]

WebBrowser

[EUGY]

DataReport можно спокойно использовать для печати произвольных записей и безо всякой базы данных

Dim datarec As ADODB.Recordset
Set datarec = New ADODB.Recordset
Set datarec.ActiveConnection = Nothing ' !!!

datarec.Fields.Append "naim", adBSTR
datarec.Fields.Append "kolvo", adBSTR
datarec.Fields.Append "summa", adBSTR

datarec.Open

datarec.AddNew

datarec.Fields("naim").Value = "Водка"
datarec.Fields("kolvo").Value = "2 шт"
datarec.Fields("summa").Value = "200 руб 01 коп"

Set DataReport1.DataSource = datarec

DataReport1.Show 1

'Разумееется в секции Detail должны быть RptTextBox с DataField (naim kolvo summa)

[~Виктор~]

Вапрос по Active Report

Имеется у меня рекордсет Транспорт

Пишу такой код:

ActiveReport1.Field1.Text = Транспорт!Наименование
ActiveReport1.Field2.Text = Транспорт!Номер

ActiveReport1.Show (1)

Таким оброзом выводится одна строка, никак нимогу понять как сделать вторую, третью и т.д. строку. Ченибудь типа ActiveReport1.AddString чтоли.

Или как? Помогите кто узал

[alibek]

~Виктор~, придется тебе проверять орфографию в Word, перед тем как постить сообщение. Это последнее предупреждение.

[~Виктор~]

alibek тыб лучше сжалился над бедным албанцем и подсказал по теме сабжа, ведь ты стопудово юзал ActiveReport.
Подскажи плиз!

[alibek]

А с каких пор Албания располагается на территории Ставрополья?
Посмотри пример использования ActiveReports, который идет вместе с инсталлятором. Там все есть.

[~Виктор~]

alibek
несмог разобрацо в примерах из инстолятора. там настоящая жесть, простых примеров вообще нет, только с наворотами.
Помоги вывести следующую строку!

[Andrey Fedorov]

alibek
несмог разобрацо в примерах из инстолятора. там настоящая жесть, простых примеров вообще нет, только с наворотами.
Помоги вывести следующую строку!

Куда уж проще - тут все репорты без единой строчки кода:

C:\Program Files\Data Dynamics\ActiveReports Pro\Samples\Visual Basic Samples\Tutor\

[tyomitch]

Виктор, тебе официальное последнее предупреждение за албанский.

[~Виктор~]

Andrey Fedorov

ко всем репортам из Тутора прикручены БД и имеется свой SQL запрос.
В моей же ситуации я уже выбрал данные в Рекордсет, поработал над записями в нем. И только после этого я хочу вывести их на печать.

Мне нужно знать какой инструкцией/командой заставить ActiveRepot создать новую строку Detail

[EUGY]

напиши свой AlbanReport

[alibek]

EUGY, замечание за флуд.

[EUGY]

Причем здесь флуд?
Виктор пытался использовать DataReport, возникли вопросы, ответ был дан, но видимо не устроил. Придется ему использовать Word, Excel или AlbanReport.

Искренне Ваш...

[Andrey Fedorov]

В моей же ситуации я уже выбрал данные в Рекордсет, поработал над записями в нем. И только после этого я хочу вывести их на печать.
Мне нужно знать какой инструкцией/командой заставить ActiveRepot создать новую строку Detail

Ты явно переусложняешь - тебе даром не нужно так извращаться для того что ты хочешь сделать.

В ActiveReport_ReportStart вставь

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


Dim r As New ADODB.Recordset

... Тут заполняешь свой Recordset данными

If r.RecordCount Then r.MoveFirst
Set adr.Recordset = r


Где r - твой Recordset с данными, а adr - ADO Data Control.

[~Виктор~]

Andrey Fedorov
Так не пойдет.
У меня записи в таблице которую нужно вывести на печать состоят из кодов объектов из других таблиц.

Вопрос остоётся открытым:

какой инструкцией/командой заставить ActiveRepot создать новую строку Detail