打印纸张设置问题

Question

代码：
  Printer.GetPrinter(Device, Driver, Port, hDMode);
  if hDMode <> 0 then begin
    pDMode := GlobalLock(hDMode);
    if pDMode <> nil then begin     {Set to legal}
   //  showmessage(pDMode^.dmDeviceName);
      pDMode^.dmFields := pDMode^.dmFields or dm_PaperSize;
      pDMode^.dmPaperSize := DMPAPER_A3;
       // showmessage(inttostr(pDMode^.dmPaperSize));
     // ResetDC(Printer.Handle,pDMode^);
      Printer.SetPrinter(Device,Driver,Port,pDMode);      GlobalUnlock(hDMode);
    end;我执行一这段代码，为什么在控制面板中查看打印机的纸张大小未改为A3，还是A4。
为什么？？？？

Answer 1

你的代码只是在程序中有用。运行结束后恢复原来的设置

Answer 2

那么如果要想在控制面板中看到要怎么做？？？？或者要永久修改它的值？？？？