我用的76的针式打印机,收银的那种,每次打印完总要走一段空白纸,有没有办法??
我用POS指令写的很好,但是老板要求用很大的字,没办法,只好换成TPRINTER做,在80带切纸的机器上很好,但是在76的针式打印机上,每次ENDDOC后,总要走很长一段空白,我试了一下设页面高度,结果没有用.不知道有什么方法可以解决.设置纸张的带码是COPY的,如下.
Printer.GetPrinter(Device,Driver,Port,hDMode);
// 获取打印机DevMode 结构的句柄值，
// 存放在hDMode 中
if hDMode <> 0 then begin
pDMode := GlobalLock(hDMode);
// 获取指向打印机DevMode 结构的// 指针
if pDMode <> nil then begin
pDMode^.dmPaperSize := 256; //要设为其它可查API 中的DevMode
// 如果要将当前打印机纸张变为自定义
//dmPaperSize 必须设置成256
pDMode^.dmPaperLength := 100;
pDMode^.dmPaperWidth := 1900;
pDMode^.dmFields := pDMode^.dmFields or
DM_PAPERSIZE;
pDMode^.dmFields :=pDMode^.dmFields or DM_PAPERLENGTH;
pDMode^.dmFields :=pDMode^.dmFields or DM_PAPERWIDTH;
{　以上三条语句是对相应
　　　　的dmFields 成员进行置位。}
ResetDC(Printer.Handle,pDMode^);
// 设置打印机设备环境句柄的值
GlobalUnlock(hDMode);
end;
end;
{ 下面的代码是为了测试打印机是否
　按190 ＊114 纸张大小来打印}
with Printer do begin
BeginDoc;
Canvas.TextOut(10,10, 'Hello, My Friend! ');
EndDoc;
end;
我是在80的机器上试的,手头没有76的机器,结果Hello, My Friend一打就切纸了,并没有按我设的长度走.请指教?

[解决办法]
世道不好，大家都懒得搞这些了。