Как экспортировать Отчет в Microsoft Word (.doc)

 

В этой статье мы создадим простую базу данных с помощью Microsoft Access, а потом пользовательский интерфейс на Visual Basic 6.0.

Соединить все вместе должно быть относительно легко, потому что мы будем использовать Adodc компоненту для подключение к нашей базе данных.

Мы добавим Оформление и Отчет и в течение нескольких минут мы сможем экспортировать наши Отчеты в документ Microsoft Word. (.doc)

Создание нашей базы данных в Microsoft Access:

Создадим пустую базу данных в Microsoft Access и назовем ее Отчет. Теперь создадим таблицу, для чего выполним: Создать таблицу в Конструкторе и введем Имя поля(ей) и тип(ы) данных, как показано на рисунке ниже. Сохраним таблицу и назовем ее: Клиенты. Теперь откроем таблицу Клиенты и занесем информацию, которую вы видите на изображении ниже.

Теперь давайте перейдем к созданию пользовательского интерфейса в Visual Basic 6,0. Мы почти у цели. Мы просто добавим парочку элементов управления и за короткое время сможем экспортировать наш Отчет в Microsoft Word. (. doc).

Создание нашего пользовательского интерфейса в Visual Basic 6.0:

Откройте Visual Basic и выберите: Standart EXE. Добавьте Adodc Компонент, перейдя в Проекты, Компоненты и выберите Microsoft ADO Data Control. Нажмите кнопку Применить, а затем Закрыть. Теперь этот компонент будет в вашей Панели инструментов. Добавить 9 текстовых полей с именами: Text1, Text2, Text3 и так далее. Теперь добавьте 9 этикеток и назовите их: Label1, Label2, Label3 и так далее. Измените свойство Заголовок для каждой этикетки, как показано на рисунке ниже. Добавьте Adodc элемент из нашей Панели инструментов и назовите его ADODC1. Добавьте Кнопку управления Command1. Измените Заголовок CommandButton1 на Просмотр Отчета. Теперь нам просто необходимо настроить соединение.

Если вы хотите экспортировать отчет в Microsoft Word, тогда я думаю, что вы уже знаете шаги, которые необходимо проделать. Это поможет тем, кто делает это впервые или, может быть, уже забыл шаг или два.

Щелкните правой кнопкой мыши на элементе ADODC1, который мы положили на Форму 1 и щелкните правой кнопкой мыши на ADODC Свойствах. Выберите: Использовать строку подключения и левой кнопкой нажмите Построить. Когда появится окно выбора, Выберите Microsoft Jet 4.0 OLE DB Provider и нажмите кнопку Далее. Теперь нажмите кнопку, где вы видите 1. Выберите или введите имя базы данных. Перейдите туда, где вы сохранили вашу базу данных и дважды щелкните. Проверьте или протестируйте выше подключение. Если все в порядке появится окно с сообщением "Проверка подключения успешна" - Нажмите Готово, чтобы закрыть сообщение, а затем нажмите Готово еще раз.

Теперь перейдите туда, где вы видите Источник данных и кликните левой кнопкой мыши. Для Типа команды выберите 2 - adCmdTable. Теперь перейдите к Имя таблицы или хранимой процедуры и выберите Клиенты (или как вы назвали вашу таблицу). Теперь нажмите кнопку Применить, а затем нажмите кнопку Готово.

Теперь мы зададим такие свойства как, Источник данных и Поле данных, для каждого текстового поля, которые мы положили на нашей форме Form1 ранее.

Нажмите Text1, а затем перейдите в окно свойств. Установите свойство Источник данных ADODC1 и Поле данных – Идентификатор клиента (Примечание: Все остальные текстовые поля будут иметь тот же источник данных ADODC1). Теперь перейдите к Text2 и задайте источник данных. Установите Поле данных Фамилия. Перейдите к Text3 и задайте Источник данных. Установить Поле данных Имя. Установите Источник данных и Поле данных для остальных текстовых полей.

Добавление Оформления и Отчетов:

