请各位delphi同行帮分析一下，这段代码问题出在哪？

Question

将
      dmFields:=dmFields or DM_PAPERSIZE;
      dmPaperSize:=0;
      dmFields:=dmFields or DM_PAPERLENGTH;
      dmPaperLength:=2000;
改为
      dmFields:=dmFields or DM_PAPERSIZE or DM_PAPERLENGTH or DM_PAPERWIDTH;
      dmPaperWidth:=10000;(或任意一个值)
      dmPaperLength:=2000;
      dmPaperSize:=0;
看看

Answer 1

试看看：
 
  dmFields:=dmFields or DM_PAPERSIZE or DM_PAPERWIDTH or DM_PAPERLENGTH;
  dmPaperSize:=DMPAPER_USER;
  dmPaperWidth:=nWidth;
  dmPaperLength:=nHeight;

Answer 2

DocumentProperties函数你一定会用的，DM_UPDATE不在帮助中，但只有用它设置自定义页大小才管用。（我已解决不用对话框设置纸大小的问题，你可找找我的问题：关于打印机的api问题）