请帮忙,给出代码?谢谢
解决方案 »
- 怎样将最大值求出
- 我用remobject开发三层结构,以前用的很好,最近重装了系统,server可以运行,但client联上去说“没有注册类别”,那里出了问题?
- 两层结构,两个问题
- 如何让线程一个一个地执行?
- delphi 开发互联网程序(服务器、客户端)做进销存软件,是不是必须用三层?
- 如何让DBGRID中的某列得不到焦点?
- 怎样实现压缩或解压缩
- 怎么将求出和的值放入变量中,是SQL语句,请教!
- 急!!急!!急!!关于win2000 server (一定给分)
- 如何在自己开发的程序的安装盘中封装ms sql server的客户端的驱动
- Delphi流的问题
- 求助!数位处理和打印的问题,麻烦好心人帮忙!!
priter.pageheiht是只读属性
procedure SetPaperHeight(H_Dot1mm: Integer);
var
Device: array[0..255] of Char;
Driver: array[0..255] of Char;
Port: array[0..255] of Char;
hDMode: THandle;
PDMode: PDEVMODE;
begin
//自定义纸张最小高度127mm
if H_Dot1mm < 1270 then H_Dot1mm := 1270;
//自定义纸张最大高度432mm
if H_Dot1mm > 4320 then H_Dot1mm := 4320;
Printer.PrinterIndex := Printer.PrinterIndex;
Printer.GetPrinter(Device, Driver, Port, hDMode);
if hDMode <> 0 then
begin
pDMode := GlobalLock(hDMode);
if pDMode <> nil then
begin
pDMode^.dmFields := pDMode^.dmFields or DM_PAPERSIZE or DM_PAPERLENGTH;
pDMode^.dmPaperSize := DMPAPER_USER;
pDMode^.dmPaperLength := H_Dot1mm;
pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;
pDMode^.dmDefaultSource := DMBIN_MANUAL;
GlobalUnlock(hDMode);
end;
end;
Printer.PrinterIndex := Printer.PrinterIndex;
end;