unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComObj;
type
TForm1 = class(TForm)
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var Word: variant;
begin
try
Word := CreateOLEObject('Word.Application');
except
ShowMessage('Word не найден.');
exit;
end;
Word.Visible := false; {не показываем Word}
OpenDialog1.Title := 'Load';
OpenDialog1.Filter := 'RTF Files (*.rtf)|*.rtf|';
if OpenDialog1.Execute then
Word.Documents.Open (OpenDialog1.FileName); {открыли файл}
Word.PrintOut (false);
{чего-то с ним делаем}
//Word.PrintOut (false);
Word.Quit; {закрыли объект}
{и уничтожили саму память о нем}
end;
end.
Delphi and rtf
как на delphi произвести печать rtf файла?
Цитата: f-a-l-l-e-n
как на delphi произвести печать rtf файла?
Простейший способ
ShellExecute(..."print"...)
Если же надо, чтобы печать осуществлялась средствами именно вашей программы, тогда надо искать соответсвующие компоненты, например RichView.
Цитата: nikitozz
Кстати, моя "головная боль", к которой достойное решение к своему стыду так и не нашел :(
Простейший способ
ShellExecute(..."print"...)
Если же надо, чтобы печать осуществлялась средствами именно вашей программы, тогда надо искать соответсвующие компоненты.
Хотя компонента, способного более или менее точно отобразить rtf документ, созданный в MSWord я пока не нашел (за исключением разве что RichView, хотя и с ним возникли проблемы с некоторыми документами).
Простейший способ
ShellExecute(..."print"...)
Если же надо, чтобы печать осуществлялась средствами именно вашей программы, тогда надо искать соответсвующие компоненты.
Хотя компонента, способного более или менее точно отобразить rtf документ, созданный в MSWord я пока не нашел (за исключением разве что RichView, хотя и с ним возникли проблемы с некоторыми документами).
RIchView выполняет все что мне нужно, но на него нет лиценции, без нее не могу сдать проект. А достать ее нету денег.
Может есть исходники для richView, чтобы там под свое переделать?
Исходники для RichView пробегали, ищите. Но "переделать" под свое - это просто смешно.
не мне не все именно нужно переделывать, просто некоторые вещи.
Кстати, столкнулся с такой проблемой.
При вызовы rtf меняется его размер, где нужно настроить, чтобы все параметры оставались не измененные.
+ при выводе на печать текст сдвигается в право, где это исправить?
Всем заранее спасибо.
кстати ,а нельзя ли rtf листы сохранить как картинки?
и потом просто послать на печать, если кто-то знает как это сделать help.
Кстати, столкнулся с такой проблемой.
При вызовы rtf меняется его размер, где нужно настроить, чтобы все параметры оставались не измененные.
+ при выводе на печать текст сдвигается в право, где это исправить?
Всем заранее спасибо.
кстати ,а нельзя ли rtf листы сохранить как картинки?
и потом просто послать на печать, если кто-то знает как это сделать help.
можно. но проблема та же. перевести в корректную картинку. да и распечатка будет выглядеть ужасно и/или занимать кучу времени
Все сделал можно закрывать тему.
Код:
Цитата: f-a-l-l-e-n
Все сделал можно закрывать тему.
А если на целевой машине не стоит Word?
соглачен тогда не катит, но в моем случае у им стоит, а если не стоит, тогда это их проблема :)