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.
转载于:https://www.cnblogs.com/bhlsheji/p/5249569.html
相关资源：delphi+fastreport+excel