Экспорт из Datagrid в Excel, способы вывода на печать

[old761]

Добрый вечер!
Подскажите пожалуйста как решить такую проблему:
есть на форме объект Datagrid в котором содержится определенная таблица из базы данных. Подключение используется через ADO, все работает корректно, как и положено. Сейчас появилась необходимость экспорта этих данных в Excel
Буду рад каким-либо советам, а еще лучше примерам, тому как это реализовать

И подскажите еще пожалуйста, как данные из Datagrid вывести на печать, если существуют, то посоветуйте какие компоненты. Спасибо.

[Krava]

' Вытянет прямо с базы
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add
Set oSheet = oBook.Worksheets(1)
oSheet.Range("A1").CopyFromRecordset .rsAnSbyt_DIN 'Сначала создай и заполни recordset
oBook.SaveAs "C:\NewFile.xls"
oExcel.Quit

[old761]

Спасибо. Работает)

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

[Andrey Fedorov]

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

ActiveReports, но он не бесплатный.

[Krava]

Есть простой метод, хотя и извращенческий.
Повесь на форму кнопку печать.
После нажатия на нее сделай visible=False для всех непечатаемых элементов
Если Ориентация альбомная Printer.Orientation = 2
Измени размеры формы и грида до разменов страницы
Запусти frmТвоя.PrintForm
Верни размеры и visible обратно


Экран даже моргнуть не успеет
Можно использовать в цикле дя вывода нескольких страниц

[Денис]

Krava
Супер!! Только зачем ту же форму? сделать еще одну, все время невидимую, с размерами страницы, на которой разместить элементы печати. Ее и печатать.
_____________

Собственно, главное, что можно (и нужно) посмотреть в первую очередь - это объект Printer и его методы.

[Krava]

Насчет второй формы все замечательно. Тольно метод этот я придумал лет 10 назад, когда VB6 только появился. А память тогда в мегбайтах,
а не гиговыми планками продавалась. Держать вторую форму накладно было.

[Денис]

Еще один ньюанс: Форму перед печатью надо делать белой (или того цвета, какой нужен пользователю), а после печати возвращать предыдущий цвет.

[ZOD]

Вывод на печать можно сделать через Data Report. Стандартная форма VB. Project - Add Data Report. Цепляешь к ней рекордсет - и вот тебе отчет. Как с ней работать есть в интеренете.

Сохранение в ексел у меня реализовано через АДО. Будет нечто вроде этого:

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

Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & saveName & ";Extended Properties=""Excel 8.0;HDR=No"";"
' информация о клиенте

conn.Execute "Insert into Info values ('Клиент', '', '" & User.Surname & " " & User.Firstname & " " & User.PatName & "', 'Форма оплаты', '', '" & OrderInfo.PayType & "')"

saveName - заготовка для сохранения, содержит шапку и тп. По этой теме тоже есть инфа в сети, в т.ч. на этом форуме.
Плюсы адо перед CreateObject("Excel.Application"):
+ работает без установленого экселя
+ скорость в сотни раз быстрее
Минусы:
- Возможность сохранять только данные. Формат только установленный заранее в файле для сохранения.
- Менее удобный способ добавления. Обратиться к определенной ячейке нельзя.