解决了问题全部给分

[janb]

如何将QuickReport 打印的内容令存为Word 格式？

[zfmich]

参考这个：

//将报表第iPageNo页存为WORD文件
procedure ReportSaveToDocFile(sFileName :string; iPageNo :integer);
var Template,NewTemplate,ItemIndex:OleVariant;
E: TMetaFile;
B: TBitmap;
MyFormat : Word;
AData : THandle;
APalette : HPALETTE;
begin
try
Template := EmptyParam;
NewTemplate := True;
ItemIndex := 1;
try
Wordapplication.Connect;
except
MessageDlg('Word may not be installed', mtError, [mbOk], 0);
Abort;
end;
Wordapplication.Visible := True;
WordApplication.Caption := 'Delphi automation';
{Create new document}
Template := EmptyParam;
NewTemplate := False;
WordApplication.Documents.Add(Template, NewTemplate);
{Assign WordDocument component}
WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));
{Turn Spell checking of because it takes a long time if enabled and slows down Winword}
WordApplication.Options.CheckSpellingAsYouType := False;
WordApplication.Options.CheckGrammarAsYouType := False;
{Insert data}
B := TBitmap.Create;
E := QRPreview1.QRPrinter.GetPage(iPageNo); //想要第几页
try
with TMetafileCanvas.Create(E, 0) do
try
B.Height := E.Height;
B.Width := E.Width;
B.Canvas.Draw(0, 0, E);
finally
Free;
end;
B.SaveToClipBoardFormat(MyFormat,AData,APalette);
ClipBoard.SetAsHandle(MyFormat,AData);
finally
B.Free;
end;

WordDocument.Sentences.Last.Paste;
except
on E: Exception do
begin
ShowMessage(E.Message);
WordApplication.Disconnect;
end;
end;
end;

[liang_z]

学了一招！

[thisisxutao]

可能CSDN系统的问题！！

[janb]

如果可以，马上给分

[blackfiles]

学习。

[wennn]

save

[yxjjx]

佩服,利害

[janb]

我想问一下，ClipBoard.SetAsHandle(MyFormat,AData);这一句中的ClipBoard是哪里来的，我定义了一个，但是运行到这里总是出错，我不知道是怎么回事，请指教。

[janb]

问题解决，给分

[janb]

给分也这么难

[atongm]

hei

[janb]

怎样送分啊

[janb]

给分

[zfmich]

to janb();
uses Clipbrd;