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
还是�
相关问答：
delphi 手动装载驱动文件提示：
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
是不是这个驱动必需要用INF来安装。。用自带的INF来装是正常的。用手动装载就提示如上� ......
hongqi162、windindance
此2人长期不在线，特别是windindance
更换有能力的人上
hongqi162还是经常上来转转的
引用
更换有能力的人上
其实也不是什么能力的原因，主要可能是时间问题吧
工作的还要上班，学� ......
我在执行Delphi2010的时候，没有出现执行的界面，求高手帮忙，谢谢
End_rbody_65722921//-->
该回复于2010-05-26 08:24:26被版主删除
对我有用[0]
丢个板砖[0]
引用
举报
管理
TO ......
DELPHI如何向 CMD里发送命令。不是调用别的程序，而是在里面写一些带参数的命令，如：ipconfig/all
自己顶一下
Shellexecute ,后面有个带参数的
createprocess 也可以带参数
WinExec(PChar( 'cmd /k dir ......
假设用delphi做个dll
function f(x:double):double;stdcall;
begin
result:=1/x;
end;
vb 调用该函数
假设x=0时，函数f可以直接反馈错误到vb中
如何实现
传指针并out
如 function f(x:double; out ErrCod ......
