如何更改windows默认打印机的纸张大小，和横向打印

[zsy_good]

var
Device : array[0..255] of char;
Driver : array[0..255] of char;
Port : array[0..255] of char;
hDMode : THandle;
PDMode : PDEVMODE;
begin
result := E_Size;
Printer.PrinterIndex := Printer.PrinterIndex;
Printer.GetPrinter(Device, Driver, Port, hDMode);
if hDMode <> 0 then
begin
pDMode := GlobalLock(hDMode);
if pDMode <> nil then
begin
{Set to legal}
pDMode^.dmFields := pDMode^.dmFields or dm_PaperSize;
pDMode^.dmPaperSize := DMPAPER_LEGAL; {Set to custom size}
pDMode^.dmFields := pDMode^.dmFields or
DM_PAPERSIZE or
DM_PAPERWIDTH or
DM_PAPERLENGTH;
pDMode^.dmPaperSize := DMPAPER_USER;
pDMode^.dmPaperWidth := Width {SomeValueInTenthsOfAMillimeter};
pDMode^.dmPaperLength := Height {SomeValueInTenthsOfAMillimeter};
{Set the bin to use}
pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;
pDMode^.dmDefaultSource := DMBIN_MANUAL;
Printer.SetPrinter (Device,Driver,port,hDMode);
GlobalUnlock(hDMode);
end;
end;
Printer.PrinterIndex := Printer.PrinterIndex;


这些函数全部有问题。
只在本程序有用。我把这些函数放到Dll,里面在Exe里面调用就有问题。
如果在Dll里面直接打印，就可成功，所以我想直接更改默认打印机的属性。
印象所有程序都可以。

[wyb716]

呵呵，老兄，你的做法应该可行吧。

[zsy_good]

不行，我测试了一天了。
在上面那个函数在Dll里面，在Dll里面打印就可以。
在Dll里面设置，exe里面打印，就和没有设置一样，我的Dll是给别人用的。
所有一定要写Dll

[zsy_good]

UP

[zsy_good]

没有人知道这个问题怎么解决吗？