高手请进 请教怎样将画布TPaintBox的内容打印出来 ( 积分: 200 )

请教怎样将画布TPaintBox的内容打印出来 最好能给出代码
我的qq:412518736

请教怎样将画布TPaintBox的内容打印出来 最好能给出代码
我的qq:412518736

首先将PaintBox里绘制的部分保存在一幅位图，然后就是位图的打印了。
BitBlt(bmp.canvas.handle,0,0,bmp.width,bmp.height,paintbox.canvas.handle,x,y,srccopy);
//x,y为你制定的起始坐标
//bmp.width,bmp.height为你确定的打印部分的宽度和高度
var
ScaleX,ScaleY :Integer;
R :TRect;
begin
if Printer.Printers.Count=0 then
begin
ShowMessage('请首先安装打印机');
Exit;
//跳出N11Click
end;
if not MainPrintDialog.Execute then
Exit
else
begin
with Printerdo
begin
begin
Doc;
ScaleX :=GetDeviceCaps(Handle,LogPixelsX) div PixelsPerInch;
ScaleY :=GetDeviceCaps(Handle,LogPixelsY) div PixelsPerInch;
R :=Rect(0,0,bmp.Width*ScaleX,bmp.Height*ScaleY);
Canvas.StretchDraw(R,bmp);
EndDoc;
end;
end;
end;

蛋炒饭 你好
还有两个问题
第一.刚才的问题可以打印了,我在PaintBox中用ACanvas.TextOut输出一些旋转字,然后打出来,可是我怎样在PaintBox中加一个图片做来底片打印出来呢,
第二,不通过PaintBox这个东东,我怎样把ACanvas.TextOut输出的一些旋转字在打印机上直接打印呢

我怎样把ACanvas.TextOut输出的一些旋转字在打印机上直接打印呢