如何在用代码设置F1Book的Ｃell中数据格式

Question

F1book1.setpattern(nPattern,crFG,crBG),crFG为前景颜色，crBG为背景颜色
Fibook1.setfont(...)
详细内容，delphi有帮助，右键选择workbook designer 其中的帮助有说明

Answer 1

 Meijg:
  请问你现在用的 Formula One 的版本是多少
 小弟告谢了

Answer 2

我用的是delphi 5 自带的，3.0.4

Answer 3

你知道怎么打印输出吗，
里面有个printArea怎么用，参数是什么；

Answer 4

我为参安息，出错提示，message not found, 我不装excell 是不是也可以用这个控件 

Answer 5

to Gsoft
  
 我的一个打印过程Procedure PrintReport(rptid, comp_area, rpt_type: string);
var
  vfs_type: smallint;
begin
  PreviewRptForm := TPreviewRptForm.Create(Application);
  try
    vfs_type := F1FileFormulaOne3;
    PreviewRptForm.Fone1.Read('temp.vfs', vfs_type);    PreviewRptForm.rptid := rptid;
    PreviewRptForm.rpt_type := rpt_type;
    PreviewRptForm.FillReport(comp_area);    PreviewRptForm.FOne1.Height := PreviewRptForm.ClientPanel.Height - 1;
    PreviewRptForm.FOne1.Width := PreviewRptForm.ClientPanel.Width - 1;    PreviewRptForm.FOne1.FilePrint(true);
  finally
    PreviewRptForm.Free;
  end;
end;另外，网址是：www.tidestone.com(好象是)

Answer 6

这同Excel 没有什么关系的
正确的地址是：http://www.tidestone.com/
 （我说的是对的），上面有试用板，记得是6.1 的，你看看

Answer 7

你能不能把上面你写的过程加上注释，我第一次用, 很多都不懂， previewRptForm是又建的一个新窗体吗，FOne1是什么，等等多谢了
Procedure PrintReport(rptid, comp_area, rpt_type: string);
var                    //rptid, comp_area, rpt_type这三个参数是什么  
  vfs_type: smallint;
begin
  PreviewRptForm := TPreviewRptForm.Create(Application);
  try
    vfs_type := F1FileFormulaOne3;
    PreviewRptForm.Fone1.Read('temp.vfs', vfs_type);
                              temp.vfs是哪里来的文件名吗，vfs_type是文件类型吗
                  
    PreviewRptForm.rptid := rptid;
    PreviewRptForm.rpt_type := rpt_type;
    PreviewRptForm.FillReport(comp_area);
                              // comp_area是什么
    PreviewRptForm.FOne1.Height := PreviewRptForm.ClientPanel.Height - 1;
    PreviewRptForm.FOne1.Width := PreviewRptForm.ClientPanel.Width - 1;    PreviewRptForm.FOne1.FilePrint(true);
  finally
    PreviewRptForm.Free;
  end;
end;
可以再给你加分

Answer 8

6.1 版的是30天试用版，能不能放在项目里用？
或者到一个中国的网站看看，那里有正式版的，不过要花钱买5500元
地址是：http://www.sotech.com.cn/

Answer 9

谁快快点告诉我怎么把我的F1Book 中的数据打出来呀
求求拉

Answer 10

兄弟，这些已经和清楚了
vfs_type 是读入的文件类型，formula one 3.0.4 版本的参数是F1FileFormulaOne3
fileprint 就是它的打印方法
多看帮助阿

Answer 11

to gsoft
  不好意思，我昨天不在，现在给你说明一下
 Vfs_type 你按照我的设置就行了 
    PreviewRptForm.rptid := rptid;
    PreviewRptForm.rpt_type := rpt_type;
    PreviewRptForm.FillReport(comp_area);
其中对你有用的参数就是 Comp_area 就是定义的打印区域（例如： A1:F9）
    用 FILLREPORT 填充设置该区域
    然后调用 filePrint  就行了，
    关于 我用到的参数，vfs_type 是用与文件读写的，当前报表的保存是在数据库字段中，我需要一次转换。这对大概你没什么作用，不理会就行了，明白了吗，
    MAIL: [email protected]                              

Answer 12

To Dingyi and To More
  首先向你表示感谢！！！
  我还想有问题问你,
  1。 看你写的代码可以知道你做了打印预览程序，你的PreviewRptForm
是那个预览窗体吧，我不知道怎么做，说说
  2。关于Write 和 Read 
  我在代码中写了    F1Book1.Write('c:\f1book1.vts',F1FileFormulaOne);
  可以生成一个f1book1.vts文件.可以执行。
  但有代码中写了    F1Book1.Read('c:\f1book1.vts',F1FileFormulaOne);
  却编译不过去，提示为
[Error] Unit1.pas(255): Types of actual and formal var parameters must be identical
   不知道为什么，我是按语法写的呀。
  3。有关Formula One WorkBook Designer窗口；
    这个窗口在程序执行时双击右键会激发，因为是英文，不想让用户看到，怎么才能屏
 蔽掉，用哪个Api函数。

Answer 13

to gsoft
  1. 我的PreviewRptForm 同你说的问题没有联系，只要你放一个F1book 就行了
      这样的，我用F1book来显示数据，就相当于预览了。
 
  2。 我只所以用到Write 和 Read 是因为，我的报表做为字段保存，当把字段转换为
      F1book可读的文件时候，需要先把该字段转换到临时文件，然后在用
      F1book.read 读出来，显示到F1book上
       另外你的错误在于参数选择的不对
         你可以试试  F1FileFormulaOne3  这个参数  3. 双击右键，出现 Desinger 可以采用消息屏蔽
     
     如果还不明白  13605326604
   
      OK?
        
              
     

Answer 14

to gsoft
 你怎么不给我点分啊

Answer 15

呵呵，先给你35分，，
  1。   F1Book1.Write('c:\my ducuments\f1book1.vts',F1FileFormulaOne3)
       F1Book1.Read('c:\my ducuments\f1book1.vts',F1FileFormulaOne3)
       这样写也不行，
      只可写，不可读。
  2。我们是要做成有预览那种，肯定不能拿F1Book当作预览的
  我找了一天半也没有找到有preview方法。
  有人说有FilePrintPreview.但我也没有找到。
  3。你能不能把那个屏蔽消息的代码给我， 我 Windows 函数不太会用
想要分再给你加

Answer 16

我用过f1boo做项目,如需要我可以给一部分相关代码给你.
[email protected]

Answer 17

我用过f1book做项目,如需要我可以给一部分相关代码给你.
[email protected]

Answer 18

F1BOOK 双层表头怎么做 ？  如何将两行合并一行呢 ？  急！