Нужна помощь с компонентом PrintDialog с++ Builder

[Mat Bourn]

Написал код на DELPHI.
Цель: 1. запустить приложение Word;
2. вставить туда уже заранее созданную таблицу;
3. затем добавить в нее необходимые данные;
4. Сохранить с расширением .xps;
5. Запустить программно 1.xps.

var Word: variant;
var FilePath: string;
begin

  FilePath:= 'C:\Rasp.rtf';
  Word:=CreateOleObject('Word.Application');
  Word.Visible:=Visible;
  Word.Documents.Open(FilePath);
  Word.ActiveDocument.SaveAs('D:\123.xps');

end;

Почему то выбивает ошибку не найден файл ? Если Rasp.rtf расположить на диске С то все работает: FilePath:= 'C:\Rasp.rtf';
1.xps не открывается - пишет "Средству просмотра XPS не удается открыть этот документ" ?

[Stilet]

Почему то выбивает ошибку не найден файл ? Если Rasp.rtf расположить на диске С то все работает: FilePath:= 'C:\Rasp.rtf';
1.xps не открывается - пишет "Средству просмотра XPS не удается открыть этот документ" ?

Чет ниче не понятно... Указан один файл, а говорится о другом...
Поясни подробнее.

[Mat Bourn]

Подробнее... Переменной FilePath указан путь 'C:\Rasp.rtf'; Если изменить путь, указать в папку где находиться программа, выбивает ошибку "не найден файл" ('Rasp.rtf'). Да это уже не столь важно. Решил пойти вашему совету:

Ставишь XPS или другой подобный виртуальный принтер и получаешь результат.

Код с++:

Variant Word,Table,Cell,Document;
AnsiString FilePath;
FilePath = "C:\\Rasp.rtf";
Word = CreateOleObject("Word.Application");    // открываю Word.
Word.OlePropertySet("Visible", true);   // делаю видимость документа.
// И чтобы не создавать новый лист, например (Word.OlePropertyGet("Documents").OleProcedure("Add"); ) открываю уже созданный на диске С:\ документ формата rtf, уже с готовой отформатированной таблицей.
Word.OlePropertyGet("Documents").OleFunction("Open", WideString(FilePath));

Все работает, таблица отображается. Далее пока непалучается сделать. ( нужно еще добавить в некоторые строки какие то данные. Затем сохранить в документ в формате xps и запустить его для печати программно ).

На Delphi делал - файл сохранялся. Но при ручном открытии он открывался и выбивал ошибку: Средству просмотра XPS не удается открыть этот документ.

[Аватар]

А с какого перепугу xps?

[Mat Bourn]

Все. Сдаюсь. Сил больше нет. Не могу добавить в cell данные ?

[Mat Bourn]

Вообще можно добавлять данные в уже созданную таблицу? Сколько примеров просмотрел. Все только для начало создают таблицы, а затем выполняют какие либо действия.

[Mat Bourn]

Это код создает новую таблицу и добавляет данные:

Variant Word,Document,Table,Cell;
int RowCount,ColCount;

Word = CreateOleObject("Word.Application");
Word.OlePropertySet("Visible", true);

Word.OlePropertyGet("Documents").OleProcedure("Add");
Document = Word.OlePropertyGet("Documents").OleFunction("Item", 1);

Table = Document.OlePropertyGet("Tables").OleFunction("Add", Document.OleFunction("Range", 0, 0), 5, 5);
Cell = Table.OleFunction("Cell", 1, 1);
Cell.OlePropertyGet("Range").OleProcedure("InsertAfter", WideString("Да") + WideString("-") + WideString("бл"));

Cell = Table.OleFunction("Cell", 2, 1);
Cell.OlePropertyGet("Range").OleProcedure("InsertAfter", WideString("Да") + WideString("-") + WideString("бл"));


Cell = Table.OleFunction("Cell", 3, 1);
Cell.OlePropertyGet("Range").OleProcedure("InsertAfter", WideString("Да") + WideString("-") + WideString("бл"));

Как добавить в ячейку готовой таблицы: текст, цифру, хоть что нибудь ?

[Mat Bourn]

Все сделал. Код конечно честно стыренный с другого форума, но сам понял что сделал. В готовой таблице, где именно нужно вставить текст, написал букву. Затем выделил ее и перешел на вкладку вставка->закладка, дал имя закладке и добавил.

Код с++

Variant vApp,vDocs, vDoc, vBookmarks, vBookmark, vSelection, vRange;
AnsiString FilePath,str;

FilePath = "C:\\Rasp.rtf";
vApp = CreateOleObject("Word.Application");
vApp.OlePropertySet("Visible", true);
vDocs = vApp.OlePropertyGet("Documents");
vDocs.OleFunction("Add", WideString(FilePath));
vDoc = vDocs.OleFunction("Item",1);
vDoc.OleProcedure("Activate");
vBookmarks = vDoc.OlePropertyGet("Bookmarks");
vBookmark = vBookmarks.OleFunction("Item", WideString("zakla"));  // имя закладки
vBookmark.OleProcedure("Select");
vSelection = vApp.OlePropertyGet("Selection");
vSelection.OlePropertySet("Text", WideString("Козлов Андрей"));  // вставляемый текст
vRange = vDoc.OleFunction("Range", 0, 0);
vRange.OleProcedure(_T("Select"));

На всякий случай библиотеки:

#include <OleServer.hpp>
#include <ComObj.hpp>
#include <utilcls.h>