Question

我在Delphi中有一个控制台应用程序，我必须打印带有条形码的标签。我该怎么办？创建打印服务？或者我会使用QuickReport？

该应用程序将在telnet中运行。

Answer 1

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Printers, Graphics;
var
  bmp: TBitmap;
begin
  try
    bmp := TBitmap.Create;
    try
      bmp.Width := 400;
      bmp.Height := 400;
      // your Barcode - Code here
      bmp.Canvas.Ellipse(10,10,300,300);
      Printer.BeginDoc;
      Printer.Canvas.Draw(10,10,bmp);
      Printer.EndDoc;
    finally
      bmp.Free;
    end;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Answer 2

我使用连接到串口的标签打印机，大多数人都知道如何打印条码，所有你需要做的就是告诉他们在哪里，什么代码和哪些符号系统。根据标签打印机的品牌和类型，您的手册应告诉您如何使打印机打印标签。例如：Epson ESC（pdf）第C-195页或datamax-oneil's Compact4（pdf）第15页

Answer 3

我们使用ReportBuilder中的TppDBBarcode组件来打印条形码。

使用条形码delphi控制台打印标签

3 个答案: