为什么在使用HP LaserJet 1000系列的时候，我用程序设定自定义纸张大小不起作用，而别的型号可以？？？

[xiaofeng_cxy]

自定义纸张大小函数如下
procedure SetPageSize(Prnt: TPrinter; PageWidth, PageHeight: Integer);
var
Device, Driver, Port: array[0..255] of Char;
hDMode: THandle;
pDMode: PDevMode;
begin
//Prnt.PrinterIndex := Prnt.PrinterIndex;
Prnt.GetPrinter(Device, Driver, Port, hDMode);
if hDMode <> 0 then
begin
try
pDMode := GlobalLock(hDMode);
if pDMode <> nil then
begin
pDMode^.dmFields := pDMode^.dmFields or dm_PaperSize;
pDMode^.dmPaperSize := dmPaper_User;
//pDMode^.dmPaperSize := DMPAPER_FANFOLD_US;
//pDMode^.dmPaperSize := dmPaper_Last;
pDMode^.dmFields := pDMode^.dmFields or dm_PaperWidth;
pDMode^.dmPaperWidth := PageWidth;
pDMode^.dmFields := pDMode^.dmFields or dm_PaperLength;
pDMOde^.dmPaperLength := PageHeight;
//pDMode^.dmFields := pDMode^.dmFields or dmBin_Manual;
//pDMode^.dmDefaultSource := dmBin_Manual;

end;
ResetDC(Prnt.Handle, pDMode^);
finally
GlobalUnLock(hDMode);
end;
end;
//Printer.PrinterIndex := Printer.PrinterIndex;
end;

先后使用了EPSON1600K,HP LaserJet 6L,设定都是没问题的。可是在使用HP LaserJet1000、1005、1010、1100时，无论怎么设定，打印机的纸张大小都是不变的？？？请各位高手指教。。
在线恭候。。。。

[suwen88]

因为激光打印机对纸张的大小是有限制的，具体原因我也不是很清除

[xiaofeng_cxy]

我设置的纸张大小肯定是在打印允许的范围之内的。。
而同样是HP的LaserJet 6L,却完全没有这样的问题。。。
还请高手作答啊。。

[xiaofeng_cxy]

1000是无论你怎么设置，打印机的纸张大小都是A4
而1010则是用的打印机设置里的默认纸张大小。。

[xiaofeng_cxy]

请有过类似经验的高手指教啊！！
急急急。。。。！！！！

[513]

同样问题,同样急,
顶