谁会做打印机的应用程序，谢了150分，超值大奉送！！(100分)

我想做个打印机的应用程序
用来打印当前form上某组件的图形
本题150分，谢谢了

小日本？哈哈。。。。。。

东洋鬼子！

qie

**** 小日本

uses printers
......
begin
Printer.begin
Doc;
Form1.PaintTo(Printer.Canvas,0,0)
Printer.EndDoc;
end

去看QuickReport代码

Delphi文本和图形的打印方法

一、基本知识
1、在代码单元的Uses部分增加Printers，打印实际上是把要打印的内容画到tprinter的canvas画布上。
2、选择输出的打印机：printdialog1.execute
3、选择打印控制选项 printersetupdialog1.execute;

二、打印文本
//打印Memo1中的内容
procedure TForm1.BitBtn1Click(Sender: TObject);
var
lines:integer;
prntext:text;
定义打印文本变量
begin

if printdialog1.execute then

assignprn(prntext);
//将prntext文件分配给打印机
rewrite(prntext);
//打开prntext文件
printer.canvas.font:=memo1.font;
//设置打印对象的canvas的字体
for lines:=0 to memo1.lines.count-1do

writeln(prntext
memo1.lines[lines]);
//把Memo1的内容写到打印机对象
system.close(prntext);
//关闭打印文件
end;

三、打印图形
1、利用打印机的分辨率，图形将打印在页面的左上角，图形较小。
procedure TForm1.BitBtn1Click(Sender: TObject);
begin

if printdialog1.execute then

begin

printer.begin
doc;
printer.canvas.draw(0
0
image1.picture.graphic);
printer.enddoc;
end;

end;

2、利用打印机画布canvas的stretchdraw方法
可以对图形进行更为灵活的处理。
其中要用到一个代表图形输出区域的Rect参数
Trect的类型定义如下:
TRect = record
case Integer of
0: (Left
Top
Right
Bottom: Integer);
1: (TopLeft
BottomRight: TPoint);
end;
　

例：通过调整Rect的范围、图形大小及其在打印页面上的位置，实现图形打印:
procedure TForm1.Button1Click(Sender: TObject);
var strect:Trect;
//定义打印输出矩形框的大小
temhi
temwd:integer;
begin

if printdialog1.execute then

begin

temhi:=image1.picture.height;
temwd:=image1.picture.width;
while (temhi＜printer.pageheight div 2) and //将图形放大到打印页面的1/2 (temwd＜printer.pagewidth div 2)do
begin

temhi:=temhi+temhi;
temwd:=temwd+temwd;
end;

with strectdo
//定义图形在页面上的中心位置输出
begin

left:=(printer.pagewidth -temwd) div 2;
top:=(printer.pageheight-temhi) div 2;
right:=left+temwd;
bottom:=top+temhi;
end;

with Printerdo
begin

begin
doc;
//将放大的图形向打印机输出
canvas.stretchdraw(strect
image1.picture.graphic);
enddoc;
end;

end;

end;

这有一个打印panel中内容的代码，你参看一下吧
procedure TForm1.Button1Click(Sender: TObject);
var
DC: HDC;
Canvas: TCanvas;
begin
Canvas := TCanvas.Create;
DC := GetDC(0);
Canvas.Handle := DC;
printer.begin
doc;//准备打印
//下面是把 panel 在屏幕上的图象拷贝下来
printer.Canvas.CopyRect(rect(0,0,panel1.Width,panel1.Height),
canvas,
rect(self.Left+panel1.Left,
self.Top+panel1.Top,
self.Left+panel1.Left+panel1.Width,
self.Top+panel1.Top+panel1.Height));
ReleaseDC(0, DC);
canvas.Free;
printer.enddoc;//开始打印
end;

CopyRect 方法
第一个参数是目的矩形的大小
第二个参数源的canvas,这里也就是屏幕的
第三个参数是源的矩形，可能有差距，你修改一下
left,top,right,bottom 就行了