Delphi程序中应该在哪里用什么方法自定义打印纸尺寸?我试了通过DevMode来实现,未遂,哪位大侠能帮帮我?????
解决方案 »
- 如何打开dbf文件
- 关于quickrep控件的问题。请熟悉的朋友看下。
- 怎么样以独占方式打开ACCESS数据库?
- 菜鸟求救,不在同一个局域网内的两台机器,pc-1(adsl-1)想访问pc-2(adsl-2)的sql-server,应如何实现?不胜感激~~~~~~~~~
- com+的小问题,高手快来
- 能不能编一个开机后就拨号连接上网的程序?
- some info in csdn
- 如何最小化到任务栏呢?
- Combobox方面的 小问题
- 请问大虾“回归测试”的概念是什么?请高人讲解。像“单元测试”,“集成测试”,“验收测试”等等的定义分别是什么,软件工程中那个阶段进行那种测试
- image组件
- delphi5中如何拷贝文件?
用程序设置打印纸张类型:var
Device:Array[0..cchDeviceName-1] of Char;
Driver:Array[0..(MAX_PATH-1)] of Char;
Port:Array[0..32] of Char;
hDMode:THandle;
pDMode:PDevMode;
begin
Printer.GetPrinter(Device,Driver,Port,hDMode);
if hDMode<>0 then
begin
pDMode:=GlobalLock(hDMode);
if pDMode<>nil then
begin
pDMode^.dmPaperSize:=DMPAPER_A5;
pDMode^.dmFields:=pDMode^.dmFields or DM_PAPERSIZE;
GlobalUnLock(hDMode);
end;
end;
end;
打印机(EpsonLQ1600K3,支持宽行打印的,)的打印范围和走纸长度
还是不变,感谢回复,还有其他的办法吗?或者还有什么要特别注意的地方吗?
怎么能让它生效或是出现在打印机属性的纸张大小
选择中呢?