打印时保持分辨率

Question

我正在尝试打印TForm（尝试替换报告工具）。现在我从TForm获取位图，然后使用TJvPrint组件将其发送到打印机。

一切似乎都有效，但条形码的分辨率足够大，以至于扫描仪无法识别它们。

有没有更好的方法来保持TJvPrint组件的分辨率？ 这是我的代码现在的样子。

procedure TForm1.mniJVCPrint1Click(Sender: TObject);
var
  bm : TBitmap;
begin
  bm := Form1.GetFormImage;

  jvprnt1 := TJvPrint.Create(Form1);
  jvprnt1.PrintImage(bm, bsStretched ); //this prints a bitmap
  jvprnt1.Free;
  bm.Free;
end;