2012-10-27 97 views
1

我在Delphi有一個控制檯應用程序,我必須用條形碼打印標籤。 我該怎麼做?創建一個打印服務?或者我會用QuickReport帶條碼的打印標籤delphi console

該應用程序運行在telnet中。

回答

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. 
+0

如何包含要打印的值?還有什麼代碼符號體系,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

+1

這很好,只有我猜測@user正在尋找的是你的程序的那部分是評論 –

0

我已經與連接到串行端口,和大多數人知道如何打印條碼標籤打印機的工作,所有你需要做的就是告訴他們,什麼樣的代碼和symbiology。根據標籤打印機的品牌和類型,手冊應告訴您如何使打印機打印標籤。例如:Epson ESC(pdf)第C-195頁或datamax-oneil's Compact4(pdf)第15頁

0

我們使用ReportBuilder的TppDBBarcode組件打印條碼。