通过纸张设置后,需要改变打印边界,让其边界上下均为0或很小的值...?
解决方案 »
- 急!!!!!!!!
- delphi如何实现带有渐进色的条来回的从左走到右再从右走到左,这样的进度条如何实现;
- 以前用的一个皮肤控件,现在重装系统忘记名字了.原来的程序无法编译了.请用过的帮忙告诉我一下.
- delphi中调用存储过程传参数问题。谢谢!
- 急,急,急!!快快给帮忙!
- 如何解决DevExpress QuantumGrid4.11的中文输入问题?
- 请教各位老兄:如何做一个数据库安装程序?谢谢!
- 高手拿分 2
- BitBtn的Glyph所用的位图是好几个图像合并起来的,使用起来很麻烦,而且不知道怎样设计,因为普通的ICON、BMP等在Enabled为True时能显示,但在False时就不能了,不像微软的产品这样,只要一个就搞定了,能告诉我如何处理,谢谢?
- 读写注册表权限问题
- 以前问过的问题---如何用最快的速度从一个字段中选取特定的数据?现在改了条件,难度大了好几倍,请高手进来讨论讨论。
- 在线等待!!!各位大虾,谁能解决这个问题“record/key deleted“,我送200分!!!解决必给!!!
A:
procedure TPrtPvw.GetOffsetPrinter;
var
pt: TPoint;
tmpAncho,tmpAlto: longint;
begin
Escape(hPrinter,GETPRINTINGOFFSET,0,Nil,@pt);
gOffSetLeft:=pt.X;
gOffSetTop:=pt.Y;
Escape(hPrinter,GETPHYSPAGESIZE,0,Nil,@pt);
tmpAncho:=pt.X;
tmpAlto:=pt.Y;
gOffSetRight:=tmpAncho-gOffSetLeft-Printer.PageWidth;
gOffSetBottom:=tmpAlto-gOffSetTop-Printer.PageHeight;
end;
QuickRep1.Page.TopMargin:=0 ;