急!!!!!————请教各位,谁使过条码卡打印机(200分)

  • 主题发起人 主题发起人 mykai
  • 开始时间 开始时间
M

mykai

Unregistered / Unconfirmed
GUEST, unregistred user!
客户会员卡使用条码卡,我翻了一下午手册,还是不敢下手调(给的卡太少了),那位朋友
作过,可不可以指点一下,具体的写一个条码和一个会员号,很简单。
拜托,
调用dll也可以。
谢谢,尤其定位和大小怎么实现呢。


 
条码打印机一般都有函数库和开发手册,一般在驱动光盘上有。
调试时可以用纸来代替么。
 
谢谢回复,我只有代码手册,好像不能用纸的
 
我用过dr200。用qrbarcode控件,quickreport打印,自定义纸张大小。

写了个设置自定义纸张函数配合改变打印机自定义纸张:
function setprnpaper(const wdth,lenth:real):boolean;
var FDevice, FDriver, FPort:array [0..255] of char;
DeviceMode,HPrt:THandle;
DevMode:PDeviceMode;
begin

result:=true;

Printer.GetPrinter(FDevice, FDriver, FPort, DeviceMode);

if DeviceMode<=0 then

begin

result:=false;
exit;
end;


DevMode := GlobalLock(DeviceMode);
OpenPrinter(FDevice, HPrt, nil);
begin

DevMode^.dmFields := DevMode^.dmFields or dm_paperlength;
DevMode^.dmPaperLength :=trunc(lenth*10);
DevMode^.dmFields := DevMode^.dmFields or dm_paperwidth;
DevMode^.dmPaperWidth :=trunc(wdth*10);
DevMode^.dmFields := DevMode^.dmFields or dm_papersize;
DevMode^.dmPaperSize := DMPAPER_USER;
end;

SetPrinter(HPrt,0,DevMode,PRINTER_CONTROL_SET_STATUS);

do
cumentProperties(DeviceMode,HPrt,FDevice,DevMode^,DevMode^,DM_IN_BUFFER or DM_UPDATE);
GlobalUnlock(DeviceMode);
ClosePrinter(HPrt);
end;

 
我用过北洋的打印机,直接打印就可以
 
我在看说明和命令
如果调通的话
会放到这里
各位的分不会少的
但要晚一点拉
希望不要介意
 
结账
谢谢DZHZH2000
 
接受答案了.
 
后退
顶部