关于Win2000的打印机纸张设置的问题.(100分)

大家有没有发现在Win2000的打印纸张设置中没有象Win98中的自定义纸张设置这一项了,
现在我要在Win2000下控制打印机走纸长度该怎么办?紧急啊,救命啊!

//印纸张设置中没有象Win98中的自定义纸张设置这一
有的。
“我的电脑”---->“控制面板”----->“打印机”
选中某一打印机，菜单“文件”---->“服务器属性”
接下来的不用说了吧。

// 控制打印纸的宽度
procedure printer_set;
var
Device:Array[0..256] of Char;
Driver:Array[0..256] of Char;
Port:Array[0..32] of Char;
hDMode:THandle;
pDModeDevMode;
begin
Printer.GetPrinter(Device,Driver,Port,hDMode);
if hDMode<>0 then
pDMode:=GLobalLock(hDMode);
if pDMode<>nil then
begin
pDMode^.dmPaperSize:=0;
pDMode^.dmPaperLength:=100;
pDMode^.dmPaperWidth:=210;
pDMode^.dmFields:=pDMode^.dmFields or DM_PAPERSIZE;
pDMode^.dmFields:=pDMode^.dmFields or DM_PAPERLENGTH;
pDMode^.dmFields:=pDMode^.dmFields or DM_PAPERWIDTH;
end;

多人接受答案了。