Delphi打印与Word一样暗淡的图像？

Question

delphi的新手，并试图学习印刷。

用微软的话说，我要做的是粘贴图像，然后将其大小分别设置为5.6cm和17.2cm，然后使用PrintDialog消息进行打印。

当前，这就是我打印

的方式

procedure TForm1.Button1Click(Sender: TObject);
var
Bit: TBitmaps;
sRect,DRect:TRect;
begin
 Bit:= TBitmaps.create;
 Bit.Assign(Image1.Bitmap);
 with sRect do begin
   Height:= Bit.Height;
   Width:= Bit.Width;
   Top:= 5;
   Left:= 5;
 end;
 with dRect do begin
    Height:=172; // i used these as i don't know what unit is used for printing 
    Width:=52;
    Top:= 5;
    Left:=5;
 end;
 with Printer do
 begin
   BeginDoc;
   Canvas.DrawBitmap(Bit,sRect,dRect,1);
   EndDoc;
 end;
end; 

首先使用的打印机是XPS文档编写器，并且打印的xps文件中的图像比我想要的以Microsoft Word打印的输出要小。

我如何打印与Microsoft Word相同的文字？