delphi - 使用条形码打印标签的选项？

Question

我买了一台入门级的兄弟标签打印机，我需要从德尔福打印这种类型的标签：

（条形码是使用免费的 3of9 TTY 字体简单创建的，尽管一些 VCL 组件可用于直接创建条形码。）

我读到标准方法是使用 Rave Reports，但它看起来像一个非常大的工具，我以前从未使用过它。

在我继续花时间学习 Rave Reports 之前，我想问问经验丰富的 Delphi 开发人员是否有更简单的方法可以做到这一点。例如，即时创建一些图像并将其发送到打印机怎么样？

谢谢你。

score 2 · Accepted Answer

如果您有可用作图像的条形码，您可以使用打印机单元中的打印机对象打印它。

uses
  Printers;
...
Printer.BeginDoc;
try
  Printer.Canvas.Draw (PosX, PosY, FBarcodeBitmap);
finally
  Printer.EndDoc;
end;

如果您只想打印条形码，这可能比让自己习惯 Rave Reports 更容易。

score 0 · Accepted Answer

虽然您当然可以在代码中渲染您的画布，然后将其推到打印机上，但我认为您会发现使用报告工具的价值。多年来，我们一直使用 QuickReports 来生成我们的条形码标签，并取得了巨大成功。

我看到的报告工具在代码中渲染到画布的最大价值是报告工具的所见即所得方面。您将能够在设计时在屏幕上进行大部分布局和调整。

score 0 · Accepted Answer

常见的条形码包含 CRC，因此“条形码字体”不起作用。您必须使用一些报告引擎或使用一些条码组件手动创建条码。

score 0 · Accepted Answer

您可以使用标准的 TRichEdit 组件。它有 Print 方法。简单地：

  rich1.Print('title');

问候。

4 回答 4