请教：如何实现F1Book1的打印预览？在线等待！！！

Question

我曾作过一个F1Book1的打印预览，但是效果不理想，我觉得是F1Book1本身的问题，我建议你还是放弃F1Book1吧！

Answer 1

假设你有一个F1BOOK1，将他的数据导入到F1BOOK2中，预览显示的是F1BOOK2即可
我一直都是这么做的

Answer 2

回复人： thinkcat(思想猫
  假设你有一个F1BOOK1，将他的数据导入到F1BOOK2中，预览显示的是F1BOOK2即可我一直都是这么做的 ,
可以给个例子瞅瞅吗?
 
 

Answer 3

Formual One 可是个好东西不能因为打印预览不好就放弃了。他提供了PrintPreviewDC这些函数，需要我们自己动手了，我在琢磨呢……

Answer 4

我写的函数：
procedure TFrm_printpreview.DisplayPreview ;
var
 nOutPage : integer;
begin
 ScrollBox1.Repaint;
// iPosition := 0;
// rScale := StrToInt(Combobox1.text)/100;
 nOutPage  := f1book.PrintPreviewEx(ScrollBox1.Handle,fPositionX,fPositionY,
    round( Printer.PageWidth * screen.PixelsPerInch*fScale /1440),
    round(Printer.PageHeight * screen.PixelsPerInch*fScale /1440),fPageToPrint);
 if AllPageCount = 0 then AllPageCount := nOutPage;
 StatusBar1.Panels.Items[0].Text :=
    format('打印预览 第%s页 共%s页',[IntToStr(fPageToPrint),IntToStr(nOutPage)]);
end;
这个函数基于f1book6.0
fPositionX,fPositionY是开始位置，你设成0试试看。其他的变量看一下f1book的帮助吧。

Answer 5

一般分为两大类，报表工具和电子表格工具，
quickreport算是报表工具，cell,formula one这些算是电子表格工具。

Answer 6

to: hzb(Explorer)
你的程序效果其实和他自己的打印预览基本一样，都会在缩小的时候缺线。我利用了SetPrintScale和PrintPreviewDC做的，缩小的时候就不会缺线了。我希望我们继续探讨，似乎讨论这个东西的人很少。
我的icq 3475212, qq 51363

Answer 7

Formual One 3.0 有PrintPreviewDC函数吗？

Answer 8

去大富翁论坛看看
xureport解决了，F1book的预览问题

Answer 9

to xiaolei_418 () 
     预览存在很多的问题. 这些问题都在最新控件F1bookDraw控件中得到了最好的解决.新的控件充分利用了F1book的优点,对于缺点的方法进行重载.像打印预览,重载后完美无缺!   请访问
 http://zhangxzh.diy.163.com    下载demo