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
还是�
相关问答：
一般都是怎么接活的？
收入怎么样
sohu？soho？
sohu 可能是small office house unit
小办公室，把家变成单位。
去威客网啊,很多个呢,还有外包的网站
学习学习。
现在Delphi做东西不行了,处于淘汰状 ......
本人今年17岁,非常喜欢delphi,但由于基础有限,从网上下载资料学习,看得晕死了,都不知道在说什么!所以今天在此发帖,广邀各位delphi爱好者帮助我!如果本人他日有幸学得delphi编程,定当把源代码发布出来,在此一表感谢!� ......
DELPHI如何向 CMD里发送命令。不是调用别的程序，而是在里面写一些带参数的命令，如：ipconfig/all
自己顶一下
Shellexecute ,后面有个带参数的
createprocess 也可以带参数
WinExec(PChar( 'cmd /k dir ......
RXmlDoc := System.xml.XmlDocument.Create;
sxml := copy(sRsult, ir + 8, length(sRsult));
sxml := System.Text.Encoding.GetEncoding('gb2312').GetString(Convert.fromB ......
