之前根据对客户需求分析后做了一个打印的部分,用的是Tprinter.canvas直接画上去的,没有打印预览,现在客户强烈要求怎加打印预览.大大们有没有什么好办法能教下,最好有详细点的代码,我是一筹莫展,tprintbox我也不会用,先拜一拜.
解决方案 »
- 新手求救,登陆界面问题!急啊!!
- (转)看完9个笑话 顿悟9个人生道理
- 寻求版主,关于全局快捷键 一些特殊按键
- DBgrid中的记录有些字段的内容为什么不能完整显示
- 急问fastreport问题,请大家帮忙解决!!!
- 大家来分析一下这是不是delphi的bug?
- 小弟来散分的,顺便问个小问题.
- 要做一个工资管理系统,有经验的朋友给点建议,谢谢
- 在DELPHI中,SQL查询结果能否指定到一个数组中?
- 用友的明细帐,用Delphi7如何实现?
- 抽象类--〉〉〉〉为什么要有抽象类,他存在的意义是什么?? 各位指点..
- 關於水晶報表, Crpe1.Tables[0].DataPointer := CrpeDS1.DataPointer出錯?
PrintContent=^TContent; //报表信息结构
TContent=record
Inf : String;
PosX : integer;
PosY : integer;
end;
RepFrm:= TQuickRep.CreateParented(self);
repFrm.Units:=MM;
repFrm.Font.Name:= '宋体';
repFrm.Font.Size:= 10;
repFrm.Page.Length:=FPrintPageHeight; //打印纸的高度
repFrm.Page.Width:= FPrintPageWidth; //打印纸的宽度
repFrm.Page.BottomMargin:=0; //左右上下边距的设置
repFrm.Page.LeftMargin:=0;
repFrm.Page.RightMargin:=0;
repFrm.Page.TopMargin:=0; repFrm.Bands.HasTitle:= true;
repFrm.Bands.TitleBand.Height:= FPrintPageHeight;
repFrm.Bands.TitleBand.Width:= FPrintPageWidth; for i:=0 to PrintList.Count-1 do //PrintList 自己定义的打印列表
begin
tmQRLabel:=TQRLabel.Create(repFrm); // PrintContent是打印的结构
tmQRLabel.Parent:= repFrm.Bands.TitleBand;
tmQRLabel.Caption:=PrintContent(PrintList.Items[i]).Inf;
tmQRLabel.AutoStretch:= true;
tmQRLabel.WordWrap:= true;
tmQRLabel.Left:= formCmToPix(PrintContent(PrintList.Items[i]).PosX);
tmQRLabel.Top:= formCmToPix(PrintContent(PrintList.Items[i]).PosY);
end;
try
RepFrm.Preview;
finally
RepFrm.Free;
end;