请教如何打印A1的纸张 ( 积分: 100 )

我在用fastreport作开发，但是需要打印A1的纸张，但是fastreport里面最大只能选到A2的纸张，现在不知道该如何处理了，

我在用fastreport作开发，但是需要打印A1的纸张，但是fastreport里面最大只能选到A2的纸张，现在不知道该如何处理了，

Var
DevMode : PDevMode;
DeviceHandle : THandle;
ADevice,ADriver,Aport : Array[0..255] of Char;
begin
DeviceHandle := Printer.Handle;
Printer.GetPrinter(ADevice,ADriver,APort,DeviceHandle);
//取得打印机相关信息
DevMode := GlobalLock(DeviceHandle);
DevMode.dmPaperSize := '你要的纸张类型';
GlobalUnlock(DeviceHandle);
end;
纸张类型可以查看DEVMODE的帮助

接受答案了.