我在Delphi有一個控制檯應用程序,我必須用條形碼打印標籤。 我該怎麼做?創建一個打印服務?或者我會用QuickReport
?帶條碼的打印標籤delphi console
該應用程序運行在telnet中。
我在Delphi有一個控制檯應用程序,我必須用條形碼打印標籤。 我該怎麼做?創建一個打印服務?或者我會用QuickReport
?帶條碼的打印標籤delphi console
該應用程序運行在telnet中。
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.
我已經與連接到串行端口,和大多數人知道如何打印條碼標籤打印機的工作,所有你需要做的就是告訴他們,什麼樣的代碼和symbiology。根據標籤打印機的品牌和類型,手冊應告訴您如何使打印機打印標籤。例如:Epson ESC(pdf)第C-195頁或datamax-oneil's Compact4(pdf)第15頁
我們使用ReportBuilder的TppDBBarcode
組件打印條碼。
如何包含要打印的值?還有什麼代碼符號體系,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正在尋找的是你的程序的那部分是評論 –