with DevMode^ do
begin
dmfields := dm_papersize or DM_PAPERLENGTH or dm_paperwidth;
dmpapersize := 0;
dmPaperLength := 10;
dmpaperwidth := ??;
end;
begin
dmfields := dm_papersize or DM_PAPERLENGTH or dm_paperwidth;
dmpapersize := 0;
dmPaperLength := 10;
dmpaperwidth := ??;
end;
begin
dmfields := dmfields or DM_PAPERLENGTH ;
dmPaperLength := 100;
dmPaperSize:=DMPaper_User; //加这一句
printer.SetPrinter(Adevice,ADriver,Aport,DeviceHandle);
end;
好象还要跑打印机设置里把打印机的纸张先设为自定义纸张,但在win2000里似乎就找不着自定义纸张,
我在做pos销售的打印时都是在dos环境下直接向打印机发命令行的方式