古老问题：谁能解决Win200,XP,NT下增加自定义纸张、设置大小？（写程序控制）。98、95下我已解决。 (100分)

98、95下我已解决。
Win200,XP,NT下增加自定义纸张、设置大小？
写程序控制。不是添加服务器属性，那谁不会呀。

怎么每人回答？我又把这个问题踢到前面啦！

从深度历险上复制过来的,我身边没打印机,试不来,你试看看,,
行的话也告诉我一下...
procedure TForm1.Button1Click(Sender: TObject);
var
_MyQRPrinter : TQRPrinter;
// 宣告
begin

_MyQRPrinter := nil;
// 初始化
try
// 建立 QR 印表物件, 之所以如此是要讀取印表機實際的設定值(紙張大小, 寬, 高)
_MyQRPrinter := TQRPrinter.Create;
// 指定至預設印表機
_MyQRPrinter.PrinterIndex := -1;
// 讀取(_MyQRPrinter's)並指定(QuickRep1's)紙張大小
QuickRep1.Page.PaperSize := _MyQRPrinter.PaperSize;
QuickRep1.Page.Length := _MyQRPrinter.PaperLength;
// 指定高度
QuickRep1.Page.Width := _MyQRPrinter.PaperWidth;
// 指定寬度
// 開始列印囉(直接列印, 不預覽)..
QuickRep1.Prepare;
QuickRep1.QRPrinter.Print;
QuickRep1.QRPrinter.Free;
QuickRep1.QRPrinter := nil;
finally
if _MyQRPrinter <> nil then

_MyQRPrinter.Free;
_MyQRPrinter := nil;
end;

end;

fross,你那个例子不行啦！

Report Machine 2.0 可以。(带源码)
下载 http://rmachine.y365.com/

不知道

试试report builder

word 自己指定的纸张大小，打印出来的时候，都是按驱动程序给出那几种大小就近打印
nt的打印就是没有自定义的大小，似乎是驱动程序决定的，而有很少几种比较贵的打印机
是自己带的，连属性画面都是他自己的，他可以添加几种自己的纸张，但是word也不能自己
动态打印word随便定义的大小

接受答案了.