自定义纸张的设置(100分)

谁能告诉我一个能在win98,winme,win2000,winnt下都通用的自定义纸张设置的代码？？

uses printers,registry;
...
procedure setprintpaper(const w,h:integer);//w:宽度 h:高度
var
Device : array[0..255] of char;
Driver : array[0..255] of char;
Port : array[0..255] of char;
hDMode : THandle;
PDMode : PDEVMODE;
reg:tregistry;
begin

initqc(cds,'select * from pagesetup where mc='+''''+s+'''');
if not cds.eof then

begin

Printer.PrinterIndex := Printer.PrinterIndex;
Printer.GetPrinter(Device, Driver, Port, hDMode);
if hDMode <> 0 then

begin

pDMode := GlobalLock(hDMode);
if pDMode <> nil then

begin

{Set to legal}
pDMode^.dmFields := pDMode^.dmFields or dm_PaperSize;
pDMode^.dmPaperSize := DMPAPER_LEGAL;
{Set to custom size}
pDMode^.dmFields := pDMode^.dmFields or
DM_PAPERSIZE or
DM_PAPERWIDTH or
DM_PAPERLENGTH;
pDMode^.dmPaperSize := DMPAPER_USER;
pDMode^.dmPaperWidth :=w;
pDMode^.dmPaperLength :=h;
{Set the bin to use,以下写到注册表中是为了永久改变打印机纸张,但在win2000下无效,我也想知道}
reg:=tregistry.create;
reg.rootkey:=hkey_local_machine;
reg.OpenKey('/system/currentcontrolset/control/print/printers/'+pdmode.dmDeviceName,false);
reg.WriteBinaryData('Default DevMode',pdmode^,pdmode^.dmsize+pdmode^.dmdriverextra);
reg.closekey;
reg.free;
pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;
pDMode^.dmDefaultSource := DMBIN_MANUAL;
GlobalUnlock(hDMode);
end;

end;

Printer.PrinterIndex := Printer.PrinterIndex;
end;

end;

贴错了,再贴一次吧:
uses printers,registry;
...
procedure setprintpaper(const w,h:integer);//w:宽度 h:高度
var
Device : array[0..255] of char;
Driver : array[0..255] of char;
Port : array[0..255] of char;
hDMode : THandle;
PDMode : PDEVMODE;
reg:tregistry;
begin

Printer.PrinterIndex := Printer.PrinterIndex;
Printer.GetPrinter(Device, Driver, Port, hDMode);
if hDMode <> 0 then

begin

pDMode := GlobalLock(hDMode);
if pDMode <> nil then

begin

{Set to legal}
pDMode^.dmFields := pDMode^.dmFields or dm_PaperSize;
pDMode^.dmPaperSize := DMPAPER_LEGAL;
{Set to custom size}
pDMode^.dmFields := pDMode^.dmFields or
DM_PAPERSIZE or
DM_PAPERWIDTH or
DM_PAPERLENGTH;
pDMode^.dmPaperSize := DMPAPER_USER;
pDMode^.dmPaperWidth :=w;
pDMode^.dmPaperLength :=h;
{Set the bin to use,以下写到注册表中是为了永久改变打印机纸张,但在win2000下无效,我也想知道}
reg:=tregistry.create;
reg.rootkey:=hkey_local_machine;
reg.OpenKey('/system/currentcontrolset/control/print/printers/'+pdmode.dmDeviceName,false);
reg.WriteBinaryData('Default DevMode',pdmode^,pdmode^.dmsize+pdmode^.dmdriverextra);
reg.closekey;
reg.free;
pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;
pDMode^.dmDefaultSource := DMBIN_MANUAL;
GlobalUnlock(hDMode);
end;

end;

Printer.PrinterIndex := Printer.PrinterIndex;
end;

在WIN2K中我是程序动态建立纸张格式[WINDOWS API，自己查查]，换打印首选项的。

呵呵,各位火鸟贴的解决win98,其他的好贴呢??

听听

关注

如何在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环境下，每种字体具体输出为何种形式取决于很多

因素，需要对以上这些参数进行有效的组合才能达到所要的效果。

火鸟, 用这种方法就不能用qreport,等，只能直接绘出去才有用。

首先，你得先打开你的打印机设备，对吧：
var
FDevice: PChar;
FDriver: PChar;
FPort: PChar;
DeviceMode: THandle;
DevMode: PDeviceMode;

procedure OpenThePrinterDevice;
var
Driver_Info2: PDriverInfo2;
Retrieved: dword;
hPrinter: THandle;
begin

Printer().GetPrinter(FDevice, FDriver, FPort, DeviceMode);
if DeviceMode = 0 then

Printer().GetPrinter(FDevice, FDriver, FPort, DeviceMode);
OpenPrinter(FDevice, hPrinter, nil);
GetMem(Driver_Info2, 255);
GetPrinterDriver(hPrinter, nil, 2, Driver_info_2, 255, Retrieved);
StrLCopy(FDriver, PChar(ExtractFileName(StrPas(Driver_Info2^.PDriverPath))
+ #0), 63);
FreeMem(Driver_info_2, 255);
DevMode := GlobalLock(DeviceMode);
end;


现在，你可以获取打印机的信息了。例如：打印机的定位设置。

if ((DevMode^.dmFields and DM_ORIENTATION) = DM_ORIENTATION) and
(DevMode^.dmOrientation = DMORIENT_LANDSCAPE) then

//Landscape
else

//Portrait

同样，你可以获取纸张的大小、纸张来源、双面打印、、、、