1.用以下方法获取的打印机页边距的单位是什么呀,能不能转换成毫米或象素?
Margin.x :=GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX);
Margin.y :=GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY);
2.怎样去掉打印机的默认页边距?(我用的打印机是EPSON LQ 1600KIII)
Margin.x :=GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX);
Margin.y :=GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY);
2.怎样去掉打印机的默认页边距?(我用的打印机是EPSON LQ 1600KIII)
解决方案 »
- 数据库的几张表列名一样,不能改,现在关联起来怎么取某个值?
- 使用dbgrideh导出到excel的excel表,用delphi程序不能合并单元格?
- 请问大家怎么样用程序监控文件的拷贝的情况,即当有文件拷贝时就复制一份到指定的地方?
- 求教,关于toolbar界面设计的问题(急,在线等)
- 有关将主程序做成MDI Form,将dll里的窗体做成主窗体的子窗体的问题
- DBGrid问题。。。
- 刚在CSDN上发布的软件,帮我凑点人气,下载有分
- ini文件的的写入问题,大家看一下是不是我的代码有问题?
- 哪位有关于把图标等文件转换为RCDATA的编译器?
- 初学者向您请教?
- 程序发布
- 用GetDeviceCaps获取信息的问题
var
oldpt:TPoint;
... ...
Margin.x :=GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX);
Margin.y :=GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY);
SetViewportOrgex(Printer.Handle, -Margin.X, -Margin.Y,@oldpt);
... ...