NT和2000下如何设置LQ1600KII的自定义纸型？ (200分)

纸张大小在NT和2000下找不到custom,是不是不支持自定义？
我在打印机的服务器属性中加了一个名为jingzu，43cmX32cm的纸张格式，在打印机的设置属性中也找不到。本站的所有程序设置纸张大小程序我都试过，都是只打A4。
原来我用DELPHI3.0写的程序是可以自定义打印的。后因重安装系统用了DELPHI5.0重编程以后就不能打印了。这到底是什么原因啊。有办法解决这个问题吗？

这是我原来的DELPHI3.0的设置纸张大小的程序。经DELPHI5.0编译后就失效。都是在2000下。
function setprin(const x,y:integer):boolean;
//ÉèÖÃÖ½ÕÅ´óС
var ad1,ad2,ap:array[0..255] of char;
dh:Thandle;
dmdevicemode;
begin
result:=true;
try
printer.GetPrinter(ad1,ad2,ap,dh);
if dh=0 then
begin
printer.PrinterIndex:=printer.PrinterIndex;
printer.GetPrinter(ad1,ad2,ap,dh);
end;
if dh=0 then
raise exception.Create('²»Äܳõʼ»¯´òÓ¡»ú')
else
dm:=globallock(dh);
if dh<>0 then
begin
globalunlock(dh);
with dm^do
begin
dmfields:=dmfields or DM_PAPERWIDTH or DM_PAPERLENGTH;
dmpapersize:=DMPAPER_USER;
dmpaperwidth:=x;//3400;
dmpaperlength:=y;//4500;
printer.SetPrinter(ad1,ad2,ap,dh);
end;
// if GetPaperWidth <3399 then
// messagebox(handle,'&amp;Iuml;&amp;micro;&amp;Iacute;&amp;sup3;&amp;Auml;&amp;not;&amp;Egrave;&amp;Iuml;&amp;acute;ò&amp;Oacute;&amp;iexcl;&amp;raquo;ú&amp;micro;&amp;Auml;&amp;acute;ò&amp;Oacute;&amp;iexcl;&amp;Ouml;&amp;frac12;&amp;Otilde;&amp;Aring;&amp;acute;ó&amp;ETH;&amp;iexcl;&amp;sup2;&amp;raquo;&amp;Auml;&amp;Uuml;&amp;Acirc;ú×&amp;atilde;&amp;acute;ò&amp;Oacute;&amp;iexcl;&amp;Egrave;&amp;Icirc;&amp;Icirc;&amp;ntilde;&amp;micro;&amp;Auml;&amp;ETH;è&amp;Ograve;&amp;ordf;&amp;pound;&amp;iexcl;',MB_ICONWARNING+MB_OK);
end;
except
result:=false;
end;
end;

控制面板－＞打印机－＞文件－＞服务器属性中增加纸张定义即可。以管理员身份登录。

我的问题还是不能解决。

接受答案了.