چاپ فایلهای Ms Word

[mojtaba_z]

سلام


لطفا یکی بگه چطوری میشه یه فایل Ms Word یعنی Doc.* را درون یه فرم نمایش داد و
بعد اونو چاپ کرد (البته از روی فرم )

[Inprise]

الف) OLEContiner
ب) Third party tools such as Turbo Power word processing solution

[mojtaba_z]

سلام

1-Inprise جان در OleContainer فقط میشه فایل رو نمایش داد ، برای پرینت گرفتن از اون
چیکار باید کرد ؟
2- لطفا در مورد قسمت (ب) بیشتر توضیح بده چون هیچی از اون نفهمیدم.
3-راستی در QReport کامپوننتی هست که فایل های Ms Word را بتوان مانند QRRichText آورد.

بازم از جوابت ممنونم.

[saeed_d]

برای اجرای Word و باز کردن یک فایل:


Var
MSWord : Variant

procedure TTMDtlForm.ExecuteTheMacro;
var
WHandle : HWnd;
begin
try
// If file selected
If OpenDialog1.execute Then
begin
// Set Flag to False
FoundWord:=False;

try
// If word is already running, obtain a link and set flag to true
MsWord := GetActiveOleObject('Word.Basic');
FoundWord := True;
except
try
// Start new instance of word and set flag to True
MsWord := CreateOleObject('Word.Basic');
FoundWord := True;
except
// Display error message
ShowMessage('Could not start word');
end;
end;

// If Link established
if FoundWord then
begin
try
MsWord.AppShow;
MsWord.ScreenUpdating(0);
MSWord.FileOpen(OpenDialog1.FileName);
MsWord.ScreenUpdating(1);
MsWord.ScreenRefresh;

// Maximize and bring Word to front
WHandle := FindWindow('OpusApp',Nil);
if isWindow(WHandle) then
ShowWindow(WHandle,SW_SHOWMAXIMIZED);
except
MessageDlg('TF - Error in Word Basic',mtError,[mbOK],0);
MsWord.ScreenUpdating(1);
end;
end;
end;
finally
end;
end;


برای پرینت گرفتن


var
oWord : TWordApplication;
varFileName : OleVariant;
begin
oWord := TWordApplication.Create (Nil);
Try
oWord.Connect;
varFileName := 'c:\temp\test.doc';
oWord.Documents.Open (varFileName,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam);
oWord.ActiveDocument.PrintOut (EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam);
oWord.Disconnect;
Finally
oWord.Free;
End;

[mojtaba_z]

سلام
من میخواهم فایل Word رو درون فرم نمایش بده و یا درون OleContainer و یا یه چیز دیگه که نمیدونم چیه بعد
از اون پیرینت بگیرم البته با دستور Form1.Print .

متشکرم.

[sedaghatfar]

مجتبی جان سلام
دقیقا بگو روی چه پروژه ای کار می کنی . در دلفی 5 روشی که بتوان word را به برنامه ات فرابخوانی در یکی از مثالهای خودش هست . ( روش آقا سعید هم هست )
بیشتر درباره کاری که می خواهی انجام بدهی توضیح بده تا . . .
من هم به این موضوع علاقه دارم 1- ذخیره یک فایل ورد در بانک اطلاعاتی ( ترجیحا اکسس ) 2-فراخوانی اطلاعات از بانک به درون ورد از طریق برنامه
اگه کسی هم روش یا کامپونت هایی داره معرفی کنه . باتشکر

----------------
صداقت فر

[mojtaba_z]

یکی جواب بده ...