with DevMode^ do
    begin        
        dmfields := dm_papersize or DM_PAPERLENGTH or dm_paperwidth;
        dmpapersize := 0;
        dmPaperLength := 10;              
        dmpaperwidth := ??;
    end;
  

解决方案 »

  1.   

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