您的位置－>>条码打印机－>>在线支持　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

编号：4539 留言者名称：NyHost　标题：我的程序只滚纸，不打印。
急需解决，是不是条码大小设置的不正确。
需要打印39码，宽125高30
谢谢，辛苦了。
unit Demo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function  A_Set_Darkness ( darkness:integer):integer;stdcall;external 'WINPPLA.DLL';
function  A_CreatePrn    ( selection:integer;FileName:pchar):integer;stdcall;external 'WINPPLA.DLL';
function  A_Print_Out    ( width,height,copies,amount:integer):integer;stdcall;external 'WINPPLA.DLL';
function  A_Prn_Barcode  ( x,y,ori:integer;typee:char;narrow,width,height:integer;mode:char;numeric:integer;data:pchar):integer;stdcall;external 'WINPPLA.DLL';
Procedure A_ClosePrn     ();stdcall;external 'WINPPLA.DLL';

procedure TForm1.Button1Click(Sender: TObject);
begin
     A_CreatePrn(1,'ppla.txt');
     A_Set_Darkness(10);
     A_Prn_Barcode(10, 35, 1, 'A', 1, 4, 30, 'd', 1, pchar('DOS.991111895213390'));
     A_Print_Out(1, 1, 2, 1);
     A_ClosePrn;
end;

end.
地区：其它　　　 留言时间： 2004-10-18　10:38:02
专家解答：
应该没有什么问题

条码小知识：
条码是用来收集有关任何人，地，或物的资料的自动识别(Auto ID)技术中的主要部分。条码的应用是无限的。它被用来做物品检索，存货控制，时间和出勤记录，生产过程的监视，质量控制，进出分类，订单的输入，资料的检索，对警戒地区的进入控制，送货与收货。仑储，路线管理，柜台售货。并可以做为照顾病人的帮手，检索药物的应用，给病人开帐单。

条码本身不是一个系统。它是一个极端有效率的识别工具。可以为先进的管理体制的资讯要求提供准确，及时的支持。条码的使用普遍地提高准确性和工作效率，降低成本，改善业务运作。