печать datagrid

[skulida]

Извиняюсь, но в поиске ничего не нашел...
Подскажите как в заполненном на форме Datagrid можно получить содержимое нужных ячеек строк, чтобы затем вывести их на печать.
Пробую печатать объектом printer
printer.print datagrid1
печатается только первая ячейка первой строки...
Спасибо.

[Rainbow]

http://bbs.vbstreets.ru/viewtopic.php?p ... ght=#23950

[skulida]

http://bbs.vbstreets.ru/viewtopic.php?p=23950&highlight=#23950

спасибо, но есть одно но...
у меня используется Datagrid, а не MSFlexGrid и у него нет такого метода как Clip. Есть .SelEndCol при помощи которого выделяю нужные столбцы. Как это выделение можно поместить в txt файл.
Народ подскажите, ведь можно же как то?????

[Rainbow]

Как выделенную часть целиком поместить - не знаю

Можешь пробежаться в цикле, меняя Col и Row, сформировать строчку, используя свойство Text или Value, потом эту строчку напечатать....

Если используешь в качестве DataSource ADOшный рекордсет, то посмотри на метод GetString.

[skulida]

Можешь пробежаться в цикле, меняя Col и Row, сформировать строчку, используя свойство Text или Value, потом эту строчку напечатать....
.

Так, к сожалению, тоже не получается...
Пишет Invalid row number как только номер строки datagrid'а выходит за область видимости datagrid без прокрутки...

Может быть как то можно выделенную часть в буфер обмена??

[Rainbow]

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

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

Dim i As Long, j As Long
Dim s As String
Dim rs As Recordset

Set rs = Adodc1.Recordset.Clone
rs.MoveFirst
For i = 0 To rs.RecordCount - 1
    If s <> "" Then s = s & vbCrLf
    For j = DataGrid1.SelStartCol To DataGrid1.SelEndCol
        s = s & rs(j) & vbTab
    Next
    rs.MoveNext
Next

рекордсет клонрую, чтоб грид не реагировал на всякие MoveNext