Delphi Excel FastReport
2016-03-07 10:09
519 查看
unit Unit1;
interface
uses
Printers,Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms,
Dialogs, ExcelXP, OleServer, StdCtrls, Grids,
Mask, RzEdit,frxDesgn,
frxClass, frxExportRTF, frxDBSet, frxExportPDF;
type papgxy=record
l,t,r,b:Extended;
end;
type bktype =record // 边框
line:boolean;
color:integer;
width:Extended;
end;
type txttpye =record
text:string;
fontcolor, fontSize:integer;
FontBold,FontItalic:boolean;
thi,tvi:integer;//文字排列位置
fontstyle, fontname:string;
fontun,fontstr:boolean;
bcolor:integer;
end;
type cell= record
t,L,h,w :Extended ;
row,col,row2:integer;
txt:txttpye;
leftb,topb,Bottomb,Rightb:bktype;// 边框
k:integer;
end;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Ea1: TExcelApplication;
Es1: TExcelWorksheet;
fr1: TfrxReport;
Memo1: TMemo;
Button4: TButton;
Button5: TButton;
Ed2: TEdit;
Ed1: TEdit;
Od1: TOpenDialog;
sd1: TSaveDialog;
Button6: TButton;
ed3: TEdit;
Button7: TButton;
Button8: TButton;
Cs1: TComboBox;
Button9: TButton;
fd3: TfrxDBDataset;
fd2: TfrxDBDataset;
fd1: TfrxDBDataset;
Button3: TButton;
frxPDFExport1: TfrxPDFExport;
procedure FormCreate(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button7Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var Form1: TForm1;
implementation
{$R *.dfm}
function color_i(i:integer):tcolor; //颜色转换
var c1: tcolor;
begin
case i of
1 : c1:=$000000;
2 : c1:=$FFFFFF;
3 : c1:=$0000FF;
4 : c1:=$00FF00;
5 : c1:=$FF0000;
6 : c1:=$00FFFF;
7 : c1:=$FF00FF;
8 : c1:=$FFFF00;
9 : c1:=$000080;
10 : c1:=$008000;
11 : c1:=$800000;
12 : c1:=$008080;
13 : c1:=$800080;
14 : c1:=$808000;
15 : c1:=$C0C0C0;
16 : c1:=$808080;
17 : c1:=$FF9999;
18 : c1:=$663399;
19 : c1:=$CCFFFF;
20 : c1:=$FFFFCC;
21 : c1:=$660066;
22 : c1:=$8080FF;
23 : c1:=$CC6600;
24 : c1:=$FFCCCC;
25 : c1:=$800000;
26 : c1:=$FF00FF;
27 : c1:=$00FFFF;
28 : c1:=$FFFF00;
29 : c1:=$800080;
30 : c1:=$000080;
31 : c1:=$808000;
32 : c1:=$FF0000;
33 : c1:=$FFCC00;
34 : c1:=$FFFFCC;
35 : c1:=$CCFFCC;
36 : c1:=$99FFFF;
37 : c1:=$FFCC99;
38 : c1:=$CC99FF;
39 : c1:=$FF99CC;
40 : c1:=$99CCFF;
41 : c1:=$FF6633;
42 : c1:=$CCCC33;
43 : c1:=$00CC99;
44 : c1:=$00CCFF;
45 : c1:=$0099FF;
46 : c1:=$0066FF;
47 : c1:=$996666;
48 : c1:=$969696;
49 : c1:=$663300;
50 : c1:=$669933;
51 : c1:=$003300;
52 : c1:=$003333;
53 : c1:=$003399;
54 : c1:=$663399;
55 : c1:=$993333;
56 : c1:=$333333;
end;
Result:=c1;
end;
function cd(i:Extended):Extended;
begin
Result:=1.34*i;
end;
procedure papg_set(PageSet:Variant;P:Tfrxreportpage);
var a:integer;
begin
p.LeftMargin :=PageSet.LeftMargin/2.8348;
p.TopMargin :=PageSet.topMargin/2.8348;
p.RightMargin :=PageSet.RightMargin/2.8348;
p.BottomMargin :=PageSet.BottomMargin/2.8348;
p.PrintOnPreviousPage:=True ; //合并打印
if PageSet.Orientation=2
then p.Orientation:=poLandscape
else p.Orientation:=poPortrait;
p.PaperSize:=PageSet.PaperSize;
{
if PageSet.PaperSize=xlPaperA3 then p.PaperSize:=DMPAPER_A3;
if PageSet.PaperSize=xlPaperA4 then p.PaperSize:=DMPAPER_A4;
if PageSet.PaperSize=xlPaperA5 then p.PaperSize:=DMPAPER_A5;
}
end;
function cell_du(row,col:integer;o1:integer;row2:integer):cell;
var mm:cell;
ms :boolean;
fontsyle1:string;
r2,c2:integer;
begin
with form1.Es1 do
begin
mm.txt.text :=Cells.Item[row,col]; // 内容
mm.t := Cells.Item[row,col].top; //顶
mm.l := cells.Item[row,col].left; //左
mm.k:=0;
r2:= Cells.Item[row,col].MergeArea.Rows.Count;
mm.row2 :=R2;
if (o1>=1) and (col>=1) then
mm.l:= cells.Item[row,col].left-cells.Item[row,2].left; //左
if (o1>=1) and (row>1)and (row>=row2) then
mm.t:= cells.Item[row,col].top-cells.Item[row2,1].top; //顶
ms:= cells.Item[row,col].MergeCells; //检查是否为 合并单位
if ms then
begin
r2:= Cells.Item[row,col].MergeArea.Rows.Count;
c2:= Cells.Item[row,col].MergeArea.Columns.Count;
mm.h := Cells.Item[row+r2,col].top-Cells.Item[row,col].top; //高度
mm.w := Cells.Item[row,col+c2].left-Cells.Item[row,col].left;//宽度
end else
begin
mm.h:= Cells.Item[row,col].height; //高度
mm.w:= Cells.Item[row,col].width; //宽度
end;
if o1=3 then
begin
mm.txt .FontBold := Cells.Item[row,col].font.Bold;
mm.txt .FontItalic:= Cells.Item[row,col].Font.Italic;
mm.txt .thi:=Cells.Item[row,col].HorizontalAlignment;
mm.txt .tvi:=Cells.Item[row,col].VerticalAlignment;
mm.txt.fontname := Cells.Item[row,col].font.name; // 字名称
mm.txt.fontSize := Cells.Item[row,col].font.Size; // 字大小
mm.txt.fontcolor:= Cells.Item[row,col].font.ColorIndex;// 字颜色
if mm.txt.fontcolor<=0 then mm.txt.fontcolor :=1;
//mm.fontstyle:= cells.Item[row,col].FontStyle; //字格式
mm.txt.bcolor:= Cells.Item[row,col].Interior.ColorIndex;// 底颜色
if mm.txt.bcolor<=0 then mm.txt.bcolor :=2;
//左1
If cells.Item[row,col].Borders[xlEdgeLeft].LineStyle = xlContinuous
Then mm.k := 1 ;
// 右2
If cells.Item[row,col].Borders[xlEdgeRight].LineStyle = xlContinuous
Then mm.k := mm.k + 2 ;
// 上4
If cells.Item[row,col].Borders[xlEdgeTop].LineStyle = xlContinuous
Then mm.k := mm.k + 4 ;
// '下8
If cells.Item[row,col].Borders[xlEdgeBottom].LineStyle = xlContinuous
Then mm.k := mm.k + 8 ;
end;
Result:=mm;
end;
end;
procedure txt_xie(j,i:integer;mm:cell);
var e:TfrxMemoView; //text
begin
e:= TfrxMemoView.Create(form1.fr1.Pages[1]);
e.Left:=cd(mm.L);
e.top:=cd(mm.t);
e.Height:=cd(mm.h);
e.Width :=cd(mm.w);
e.Name :='c'+ inttostr(j)+'r'+inttostr(i);
e.Text :=mm.txt.text;//+' * '+ e.Name ;
e.Font.Size :=mm.txt.fontSize ;
e.Font.Name :=mm.txt.fontname ;
e.Font.Color:= color_i(mm.txt.fontcolor);
e.Color := color_i(mm.txt.bcolor);
e.Frame.Typ:=[ftLeft,ftRight,ftTop,ftBottom];
end;
procedure pic2_xie(j,i:integer;mm:cell;pic:TfrxPictureView);
begin
pic.Left:=cd(mm.L);
pic.top:=cd(mm.t);
pic.Height:=cd(mm.h);
pic.Width :=cd(mm.w);
pic.Name :=pic.Parent.Name+inttostr(j)+'_'+inttostr(i);
//e.Text :=mm.txt.text ;//+' * '+ e.Name;
case mm.k of
1:pic.Frame.Typ :=[ftLeft ];
2:pic.Frame.Typ :=[ftRight ];
3:pic.Frame.Typ :=[ftLeft,ftRight ];
4:pic.Frame.Typ :=[ftTop ];
5:pic.Frame.Typ :=[ftLeft,ftTop ];
6:pic.Frame.Typ :=[ftRight,ftTop ];
7:pic.Frame.Typ :=[ftLeft,ftRight,ftTop ];
8:pic.Frame.Typ :=[ftBottom ];
9:pic.Frame.Typ :=[ftLeft,ftBottom ];
10:pic.Frame.Typ :=[ftRight,ftBottom ];
11:pic.Frame.Typ :=[ftLeft,ftRight,ftBottom
];
12:pic.Frame.Typ :=[ftTop,ftBottom ];
13:pic.Frame.Typ :=[ftLeft,ftTop,ftBottom
];
14:pic.Frame.Typ :=[ftRight,ftTop,ftBottom
];
15:pic.Frame.Typ :=[ftLeft,ftRight,ftTop,ftBottom];
else
pic.Frame.Typ :=[];
end;
end;
procedure txt2_xie(j,i:integer;mm:cell;e:TfrxMemoView);
begin
e.Left:=cd(mm.L);
e.top:=cd(mm.t);
e.Height:=cd(mm.h);
e.Width :=cd(mm.w);
e.Name :=E.Parent.Name+inttostr(j)+'_'+inttostr(i);
e.Text :=mm.txt.text ;//+' * '+ e.Name ;
e.Font.Size :=mm.txt.fontSize ;
e.Font.Name :=mm.txt.fontname ;
e.Font.Style :=[];
if mm.txt.FontBold
then e.Font.Style:= [fsBold];
if mm.txt.FontItalic
then e.Font.Style:=e.Font.Style + [fsItalic];
case mm.txt.tvi of //垂直排版
-4108:e.VAlign:=vaCenter;
-4107:e.VAlign:=vaBottom ;
else
e.VAlign:=vatop ;
end;
case mm.txt.thi of //水平排版
-4108:e.HAlign := haCenter;
-4152:e.HAlign := haRight;
1 :e.HAlign := haRight;
else
e.HAlign := haLeft;
end;
e.Font.Color:= color_i(mm.txt.fontcolor); //字颜色
e.Color := color_i(mm.txt.bcolor); //背景颜色
case mm.k of
1:e.Frame.Typ:=[ ftLeft];
2:e.Frame.Typ:=[ ftRight];
3:e.Frame.Typ:=[ ftLeft,ftRight];
4:e.Frame.Typ:=[ ftTop];
5:e.Frame.Typ:=[ ftLeft,ftTop];
6:e.Frame.Typ:=[ ftRight,ftTop];
7:e.Frame.Typ:=[ ftLeft,ftRight,ftTop];
8:e.Frame.Typ:=[ ftBottom];
9:e.Frame.Typ:=[ ftLeft,ftBottom];
10:e.Frame.Typ:=[ ftRight,ftBottom];
11:e.Frame.Typ:=[ ftLeft,ftRight,ftBottom];
12:e.Frame.Typ:=[ ftTop,ftBottom];
13:e.Frame.Typ:=[ ftLeft,ftTop,ftBottom];
14:e.Frame.Typ:=[ ftRight,ftTop,ftBottom];
15:e.Frame.Typ:=[ ftLeft,ftRight,ftTop,ftBottom];
else
e.Frame.Typ :=[];
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ed1.Text :=ExtractFilePath(ParamStr(0))+'模板.xls';
ed2.text:=ExtractFilePath(ParamStr(0));
ed3.Text :='ont.fr3';
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if od1.Execute then
begin
ed1.Text := od1.FileName ;
Button8.Click ;
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
if sd1.Execute then
begin
ed2.Text:=ExtractFilePath(sd1.FileName) ;
if pos('.fr3',sd1.FileName)>0
then
ed3.Text :=ExtractFileName(sd1.FileName)
else
ed3.Text :=ExtractFileName(sd1.FileName)+'.fr3';
end;
end;
{ vba
XlPaperSize 可为下面 XlPaperSize 常量之中的一个。
xlPaper11x17. 11 in. x 17 in.
xlPaperA4. A4 (210 mm x 297 mm)
xlPaperA5. A5 (148 mm x 210 mm)
xlPaperB5. A5 (148 mm x 210 mm)
xlPaperDsheet. D size sheet
xlPaperEnvelope11. Envelope #11 (4-1/2 in. x 10-3/8 in.)
xlPaperEnvelope14. Envelope #14 (5 in. x 11-1/2 in.)
xlPaperEnvelopeB4. Envelope B4 (250 mm x 353 mm)
xlPaperEnvelopeB6. Envelope B6 (176 mm x 125 mm)
xlPaperEnvelopeC4. Envelope C4 (229 mm x 324 mm)
xlPaperEnvelopeC6. Envelope C6 (114 mm x 162 mm)
xlPaperEnvelopeDL. Envelope DL (110 mm x 220 mm)
xlPaperEnvelopeMonarch. Envelope Monarch (3-7/8 in. x 7-1/2 in.)
xlPaperEsheet. E size sheet
xlPaperFanfoldLegalGerman. German Legal Fanfold (8-1/2 in. x 13 in.)
xlPaperFanfoldUS. U.S. Standard Fanfold (14-7/8 in. x 11 in.)
xlPaperLedger. Ledger (17 in. x 11 in.)
xlPaperLetter. Letter (8-1/2 in. x 11 in.)
xlPaperNote. Note (8-1/2 in. x 11 in.)
xlPaperStatement. Statement (5-1/2 in. x 8-1/2 in.)
xlPaperUser. 用户自己定义
xlPaper10x14. 25.40 cm. x 35.56 cm.
xlPaperA3. A3 (297 mm x 420 mm)
xlPaperA4Small. A4 Small (210 mm x 297 mm)
xlPaperB4. B4 (250 mm x 354 mm)
xlPaperCsheet. C size sheet
xlPaperEnvelope10. Envelope #10 (4-1/8 in. x 9-1/2 in.)
xlPaperEnvelope12. Envelope #12 (4-1/2 in. x 11 in.)
xlPaperEnvelope9. Envelope #9 (3-7/8 in. x 8-7/8 in.)
xlPaperEnvelopeB5. Envelope B5 (176 mm x 250 mm)
xlPaperEnvelopeC3. Envelope C3 (324 mm x 458 mm)
xlPaperEnvelopeC5. Envelope C5 (162 mm x 229 mm)
xlPaperEnvelopeC65. Envelope C65 (114 mm x 229 mm)
xlPaperEnvelopeItaly. Envelope (110 mm x 230 mm)
xlPaperEnvelopePersonal. Envelope (3-5/8 in. x 6-1/2 in.)
xlPaperExecutive. Executive (7-1/2 in. x 10-1/2 in.)
xlPaperFanfoldStdGerman. German Legal Fanfold (8-1/2 in. x 13 in.)
xlPaperFolio. Folio (8-1/2 in. x 13 in.)
xlPaperLegal. Legal (8-1/2 in. x 14 in.)
xlPaperLetterSmall. Letter Small (8-1/2 in. x 11 in.)
xlPaperQuarto. Quarto (215 mm x 275 mm)
xlPaperTabloid. Tabloid (11 in. x 17 in.)
}
procedure TForm1.Button8Click(Sender: TObject);
var b,a:string;
i,j,k,n:integer;
begin
ea1.Connect;
ea1.Workbooks.Open(ed1.Text ,null,null,null,null,
null,null,null,null,null,null,null,null,null,null,0);
cs1.Items.Clear ;
k:=ea1.Workbooks[ExtractFileName(ed1.Text)].Sheets.Count;
for j:=1 to k do
begin
es1.ConnectTo(ea1.Workbooks[ExtractFileName(ed1.Text)].Worksheets[j] as ExcelWorksheet);
b:=es1.Name;
cs1.Items.Add(b);
end;
cs1.Text :=cs1.Items.Strings[0];
Button9.Enabled:=true;
end;
procedure TForm1.Button9Click(Sender: TObject);
var
PageSet:OLEVariant;
i,j,k :integer;
frtemp: TfrxReport;
mm1,mm:cell;
r11,c11,r1:integer;
row,col:integer;
e :TfrxMemoView; // text 文字框
pic:TfrxPictureView; // 图片框
pt:TfrxReportTitle;
pf:TfrxReportSummary;
ht:TfrxPageHeader;
hf:TfrxPageFooter;
md:TfrxMasterData;
Mxd:TfrxDetailData;
sd:TfrxSubdetailData;
P:Tfrxreportpage;
tempage:TfrxReportPage;
kk:integer;
Designer: TfrxDesignerForm;//
begin
frtemp:=TfrxReport.Create(form1);
// frtemp.DataSets.Add(fd1);
// frtemp.DataSets.Add(fd2);
// frtemp.DataSets.Add(fd3);
tempage:=TfrxReportPage.Create(frtemp);
tempage.NAME:='page1';
P:=Tfrxreportpage(tempage);
es1.ConnectTo(ea1.Workbooks
[ExtractFileName(ed1.Text)].Worksheets[cs1.text ] as ExcelWorksheet);
PAGESET:=ES1.PageSetup;
papg_set(PAGESET,p);
PAGESET:=UnAssigned;
col :=es1.UsedRange[1].Columns.Count ; //excel 的列
row :=es1.UsedRange[1].Rows.Count; //excel 的行
for k:=1 to row do
begin
r1:= es1.Cells.Item[k,1].MergeArea.Row;//s.Count;
if r1=k then
begin
mm:= cell_du(k,1,0,0);
if mm.txt.text ='表头'
then begin
pt:= TfrxReportTitle.Create(tempage);
pt.Height:=cd(mm.h);
pt.Name :='pt';//'ban'+inttostr(k);
for i:=k to k+mm.row2-1 do //行
for j:=2 to col do //列
begin
r11:= es1.Cells.Item[i,j].MergeArea.Row;//s.Count;
c11:= es1.Cells.Item[i,j].MergeArea.Column;//s.Count;
if (r11=I) and (c11=J) then
begin
mm1:= cell_du(i,j,3,k);
if mm1.txt.text='{[图片]}'
then begin
pic:= TfrxPictureView.Create(pt);
pic2_xie(i,j,mm1,pic);
end else
begin
e:= TfrxMemoView.Create(pt);
txt2_xie(i,j,mm1,e);
end;
end;
end;
end;
if mm.txt.text ='页头'
then begin
ht:= TfrxPageHeader.Create(tempage);
ht.Height:=cd(mm.h);
ht.Name :='HT';
for i:=k to k+mm.row2-1 do //行
for j:=2 to col do //列
begin
r11:= es1.Cells.Item[i,j].MergeArea.Row;//s.Count;
c11:= es1.Cells.Item[i,j].MergeArea.Column;//s.Count;
if (r11=I) and (c11=J) then
begin
mm1:= cell_du(i,j,3,k); //读 excel cell的文字
if mm1.txt.text='{[图片]}'
then begin
pic:= TfrxPictureView.Create(HT);
pic2_xie(i,j,mm1,pic);
end else
begin
e:= TfrxMemoView.Create(HT);
txt2_xie(i,j,mm1,e);
end;
// e:= TfrxMemoView.Create(HT);
// txt2_xie(i,j,mm1,e);
end;
end;
end;
if mm.txt.text ='页脚'
then begin
hf:=TfrxPageFooter.Create(tempage);
hf.Height:=cd(mm.h);
hf.Name :='HF';
for i:=k to k+mm.row2-1 do //行
for j:=2 to col do //列
begin
r11:= es1.Cells.Item[i,j].MergeArea.Row;//s.Count;
c11:= es1.Cells.Item[i,j].MergeArea.Column;//s.Count;
if (r11=I) and (c11=J) then
begin
mm1:= cell_du(i,j,3,k);
if mm1.txt.text='{[图片]}'
then begin
pic:= TfrxPictureView.Create(HF);
pic2_xie(i,j,mm1,pic);
end else
begin
e:= TfrxMemoView.Create(HF);
txt2_xie(i,j,mm1,e);
end;
//e:= TfrxMemoView.Create(HF);
//txt2_xie(i,j,mm1,e);
end;
end;
end;
TRY
if mm.txt.text ='主数据'
then begin
md:=TfrxMasterData.Create(tempage);
md.Height:=cd(mm.h);
frtemp.DataSets.Add(fd1);
md.Name :='MD';
md.DataSet:=fd1;
MD.TOP:=MM.T;
//md.DataSetName :='mda';
memo1.Lines.Text := tempage.DataSetName;
//.DataSet.
for i:=k to k+mm.row2-1 do //行
for j:=2 to col do //列
begin
r11:= es1.Cells.Item[i,j].MergeArea.Row;//s.Count;
c11:= es1.Cells.Item[i,j].MergeArea.Column;//s.Count;
if (r11=I) and (c11=J) then
begin
mm1:= cell_du(i,j,3,k);
if mm1.txt.text='{[图片]}'
then begin
pic:= TfrxPictureView.Create(MD);
pic2_xie(i,j,mm1,pic);
end else
begin
e:= TfrxMemoView.Create(MD);
txt2_xie(i,j,mm1,e);
end;
// e:= TfrxMemoView.Create(MD);
//txt2_xie(i,j,mm1,e);
end;
end;
end;
if mm.txt.text ='明细数据'
then begin
Mxd:=TfrxDetailData.Create(tempage);
Mxd.Height:=cd(mm.h);
Mxd.Name :='MXD';
frtemp.DataSets.Add(fd2);
MXD.TOP:=MM.T;
mxd.DataSet:=fd2;
for i:=k to k+mm.row2-1 do //行
for j:=2 to col do //列
begin
r11:= es1.Cells.Item[i,j].MergeArea.Row;//s.Count;
c11:= es1.Cells.Item[i,j].MergeArea.Column;//s.Count;
if (r11=I) and (c11=J) then
begin
mm1:= cell_du(i,j,3,k);
if mm1.txt.text='{[图片]}'
then begin
pic:= TfrxPictureView.Create(MXD);
pic2_xie(i,j,mm1,pic);
end else
begin
e:= TfrxMemoView.Create(MXD);
txt2_xie(i,j,mm1,e);
end;
// e:= TfrxMemoView.Create(MXD);
// txt2_xie(i,j,mm1,e);
end;
end;
end;
if mm.txt.text ='子数据'
then begin
sd:=TfrxSubdetailData.Create(tempage);
sd.Height:=cd(mm.h);
sd.Name :='SD';
frtemp.DataSets.Add(fd3);
sd.DataSet:=fd3;
SD.TOP:=MM.T;
for i:=k to k+mm.row2-1 do //行
for j:=2 to col do //列
begin
r11:= es1.Cells.Item[i,j].MergeArea.Row;//s.Count;
c11:= es1.Cells.Item[i,j].MergeArea.Column;//s.Count;
if (r11=I) and (c11=J) then
begin
mm1:= cell_du(i,j,3,k);
if mm1.txt.text='{[图片]}'
then
begin
pic:= TfrxPictureView.Create(SD);
pic2_xie(i,j,mm1,pic);
end
else
begin
e:= TfrxMemoView.Create(SD);
txt2_xie(i,j,mm1,e);
end;
//e:= TfrxMemoView.Create(SD);
//txt2_xie(i,j,mm1,e);
end;
end;
end;
if mm.txt.text ='表合计' then
begin
pf:=TfrxReportSummary.Create(tempage);
pf.Height:=cd(mm.h);
pf.Name :='PF';
for i:=k to k+mm.row2-1 do //行
for j:=2 to col do //列
begin
r11:= es1.Cells.Item[i,j].MergeArea.Row;//s.Count;
c11:= es1.Cells.Item[i,j].MergeArea.Column;//s.Count;
if (r11=I) and (c11=J) then
begin
mm1:= cell_du(i,j,3,k);
if mm1.txt.text='{[图片]}'
then begin
pic:= TfrxPictureView.Create(PF);
pic2_xie(i,j,mm1,pic);
end else
begin
e:= TfrxMemoView.Create(PF);
txt2_xie(i,j,mm1,e);
end;
//e:= TfrxMemoView.Create(pF);
//txt2_xie(i,j,mm1,e);
end;
end;
end;
except
SHOWMESSAGE('错误出如今 K='+INTTOSTR(K)+' I='+INTTOSTR(I)+ ' JC='+INTTOSTR(I) )
END;
end;
end;
// frtemp.SetProperty()
//.setpr
frtemp.DesignReport();
frtemp.SaveToFile(ed2.Text +ed3.Text);
frtemp.Free;
fr1.LoadFromFile(ed2.Text +ed3.Text);
//fr1.DesignPreviewPage;
end;
{
ver:
aaaa:OLEVariant
ExcelApp.activeworkbook.close;
ExcelApp.Quit;
ExcelApp:=UnAssigned;
}
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
es1.Disconnect;
ea1.Quit ;
ea1.Disconnect ;
end;
procedure TForm1.Button7Click(Sender: TObject);
var i:Integer;
begin
fr1.DesignReport();
end;
procedure TForm1.Button2Click(Sender: TObject); //连续打印2个报表
begin
// fr1.LoadFromFile(ed2.Text +ed3.Text);
fr1.LoadFromFile('D:\excel\新建目录 (2)\1.fr3');
fr1.PrepareReport(True );
fr1.LoadFromFile('D:\excel\新建目录 (2)\3.fr3');
fr1.PrepareReport(False );
fr1.ShowPreparedReport ;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
fr1.ShowReport(True );
end;
procedure TForm1.Button3Click(Sender: TObject);
var i:Integer ;
p : TfrxReportPage;
begin //3个报表连续 合并
fr1.LoadFromFile('D:\excel\新建目录 (2)\4.fr3');
fr1.PrepareReport(True);
fr1.LoadFromFile('D:\excel\新建目录 (2)\1.fr3');
fr1.PrepareReport(false);
p := TfrxReportPage(fr1.Objects[1]);
p.PrintOnPreviousPage :=True;
fr1.DesignReport();
fr1.LoadFromFile('D:\excel\新建目录 (2)\3.fr3');
fr1.PrepareReport(False);
p := TfrxReportPage(fr1.Objects[1]);
p.PrintOnPreviousPage :=True;
fr1.DesignReport();
{ i:= fr1.PreviewPages.Count;
ShowMessage(IntToStr(i));
fr1.PreviewPages.Page[0].PrintOnPreviousPage:=True;
}
fr1.DesignReport();
p := TfrxReportPage(fr1.Objects[1]);
p.PrintOnPreviousPage :=True;
p := TfrxReportPage(fr1.Objects[1]);
p.PrintOnPreviousPage :=True;
fr1.ShowPreparedReport ;
end;
end.
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- Delphi word编辑
- Delphi 操作word 表格
- delphi 设置表格样式。
- delphi通过OLE对word进行单元格合并操作
- Delphi 6常用日期与时间函数
- Delphi常用日期函数
- delphi中Message消息的使用方法
- 现在, Delphi 的多线程已经非常易用了!
- Delphi实现截屏存盘的方法
- Why we need interfaces in Delphi
- TMsgThread, TCommThread -- 在delphi线程中实现消息循环（105篇博客，好多研究消息的文章）
- 深入Delphi -- Windows 消息机制
- Delphi -- 创建 桌面、发送到...、快速启动栏、开始菜单、程序菜单、右键菜 单
- 关于Delphi中的字符串的浅析（瓢虫大作，里面有内存错误的举例）
- String[255]在高版本Delphi里还是被解释成Byte，总体长度256，使用StrPCopy可以给Array String拷贝字符串（内含许多实验测试）
- 外国的Delphi网站
- Delphi word
- delphi 数据导出到word
- Delphi制作DLL
- Delphi RichEdit 读取剪切板