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

Question

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里面直接打印，就可成功，所以我想直接更改默认打印机的属性。
印象所有程序都可以。

Answer 1

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