delphi 打印问题 - Delphi / VCL组件开发及应用
现在需要打印delphi窗体上所有的东西，我先抓图再打印，可是打印不出来，请大侠们帮忙。
只是我的代码：
procedure TForm1.FormCreate(Sender: TObject);
var
cvsFullScreenCanvas:TCanvas;
dc:HDC;
bmpFullScreen:TBitmap;
rectScreen:Trect;
begin
bmpFullScreen:=TBitmap.Create;
bmpFullScreen.Width:=screen.Width;
bmpFullScreen.Height:=screen.Height;
//设置BitMap对象
DC:=GetDC(0);
cvsFullScreenCanvas:=TCanvas.Create;
cvsFullScreenCanvas.Handle:=DC;
//设置Canvass对象
bmpFullScreen.Canvas.CopyRect(Rect(0,0,Screen.Width,Screen.Height),cvsFullScreenCanvas,Rect(0,0,Screen.Width,Screen.Height));
cvsFullScreenCanvas.Free;
ReleaseDC(0,DC);
if printdialog1.Execute then
begin
printer.BeginDoc;
printer.Canvas.Draw(0,0,bmpFucllScreen);
printer.EndDoc;
end;
bmpFullScreen.Free;
delphi有自带的打印demo,你可以看一下
直接Self.Print
1、代码没有问题，只是不要放在Form的OnCreate事件中，比如移动单独的一个Button.OnClick中
2、printer.Canvas.Draw(0,0,bmpFucllScreen);
这一句中有一个笔误，bmpFucllScreen应为bmpFullScreen
还是�
相关问答：
程序使用的是Orcal数据库，想定期（每季度）对数据库进行备份，没啥头绪，请问应该怎么弄？
有什么特殊要求吗，比如要前端界面？
一般用数据库自带的“计划任务”配置一下就够了
没有什么特殊要求。例如，只要� ......
本人今年17岁,非常喜欢delphi,但由于基础有限,从网上下载资料学习,看得晕死了,都不知道在说什么!所以今天在此发帖,广邀各位delphi爱好者帮助我!如果本人他日有幸学得delphi编程,定当把源代码发布出来,在此一表感谢!� ......
我在执行Delphi2010的时候，没有出现执行的界面，求高手帮忙，谢谢
End_rbody_65722921//-->
该回复于2010-05-26 08:24:26被版主删除
对我有用[0]
丢个板砖[0]
引用
举报
管理
TO ......
DELPHI如何向 CMD里发送命令。不是调用别的程序，而是在里面写一些带参数的命令，如：ipconfig/all
自己顶一下
Shellexecute ,后面有个带参数的
createprocess 也可以带参数
WinExec(PChar( 'cmd /k dir ......
