Рано или поздно вам потребуется напечатать отчет в формате какого-либо офисного приложения. Так как процент людей, пользующихся StarOffice невелик, то скорее всего это будет всеми любимый Microsoft Office. ;-)
Итак, в этой статье мы рассмотрим, как напечатать отчет в формате MS Excel (не забудьте, что для начала в проект необходимо добавить ссылку на соответствующий assembly). Создадим процедуру, которая получает на вход какой-либо объект с данными (в нашем случае это DataGridView), генерирует на их основе ответ и выводит его на печать. Ниже приведен пример с пояснениями:
Private Sub ExportToExcel(ByVal dgv As DataGridView)
Dim ObjExcel As New Microsoft.Office.Interop.Excel.Application() ' инициализируем excel-приложение
Dim ObjWorkBook As Microsoft.Office.Interop.Excel.Workbook ' создаем объект книги
Dim ObjWorkSheet As Microsoft.Office.Interop.Excel.Worksheet ' создаем объект страницы листа
ObjExcel.Visible = False ' делаем приложение невидимым пользователю
ObjWorkBook = ObjExcel.Workbooks.Add() ' добавляем новую книгу в приложение
ObjWorkSheet = ObjWorkBook.Worksheets(1) ' получаем доступ к первой странице
ObjWorkSheet.Columns(1).ColumnWidth = 20 ' устанавливаем ширину колонок.
ObjWorkSheet.Columns(2).ColumnWidth = 20
ObjWorkSheet.Columns(3).ColumnWidth = 10
ObjWorkSheet.Columns(4).ColumnWidth = 25
ObjWorkSheet.Columns(5).ColumnWidth = 4
ObjWorkSheet.Columns(6).ColumnWidth = 4
ObjWorkSheet.Columns(7).ColumnWidth = 15
ObjWorkSheet.Columns(8).ColumnWidth = 15
ObjWorkSheet.Rows(1).Font.Bold = True
ObjWorkSheet.Rows(1).font.size = 8 ' устанавливаем размер шрифта
ObjWorkSheet.Cells(1, 1).Value = "Direct" ' заполняем названия столбцов
ObjWorkSheet.Cells(1, 2).Value = "Reverse"
ObjWorkSheet.Cells(1, 3).Value = "Volume"
ObjWorkSheet.Cells(1, 4).Value = "Instrument Type"
ObjWorkSheet.Cells(1, 5).Value = "Book"
ObjWorkSheet.Cells(1, 6).Value = "Page"
ObjWorkSheet.Cells(1, 7).Value = "Filing Date"
ObjWorkSheet.Cells(1, 8).Value = "Instrument Date"
Dim i As Integer = 2
Dim j As Integer = 0
Dim dr As DataGridViewRow
For Each dr In dgv.Rows ' в цикле заполняем таблицу данными
ObjWorkSheet.Cells(i, 1).Value = dr.Cells( "Direct").Value
ObjWorkSheet.Cells(i, 2).Value = dr.Cells( "Reverse").Value
ObjWorkSheet.Cells(i, 3).Value = dr.Cells( "Volume").Value
ObjWorkSheet.Cells(i, 4).Value = dr.Cells( "InstrType").Value
ObjWorkSheet.Cells(i, 5).Value = dr.Cells( "Book").Value
ObjWorkSheet.Cells(i, 6).Value = dr.Cells( "Page").Value
ObjWorkSheet.Cells(i, 7).Value = dr.Cells( "FilingDate").Value
ObjWorkSheet.Cells(i, 8).Value = dr.Cells( "InsDate").Value
ObjWorkSheet.Rows(i).font.size = 8
i += 1
Next
ObjWorkSheet.PageSetup.Orientation = Microsoft.Office.Interop.Excel.XlPageOrientation.xlLandscape ' изменяем ориентацию листа
ObjWorkSheet.PrintOut() ' выводим на печать
ObjExcel.Quit() ' закрываем приложение
ObjWorkSheet = Nothing
ObjWorkBook = Nothing
ObjExcel = Nothing
GC.Collect() ' вызываем сборщик мусора
End Sub
Вот вообщем то и всё. О чем надо знать - нумерация строк и колонок начинается с единицы. Отсюда вытекает одна из самых распространенных ошибок - при обращении к первой ячейке (левой-верхняя) программисты используют адрес (0, 0) вместо (1, 1). Стоит также обратить внимание на свойство Range объекта Worksheet - он позволяет получить доступ к набору ячеек. В качестве такого набора может быть одна ячейка, целая строка, ряд или даже таблица ячеек, заданная прямоугольником. Это бывает удобно при заполнении. Из примера так же видно, что можно программно задать расположение листа на странице. Более полный перечень настроек можно получить, обратившись к свойству PageSetup объекта Worksheet. Ну и последнее, о чем хотелось бы сказать - возможность предпросмотра, перед печатью. Для этого достаточно вызвать метод PrintPreview() того же объекта Worksheet.
93ecbad718c69d1e755026db628a5a67