如何打印屏幕(100分)

截取屏幕的功能已经实现了，但打印出来了太小了，请问高手如何打得大一点呢。
procedure TForm1.PrintBitmap(Bitmap: TBitmap);
var
ScaleX, ScaleY: Integer;
R: TRect;
begin
with Printerdo
begin
begin
Doc;
try
ScaleX := GetDeviceCaps(Handle, LogPixelsX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Handle, LogPixelsY) div PixelsPerInch;
R := Rect(0, 0, Bitmap.Width * ScaleX, Bitmap.Height * ScaleY);
Canvas.StretchDraw(R, Bitmap);
finally
EndDoc;
end;
end;
end;

上面的代码可以打印，但太小了，不知如何调整之。

是不是要调定义一下打印机的分辨率！

看【DEPHI5开发人员指南】的第10章。

多人接受答案了。