带条码的打印标签delphi console

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

该应用程序运行在telnet中。

2012-10-27 Cloudcon

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.

来源

2012-10-27 07:06:19 bummi

如何包含要打印的值？还有什么代码符号体系，2of5？今天我拿一个备忘录并逐行打印它会是平等的吗？我的打印代码 '（步骤ImprimirMemo（备注：字符串列表; TamanhoFonte：整数; PrinterIndex：整数）; 瓦尔 I：整数; F：文本; 开始 {美国NA impressora一个MESMA丰泰做备忘录} Printer.PrinterIndex：= PrinterIndex; Printer.Canvas.Font.Style：= [fsBold]; Printer.Canvas.Font.Size：= TamanhoFonte; AssignPrn（F）; 重写（F）; 尝试对于I：= 0 To Memo.Count - 1 Do WriteLn（F，Memo [I]）; 最后 CloseFile（F）; 结束; End;）' – Cloudcon

这很好，只有我猜测@user正在寻找的是你的程序的那部分是评论 –

我已经与连接到串行端口，和大多数人知道如何打印条码标签打印机的工作，所有你需要做的就是告诉他们，什么样的代码和symbiology。根据标签打印机的品牌和类型，手册应告诉您如何使打印机打印标签。例如：Epson ESC（pdf）第C-195页或datamax-oneil's Compact4（pdf）第15页

来源

2012-10-28 15:02:33

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

来源

2012-10-28 22:56:20 awmross

带条码的打印标签delphi console

回答

相关问题