截取当前窗体放到Word打印
来源:互联网 发布:淘宝上的外卖是饿了么 编辑:程序博客网 时间:2024/05/17 21:48
来源:http://topic.csdn.net/u/20100311/08/9c287fa6-a670-48f9-b149-9f4656a6cadb.html
uses
ComObj, OleServer, WordXP
procedure TfrmVSScheduler.btnPrintClick(Sender: TObject);
var
sFileName: string;
Bmp: TBitmap;
DC: HDC;
begin
sFileName := ExtractFilePath(Application.ExeName) + 'FileData\Scheduler.bmp';
self.BringToFront;
DC := GetDC(GetDesktopWindow);
Bmp := TBitmap.Create;
try
Bmp.Width := self.Width;
Bmp.Height := self.Height;
BitBlt(Bmp.Canvas.Handle, 0, 0,
Bmp.Width, Bmp.Height, DC,
self.Left, self.Top, SRCCOPY);
finally
ReleaseDC(GetDesktopWindow, DC);
end;
Bmp.SaveToFile(sFileName);
Bmp.Free;
printtoword(sFileName);
end;
procedure TfrmVSScheduler.Printtoword(sFileName: string);
var
LinkToFile, SaveWithDocument: OleVariant;
WordApplication1: OleVariant;
WordDocument1: OleVariant;
begin
try
WordApplication1:=GetActiveOleObject('Word.Application');
except
try
WordApplication1:=CreateOleObject('Word.Application');
except
MessageBox(handle,'无法链接,请检查是否安装Microsoft Word.','连接出错', MB_Ok or MB_ICONERROR);
Abort;
end;
end;
try
WordApplication1.Visible := True;
WordDocument1 := WordApplication1.Documents.Add(EmptyParam, false, EmptyParam, true);
//横向
WordDocument1.PageSetup.Orientation := wdOrientLandscape;
//纵向
//WordDocument1.PageSetup.Orientation := wdOrientPortrait;
LinkToFile := False;
SaveWithDocument := True;
If FileExists(sFileName) Then
WordApplication1.Selection.InlineShapes.AddPicture(sFileName, LinkToFile, SaveWithDocument, EmptyParam);
WordApplication1.Activate;
//预览
//WordApplication1.PrintPreview := true;
except on E: Exception do
MessageBox(handle,'无法链接,请检查是否安装Microsoft Word.','连接出错', MB_Ok or MB_ICONERROR);
end;
end;
- 截取当前窗体放到Word打印
- 如何打印当前窗体
- word 打印当前页面
- 用Robot实现自动截取当前窗体
- 使用 CopyFromScreen 打印当前窗体的副本
- JS调用word打印当前表单内容
- 实现打印当前显示窗体的图象打印方法
- ACCESS如何打印窗体中当前显示的记录
- C#中如何对当前窗体进行打印预览
- C#中如何对当前窗体进行打印预览
- 用PrintWindow将当前窗体打印复制到剪切板中
- 用PrintWindow将当前窗体打印复制到剪切板中
- 截取打印
- 截取打印
- Word打印的三个技巧 打印指定页 缩进文档 打印当前页示例介绍
- 获取当前时间放到页面
- Word打印
- Word打印
- 一个基于Win32SDK写的超简单画图板
- oracle 错误处理方法汇总
- 社交巨人屏蔽Google搜索 Facebook发展强劲拟上市
- OOBE创建流程
- 关于ICANN
- 截取当前窗体放到Word打印
- Broadcast机制
- pic01
- 有关android java 中package 的问题
- [经济博弈]全球竞争力的格局分布 [转]
- hdu 2874
- corrupt master file table (MFT)主文件表损坏
- PHP中文件读写操作
- S3C6410 IDE硬盘接口性能测试