如何用Delphi在NT中动态设置自定义纸张？ (50分)

在win9x环境下，设置自定义指张用如下例程可实现
With pDevmode^do
begin

// modify paper size
dmPapersize := DMPAPER_A4;
// tell printer driver that dmPapersize field contains
// data it needs to inspect.
dmFields := dmFields or DM_PAPERSIZE;
end;

但在NT/2000中不知如何实现，请各位大侠赐教!

一样，同理：
function Setpage(Orientation:integer;PageSize:string):boolean;
var
ADevice,ADriver,Aport:Array [0..255] of char;
DeviceHandle:THandle;
DevModedeviceMode;
begin
result:=false;
// with CDatado
begin
if not( DeviceHandle=0) then
GlobalUnLock(DeviceHandle);
Printer.GetPrinter(ADevice,ADriver,Aport,DeviceHandle);
if DeviceHandle=0 then
begin
Printer.PrinterIndex:=Printer.PrinterIndex;
printer.GetPrinter(ADevice,ADriver,Aport,DeviceHandle);
end;
if DeviceHandle=0 then
raise Exception.Create('打印机不存在！')
else
begin
devMode:=GlobalLock(DeviceHandle);
end;

devMode.dmFields:=DevMode.dmFields or DM_ORIENTATION;
if Orientation =1 then
//纵向打印
devMode.dmOrientation:=DMORIENT_PORTRAIT
else
//横向打印
devMode.dmOrientation:=DMORIENT_LANDSCAPE;

// devMode.dmFields:=DM_PAPERSIZE;
devMode.dmFields:=DevMode.dmFields or DM_PAPERSIZE;
if pagesize='A4' then
DevMode.dmPaperSize:=DMPAPER_A4;
if pagesize='A3' then
DevMode.dmPaperSize:=DMPAPER_A3;
if pagesize='16K' then
DevMode.dmPaperSize:=DMPAPER_P16K;
if pagesize='32K' then
DevMode.dmPaperSize:=DMPAPER_P32K;
if pagesize='USER' then
DevMode.dmPaperSize:=DMPAPER_USER;
printer.SetPrinter(ADevice,ADriver,Aport,DeviceHandle);
GlobalUnLock(DeviceHandle);
result:=true;
// end;
end;

我还不知道在win2000中,打印机的自定义纸的尺寸怎样定义?能告知吗?

取打印机是否支持自定义的纸，如果支持，则：
在上面函数的
if pagesize='USER' then
DevMode.dmPaperSize:=DMPAPER_USER;
中加：
DevMode.dmFields:=DM_PAPERSIZE or DM_PAPERWIDTH or DM_PAPERLENGTH;
DevMode.dmPaperSize:=DMPAPER_USER;
DevMode.dmPaperWidth:=nWidth;//纸宽
DevMode.dmPaperLength:=nHeight;//纸高

如何在WINDOWS中控制打印字体的长宽，而不受限于SIZE 的限制

首先为了达到这个功能，可以采用Windows的逻辑字体(LogFont)
可以使用 CreateFont 或 CreateFontIndirect 这两个Windows API
函数来定义任何想要的字体，由于 CreateFont 所需的参数甚多通常
我们使用 CreateFontIndirect 来建立所需的逻辑字体，这个API函数
在Delphi中的声明为
function CreateFontIndirect(const p1: TLogFont): HFONT;
stdcall;
其中只有一个参数 p1: TLogfont
所有有关字体的参数完全通过这个
TLogfont结构来传送，Windows将根据结构中的内容创建出相应的逻辑
字体，在Delphi的Windows.pas中TLogFont是这样定义的

TLogFontA = packed record
lfHeight: Longint;
lfWidth: Longint;
lfEscapement: Longint;
lfOrientation: Longint;
lfWeight: Longint;
lfItalic: Byte;
lfUnderline: Byte;
lfStrikeOut: Byte;
lfCharSet: Byte;
lfOutPrecision: Byte;
lfClipPrecision: Byte;
lfQuality: Byte;
lfPitchAndFamily: Byte;
lfFaceName: array[0..LF_FACESIZE - 1] of AnsiChar;
end;

TLogFontW = packed record
lfHeight: Longint;
lfWidth: Longint;
lfEscapement: Longint;
lfOrientation: Longint;
lfWeight: Longint;
lfItalic: Byte;
lfUnderline: Byte;
lfStrikeOut: Byte;
lfCharSet: Byte;
lfOutPrecision: Byte;
lfClipPrecision: Byte;
lfQuality: Byte;
lfPitchAndFamily: Byte;
lfFaceName: array[0..LF_FACESIZE - 1] of WideChar;
end;

TLogFont = TLogFontA;

其中涉及到很多参数，其中

lfHeight: Longint;
指定以逻辑单位标定的字体高度，取值可为正负或零，对于需要随意
定义字体高度的情况下通常取负值，以保证获得实际尺寸的字体。

lfWidth: Longint;
用于指定字体的平均宽度，由于Windows系统下的大多数字体都是比例
字体因而采用平均宽度这个表示方法。若指定为0，则系统会自动根据
适当的比例自动处理宽度。

lfEscapement: Longint;
指定输出方向与当前坐标系X轴之间的以十分之一度为单位的角度。

lfOrientation: Longint;
指定每个字符与当前坐标系X轴之间的以十分之一度为单位的角度。在
Windows95中这个值等同于lfEscpement。

lfWeight: Longint;
指定范围为从0至1000的字体加重程度，400是标准字体700为加重字体，
0表示采用默认值。

lfItalic: Byte;
不为0表示采用斜体字。

lfUnderline: Byte;
不为0表示带下划线。

lfStrikeOut: Byte;
不为0表示带穿透线。

lfCharSet: Byte;
指定字体集。

lfOutPrecision: Byte;
指定输出精度。用于确定对前面一些设定值的精确程度。

lfClipPrecision: Byte;
指定裁剪精度。裁剪是Windows图形环境下的一种特殊处理，简单说就是
去掉图形中落在视图以外的部分，有助于提高图形的处理速度。

lfQuality: Byte;
指定输出质量。

lfPitchAndFamily: Byte;
指定字体的Pitch和Family。

lfFaceName: array[0..LF_FACESIZE - 1] of AnsiChar;
指定采用的字体名称。

在建立逻辑字体时，我们通常使用

lfHeight和lfWidth来确定字体的尺寸，使用lfEscapement和lfOrientation
来确定字体的输出方向，使用lfWeight
lfItalic
lfUnderline

lfStrikeOut
来确定字体的加重，斜体，下划线和穿透线，使用lfCharSet
来确定字体的字符集，通常采用系统默认的字符集。
对于lfOutPrecision
lfClipPrecision
lfQuality一般应用于对屏幕之外
的输出设备，通常采用默认值。采用lfPitchAndFamily来确定采用定宽或可
变字体和字体的家族。以lfFaceName来通过名称选择采用的字体。
另外应当注意在Windows环境下，每种字体具体输出为何种形式取决于很多
因素，需要对以上这些参数进行有效的组合才能达到所要的效果。