问题较多,大洋也。打印时ColumnHeader区与Datail区的空隙、字体设置、纸张大小设置、页码范围如何解决?(100分)

  • 主题发起人 主题发起人 zhang_qg
  • 开始时间 开始时间
Z

zhang_qg

Unregistered / Unconfirmed
GUEST, unregistred user!
打印及预览时ColumnHeader区与Datail区出现空隙,已有人提过类似
问题,但尚未解决。另外如何实现打印时动态设置报表字体、纸张大小、
打印的页码范围。
望各位高手竞相献计,夺得此一百大洋。小可在此写过了。










 
你是用qr吗?
 
Yes.我用的是qr Version3.0.有解决办法码?wuyi兄长.
 
有空隙时你应这两个区的线条尽量靠近,可直接在属性中设置。
以下是我程序中一段代码,你看一看应该能懂的。但我这程序
是没有动态改变字体的,纸张能否改也没用过。
var
rep :Tqrlistform;
begin
rep := TQRListForm.Create(application);
PrintDialog1.MinPage := 1;
PrintDialog1.FromPage := 1;
PrintDialog1.MaxPage := REP.proflistrep.Printer.PageCount;
REP.QRLabel13.Caption := '共'+TRIMLEFT(INTTOSTR(PrintDialog1.MaxPage))+'页)';
PrintDialog1.ToPage := REP.proflistrep.Printer.PageCount;
PrintDialog1.Options := PrintDialog1.Options + [poPageNums, poSelection];
// PrintDialog1.MaxPage := QuickRep1.PageNumber;
if PrintDialog1.Execute then
begin
rep.proflistrep.PrinterSettings.PrinterIndex := printer.PrinterIndex;
rep.proflistrep.PrinterSettings.FirstPage := PrintDialog1.FromPage;
rep.proflistrep.PrinterSettings.LastPage := PrintDialog1.ToPage;
rep.proflistrep.PrinterSettings.Copies := PrintDialog1.Copies;
rep.proflistrep.Print;
end;
rep.Free;
 
wuyi兄长:
能否请您把解决空隙的方法说详细一点,哪些线条?是QRLabel、QRDBText和
QRShape吗?还是两个QRBand?如何靠近?还有如何解决预览时的字符紊乱问题?
解决这两个问题,100大洋奉献给您,并带上我的谢意。
 
这100大洋该给谁呢?问题我自己已经解决,还是给wuyi兄长吧,因为毕竟他为我解决了
一个问题。大家不要眼红呀。
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部