选择整个文档复制到剪贴板
Selection.WholeStory;
Selection.CopyAsPicture;
从剪贴板中取出图形
if Clipboard.HasFormat(CF_METAFILEPICT) then
begin
Image1.Picture.Assign(Clipboard);
BitMap := TBitMap.Create;
BitMap.Height := Image1.Picture.Height;
BitMap.Width := Image1.Picture.Width;
BitMap.Canvas.Draw(0,0,Image1.Picture.Graphic);
BitMap.SaveToFile('C:/New.bmp');
BitMap.Free;
end;