Перейдите в проект и выберите Больше ActiveX дизайнеров. Выберите Оформление. После открытия - щелкните правой кнопкой мыши на Connection1 и выберите Свойства. Выберите Microsoft Jet OLE DB 4.0. Теперь нажмите кнопку, где вы видите 1. Выберите или введите имя базы данных. Перейдите туда, где вы сохранили вашу базу данных и дважды щелкните. Проверьте или протестируйте выше подключение. Если все в порядке появится окно с сообщением "Проверка подключения успешна" - Нажмите Готово, чтобы закрыть сообщение, а затем нажмите Готово еще раз.

Щелкните правой кнопкой мыши на соединение еще раз, но на этот раз выберите Добавить команду. Теперь щелкните правой кнопкой мыши на Command1 и нажмите кнопку Свойства. Установите Объект базы данных в Таблица, а затем установите Имя объекта в Клиенты. Нажмите кнопку Применить, а затем нажмите кнопку OK.

Теперь мы готовы добавить Отчет.

Перейдите к проекту и выберите Добавить Отчет. Отрегулируйте размер Оформления и Отчета как на изображении ниже.

Нажмите Отчеты. Перейти к Источнику данных и измените свойство DataEnvironment1, а затем изменить свойство DataMember в Command1.

Теперь поместите курсор на Идентификатор Клиента - нажмите левую кнопку мыши и удерживайте - Теперь просто перетащите к Деталям (Раздел1). Вы увидите два Идентификатора клиента. Выберите один слева и перетащите его выше Заголовок страницы (Раздел2). Повторите этот процесс для Фамилии, Имени, Штата, Телефона, Адреса, Города, Государства и Почтового кода.

Теперь двойной щелчок по командной кнопке, которая расположена на Форме1, чтобы открыть окно кода. Впишите DataReport1.Show в событие Command1_Click. Конечный результат приведен на изображении ниже.

Запустите проект, а затем нажмите командную кнопку, чтобы просмотреть отчет. Доклад будет выглядеть как на изображении ниже.

Разместите две кнопки в верхнем левом углу Вашего отчета. Кнопка слева будет Печать, а та что справа позволит нам Экспортировать. Мы будем использовать функцию Экспорта через момент.

Вам, возможно, придется скорректировать здесь ширину каждой колонки. Здесь нужно будет проделать небольшой трюк, потому что мы определяем точный размер каждого поля, которые мы хотим экспортировать.

Что может выглядеть приемлемо в Отчетах не будет таким в Microsoft Word. Так что, я думаю мы можем назвать это экспериментальным этапом нашего процесса. Я экспортировал несколько отчетов таким образом, и каждый раз результаты могут отличаться. У вас это будет лучше получаться, когда вы проделаете это несколько раз.

Если у вас будут проблемы –кнопка для скачивания всего что необходимо в нижней части статьи.

Экспорт Отчета в Microsoft Word (.doc)

Запустите проект и нажмите кнопку Просмотр отчета на форме. Нажмите кнопку Экспорт. Выберите место, куда вы хотите сохранить Документ. Перейдите к полю Имя файла и введите имя DataReport.doc. (Примечание: Вы должны включить расширение .doc в конце имени файла). Теперь переходим к полю Сохранить как и выберите TXT (*. txt). Теперь просто нажмите кнопку Сохранить.

Перейдите туда, где вы сохранили Отчет и дважды кликните, чтобы открыть. Вы получите всплывающее сообщение, что "Microsoft Word не может импортировать указанный формат. Эта функция в настоящее время не установлена. Хотели бы Вы установить ее сейчас?" Выберите Нет. Отчеты сейчас открываются в Microsoft Word. Если доклад в Microsoft Word не похож на изображения ниже - Выберите Файл (в формате Microsoft Word) и затем вниз к Настройкам страницы... к размеру бумаги, выберите LandScape и нажмите Готово. Отчет будет скорректирован. Если это не подгонит все поля то необходимо - 1. Вернуться к Отчету и внести некоторые коррективы, или 2. Вернуться к вашей базе данных и сократить имена полей.

Если Отчет выглядит так, как вы хотите и чтобы избежать сообщения, с которым мы столкнулись, когда впервые открыли MS Word для просмотра отчета - Перейдите к меню Файл и выберите "Сохранить как ... Перейдите к Сохранить как и выберите документ Word.

Источник(EN)