关于Formula One打印格式的动态设置问题,
如纸张大小、设置横向打印等。简单例子: procedure TCxy.SetPrintFormat(mf1book: Tmf1book);
var mpagesetup:if1pagesetup;
begin
mpagesetup:=mf1book.CreateNewPageSetup;
mpagesetup.PaperSize:=F1PaperA4;
mpagesetup.Landscape:=true;
mpagesetup.FitPages:=true;
mpagesetup.AutoPageNumber:=true;
mpagesetup.CenterHoriz:=true;
mpagesetup.CenterVert:=true;
mpagesetup.Header:='';
mpagesetup.Footer:='';
mpagesetup.GridLines:=false;
mpagesetup.BlackAndWhite:=true;
mpagesetup.RowHeadings:=false;
mpagesetup.ColHeadings:=false;
mpagesetup.PrintArea:='';
mf1book.SetPageSetup(mpagesetup);
end;
如纸张大小、设置横向打印等。简单例子: procedure TCxy.SetPrintFormat(mf1book: Tmf1book);
var mpagesetup:if1pagesetup;
begin
mpagesetup:=mf1book.CreateNewPageSetup;
mpagesetup.PaperSize:=F1PaperA4;
mpagesetup.Landscape:=true;
mpagesetup.FitPages:=true;
mpagesetup.AutoPageNumber:=true;
mpagesetup.CenterHoriz:=true;
mpagesetup.CenterVert:=true;
mpagesetup.Header:='';
mpagesetup.Footer:='';
mpagesetup.GridLines:=false;
mpagesetup.BlackAndWhite:=true;
mpagesetup.RowHeadings:=false;
mpagesetup.ColHeadings:=false;
mpagesetup.PrintArea:='';
mf1book.SetPageSetup(mpagesetup);
end;
..\Delphi6\Ocx\Vci\Form1\VCF1.HLP
最好能买个cell,很好用的。
最好能买个Cell来用
http://xiegz.51.net
看看,我自己做的一个自定义报表的控件,如果觉得可以,请联系
[email protected]
你可以考虑!