| Типы программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Как принять сообщение WinRAR c StdErr Место на диске как способ защиты программы, и шифрование екзешника или упаковка. Получить активный HWND, Получить активный HWND наболевшая тема alt+tab Отклучить установленное модемное соединение, Отклучить установленное модемное соедине com1, Порт ком1 - освободить Сортировка списка окон., Немогу! Проконсультируйте..., запуск dll comport Как получить время uptime? обработка исключения в TDataSet Пара вопросов, Two questions Эмуляция кнопок на клаве WordWrap в TListBox, WordWrap в TListBox Работа с Clipboard, Присвоить строковой переменной... список пользователей..., под ХР и 9х часовой пояс... Нажатие Enter'а в другой проге, Имитация нажатия Поймать текст из TEdit, ...в другом приложении ScrollBy выходит за рамки Определение hInstance, у других приложений импорт Word-документа, открытие .doc файлов Как получить скорость текущего сет. подключ? EnumWindows ... какая-то странная ошибка, EnumWindows(@EnumWindowsWnd,0); Оптимизация манипуляций со строками Delphi и сотовая связь Как отловить все нажатия клавиш Проблема методов скрытия программы при минимизации, SW_HIDE и подобные методы Как сделать снимок экрана из сервиса. И снова о текстурировании, помогите разобраться... Как запустить программу невидимой Как определить момент обращения к COM порту, Как определить момент обращения к COM по Проверка существования строки в INI файле... Редактирование ресурсов, А именно, о функции UpdateResource... Процедура CreateFile? В чём дело? Можно ли скрестить Delphi и PowerPoint? Как ставить Zip Master?, для Delphi 7.0 Оболочка Shell-информация о дисках. helpfile (*.chm), помогите Подождать и закрыть Как Вы относитесь к курящим девушкам? Запуск из памяти Движение формы Можно ли графические файлы упаковывать с exe-шнико Правая кнопка мышки и Win98 Добавить пункт в контекстное меню Как распознать отправителя события "закрыть прилож, сист. Кнопка "закрыть" или пункт меню. Написание драйверов, нужна литературка Из консоли в Memo, вывод консоли Блокировка файла от удаления Как получить Id текущего пользователя?, WinXP, можно и для Win98 ShellExecutе Создание виртуального устройства как запретить проверку флоппи-дисковода?, запрет проверки дисковода Диалог выбора значка... Интернационализация приложения, как быть с китайским ? Как сделать свой архиватор, средствами Delphi 7 Процесс не убивается... Добавить пункт в контекстное меню Как запустить процесс с приоритетом Below Normal Автозагрузка в Безопасном режиме, В Б Р WinXP проги из Автозагр. не загр. замена иконки в трее Как получить слово под курсором мыши Перехват прерівания !, Диплом: Драйвер на Delphi Системное меню, запретить Создание в качестве отчета документа в MS Word, Delphi 5 hOOK, ЛОВУШКА НА МЫШЬ, МОЖНО ЛИ БЕЗ DLL? Удаление dll Определение и установка..., ...скорости CD-привода. |
Платные хостинги Раскрутка сайта Книги по программированию Создание в качестве отчета документа в MS Word, Delphi 5
- Crystal Report имеет экспорт в Word - function GetActiveOleObject(const ClassName: string): IDispatch;//для поднятия Com объекта (Excel, Word)var ClassID: TCLSID; Unknown: IUnknown;begin ClassID := ProgIDToClassID(ClassName); if Succeeded (GetActiveObject(ClassID, nil, Unknown)) then OleCheck(Unknown.QueryInterface(IDispatch, Result)) else Result := CreateOleObject (ClassName);end;procedure TForm1.SpeedButton7Click(Sender: TObject);//запускается Excelbegin try try Excel := GetActiveOleObject('Excel.Application'); Screen.Cursor := crHourGlass; PrintDoc(Excel); Screen.Cursor := crdefault; except on E: Exception do ShowMessage(E.Message); end; finally Excel:=Unassigned; end;end;procedure PrintDoc (Excel : variant);//передача данных в Excelvar i,j : Integer;begin Excel.Visible := true; Template:=ExtractFilePath(Application.ExeName) + 'UFC.xls'; NewBook := Excel.Workbooks.Add(Template); NewBook.WorkSheets[1].Name:='Протокол поверки'; for i:=1 to 4 do begin NewBook.WorkSheets[1].Cells[i,1].Font.Bold:=true; NewBook.WorkSheets[1].Cells[1,1]:='ПРОТОКОЛ '+ Form3.Edit1.Text + ' ПОВЕРКИ ТЕПЛОСЧЕТЧИКОВ UFC 002T'; NewBook.WorkSheets[1].Cells[2,1]:='ПО ФУНКЦИИ ИЗМЕРЕНИЯ КОЛИЧЕСТВА ТЕПЛОВОЙ'; NewBook.WorkSheets[1].Cells[3,1]:='ЭНЕРГИИ И ТЕПЛОВОЙ МОЩНОСТИ'; NewBook.WorkSheets[1].Cells[4,1]:='ЗАВОДСКОЙ НОМЕР № ' + Form3.Edit2.Text; end; for i:=1 to Form3.StringGrid1.RowCount do for j:=1 to Form3.StringGrid1.ColCount do begin NewBook.WorkSheets[1].Cells[i+8,j] := Form3.StringGrid1.Cells[j-1,i]; NewBook.WorkSheets[1].Cells[i+8,j].HorizontalAlignment:= xlCenter; NewBook.WorkSheets[1].Cells[i+8,j].VerticalAlignment:=xlCenter; NewBook.WorkSheets[1].Cells[i+8,j].Font.Color:=Form3.StringGrid1.Font.Color; NewBook.WorkSheets[1].Cells[i+8,j].Font.Size:=Form3.StringGrid1.Font.Size; NewBook.WorkSheets[1].Cells[i+8,j].Font.Name:=Form3.StringGrid1.Font.Name; if Form3.StringGrid1.Font.Style=[fsBold] then NewBook.WorkSheets[1].Cells[i+8,j].Font.Bold:=true; if Form3.StringGrid1.Font.Style=[fsItalic] then NewBook.WorkSheets[1].Cells[i+8,j].Font.Italic:=true; if Form3.StringGrid1.Font.Style=[fsBold,fsItalic] then begin NewBook.WorkSheets[1].Cells[i+8,j].Font.Bold:=true; NewBook.WorkSheets[1].Cells[i+8,j].Font.Italic:=true; end; end; NewBook.WorkSheets[1].Cells[i+8,1].Font.Bold:=true; NewBook.WorkSheets[1].Range['A9:K'+IntToStr(9+Form3.StringGrid1.RowCount-4)].Borders.Weight := xlThin; NewBook.WorkSheets[1].Cells[i+8,1] :='ПОВЕРИТЕЛЬ _ / ' + Form3.Edit3.Text + ' / ' + Form3.Edit4.Text; NewBook.WorkSheets[1].Cells[i+9,3].Font.Size:=10; NewBook.WorkSheets[1].Cells[i+9,3] :='подпись'; NewBook.WorkSheets[1].Cells[i+9,5].Font.Size:=10; NewBook.WorkSheets[1].Cells[i+9,5] :='ф.и.о.'; NewBook.WorkSheets[1].Cells[i+9,6] :='дата'; NewBook.WorkSheets[1].Cells[i+9,6].HorizontalAlignment:= xlRight; NewBook.WorkSheets[1].Cells[i+9,6].Font.Size:=10;end;Это простой пример. Если опишешь, что надо,могу помочь более подробно. - Да я загналсяЭто пример с Excel,с Word все тоже самое, кроме ссылок на ячейки  |