请问如何将屏幕中捕获的位图按比例打印出来，并且位图上的字体基本不变形？ (100分)

procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
begin

Bitmap := TBitmap.Create;
//这里省略一个过程，即在屏幕上捕捉一幅图，并将其保存为'c:/1.bmp'
//要求打印出来的位图的字体基本上清楚
Bitmap.LoadFromFile('c:/1.bmp');

//问题1: 如何设置PrintDialog1，使Default的页面是横向的
if PrintDialog1.Execute then begin
//问题2: 如何根据挑选的纸张大小，将 Bitmap 的位图，打印出来
//问题3: 我的位图上有文字，如何打印才能使文字不变形，按比例放大、缩小行不行？

//问题4：这样处理行不行，先获得挑选的打印机的页面的尺寸，
//将这个尺寸换算为屏幕分辩率，按这个分辩率捕捉图，再打印，这样字体是不是不会变形
end;

Bitmap.Handle := 0;
Bitmap.Free;

end;

【delphi 5开发人员指南】第10章有类似的介绍，并有相关的代码，你可下一本电子书看看。