fastreport 如何根据字数的多少控制字体的大小

版权声明:本文为博主原创文章,遵循 CC 4.0 by-sa 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/kongzhonliuxing/article/details/80276528

项目中用到fastreport 进行套打,由于字符数量的多少不知道,所以设定了字体的大小有时候不能将内容打权,
这时候我们可以根据预先设定的字体,测试 字符数量和全部打印出来时设置的字体大小,然后在代码中对字体
的大小进行控制。

代码块

  private void CompareFontSize(TableCell cell)
    {
      if(cell.Text.Length<=27)
      {  
        cell.Font=ChangeFontSize(cell.Font,9);
      }
      else if(cell.Text.Length<=39)
      {
        cell.Font=ChangeFontSize(cell.Font,8);
      } 
      else if(cell.Text.Length<=54)
      {
        cell.Font=ChangeFontSize(cell.Font,7);
      }  
      else if(cell.Text.Length<=76)
      {
        cell.Font=ChangeFontSize(cell.Font,6);
      }  
      else
      {
        cell.Font=ChangeFontSize(cell.Font,5);
      }  
    }

    private Font ChangeFontSize( Font font, float fontSize )
    {
      if (font != null)
      {
        float currentSize = font.Size;
        if (currentSize != fontSize)
        {
          font = new Font( font.Name, fontSize,font.Style, font.Unit,font.GdiCharSet, font.GdiVerticalFont);
        }
      }
      return font;
    }
展开阅读全文

如何控制图片的位置及大小.分有多少多少!!!!!

04-18

[color=#FF0000]我不知我有多少分.但是有谁能帮我解决我所提的问题我把我的分全给他.[/color][b][/b][size=24px][/size]这个论谈里面我搞不太明白,给他账号,他自己去加分.现在图片加入到EXCEL是解决了,代码在网上找的,但是图片的大小和位置无法控制,我想让图片固定在某个单元格.现在代码如下: rnrnrn rn rn<% rnset rs=server.createobject("adodb.recordset") rn sql="select * from images where 1=1" rn rs.open sql,conn,1,1 rnSet ExcelApp =CreateObject("Excel.Application") rnExcelApp.Application.Visible = True rnSet ExcelBook = ExcelApp.Workbooks.Add rnExcelBook.WorkSheets(1).cells(1,1).value ="用户表" rnExcelBook.WorkSheets(1).cells(2,1).value = "用户编号" rnExcelBook.WorkSheets(1).cells(2,2).value = "登陆名" rnExcelBook.WorkSheets(1).cells(2,3).value = "真实姓名" rnExcelBook.WorkSheets(1).cells(2,4).value = "密码" rncnt =3 rndo while not rs.eof rnExcelBook.WorkSheets(1).cells(cnt,1).value = rs("id") rnExcelBook.WorkSheets(1).cells(cnt,2).value = rs("huohao") rnExcelBook.WorkSheets(1).Pictures.Insert("C:\3.jpg").Select '[color=#FF0000]注明:我想让图片在每行的第三列.并且不能挡做别的单元格的内容.最好能固定大小. [/color]rnExcelBook.WorkSheets(1).cells(cnt,4).value ="aaaa" rnrs.movenext rncnt = cint(cnt) + 1 rnloop rn rnExcelbook.SaveAs "d:\yourfile.xls" '这个是数据导出完毕以后在D盘存成文件 rnExcelApp.Application.Quit '导出以后退出Excel rnSet ExcelApp = Nothing '注销Excel对象 rn%> rnrnrn我是生手,回复时请详细说明代码及用途. rn 论坛

没有更多推荐了,返回首页