有空隙时你应这两个区的线条尽量靠近,可直接在属性中设置。
以下是我程序中一段代码,你看一看应该能懂的。但我这程序
是没有动态改变字体的,纸张能否改也没用过。
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;