Article View: cn.bbs.comp.program
Article #2021delphi�������ӡ���
From: liutao.bbs
Date: Sat, 21 Mar 1998 00:00
Date: Sat, 21 Mar 1998 00:00
19 lines
1253 bytes
1253 bytes
С���Ǹ�delphi���֣��������delphiдһ����ݿ������д��ӡ����
ʼ��û��,Դ�������£���ִ�к�ȴû�д�ӡ���κζ�����������printer.
canvas��copymode������Ҳ���˺ܶ�Σ������Dz��ԡ��ڴ˻����λ
�����æ����С��һ�?��������
procedure TForm4.Button11Click(Sender: TObject);
var s:trect;
begin
if printdialog1.execute then
begin
printer.canvas.font:=dbgrid1.font;
printer.begindoc;
printer.canvas.copyrect(printer.canvas.cliprect,dbgrid1.canvas,dbgrid1.clientrect);
printer.enddoc;
end;
end;
--
[1;36m ��Դ: ����������BBSվ��bbs.nease.net�E[FROM: www-post@bbs.nease.n]
Technical Details
Message-ID:
<3NZZD7$Sv0@bbs.nease.net>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailShow Full Headers
Complete Article Headers
X-Google-Language: Chinese,GB X-Google-Thread: fc86e,67e0823fc73fabbf,start X-Google-Attributes: gidfc86e,public From: liutao.bbs@bbs.nease.net () Subject: delphi�������ӡ��� Date: 1998/03/21 Message-ID: <3NZZD7$Sv0@bbs.nease.net> X-Deja-AN: 336178216 X-Filename: Program/M.890457463.A Organization: Net Ease Newsgroups: cn.bbs.comp.program,