如何通过TPrinterSetupDialog修改打印机默认设置(200分)

[brown]如何通过TPrinterSetupDialog修改打印机默认设置[/brown]
------------------------------------------------------------------------
例如：原来默认的纸张是A4,现在通过修改将默认值修改成为B5，请问怎么操作？

如果还有其他方法或组件也能进行如上操作，希望告知一二

[][][][][]总分200[][][][][]

up

看一下这段代吗:
procedure TForm1.Button1Click(Sender: TObject);
var
Device, Driver, Port: array[0..1023] of char;
DeviceMode : THandle;
PrinterHandle : THandle;
pDevMode: PDeviceMode;
begin
Printer.GetPrinter(Device, Driver, Port, DeviceMode);
if OpenPrinter(Device, PrinterHandle, nil) then
begin
pDevMode := GlobalLock(DeviceMode);
pDevMode^.dmPaperSize := DMPAPER_B5;
GlobalUnlock(DeviceMode);
PrinterSetupDialog1.Execute;
ClosePrinter(PrinterHandle);
end;
end;