请教:如何实现F1Book1的打印预览?在线等待!!! 我曾作过一个F1Book1的打印预览,但是效果不理想,我觉得是F1Book1本身的问题,我建议你还是放弃F1Book1吧! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 假设你有一个F1BOOK1,将他的数据导入到F1BOOK2中,预览显示的是F1BOOK2即可我一直都是这么做的 回复人: thinkcat(思想猫 假设你有一个F1BOOK1,将他的数据导入到F1BOOK2中,预览显示的是F1BOOK2即可我一直都是这么做的 ,可以给个例子瞅瞅吗? Formual One 可是个好东西不能因为打印预览不好就放弃了。他提供了PrintPreviewDC这些函数,需要我们自己动手了,我在琢磨呢…… 我写的函数: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.0fPositionX,fPositionY是开始位置,你设成0试试看。其他的变量看一下f1book的帮助吧。 一般分为两大类,报表工具和电子表格工具,quickreport算是报表工具,cell,formula one这些算是电子表格工具。 to: hzb(Explorer)你的程序效果其实和他自己的打印预览基本一样,都会在缩小的时候缺线。我利用了SetPrintScale和PrintPreviewDC做的,缩小的时候就不会缺线了。我希望我们继续探讨,似乎讨论这个东西的人很少。我的icq 3475212, qq 51363 Formual One 3.0 有PrintPreviewDC函数吗? 去大富翁论坛看看xureport解决了,F1book的预览问题 to xiaolei_418 () 预览存在很多的问题. 这些问题都在最新控件F1bookDraw控件中得到了最好的解决.新的控件充分利用了F1book的优点,对于缺点的方法进行重载.像打印预览,重载后完美无缺! 请访问 http://zhangxzh.diy.163.com 下载demo 最近fastreport怎么没有更新了?以前更新很频繁啊 抽像类的构造函数怎么搞 请问,如何从串口接收数据并以十六进制显示出来?? 为什么用delphi? label中如何显示多行 DBGRID的一个小问题? 昨天有关 dbgrid显示‘#’的解决方法 delphi中如何知道句柄中的值 如何将最小化的进程恢复而不改变其Z_Order? 如何让我的应用程序运行后就隐藏起来 access 与sql的问题 打开delphi如何不自动建立 project?
我一直都是这么做的
假设你有一个F1BOOK1,将他的数据导入到F1BOOK2中,预览显示的是F1BOOK2即可我一直都是这么做的 ,
可以给个例子瞅瞅吗?
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的帮助吧。
quickreport算是报表工具,cell,formula one这些算是电子表格工具。
你的程序效果其实和他自己的打印预览基本一样,都会在缩小的时候缺线。我利用了SetPrintScale和PrintPreviewDC做的,缩小的时候就不会缺线了。我希望我们继续探讨,似乎讨论这个东西的人很少。
我的icq 3475212, qq 51363
xureport解决了,F1book的预览问题
预览存在很多的问题. 这些问题都在最新控件F1bookDraw控件中得到了最好的解决.新的控件充分利用了F1book的优点,对于缺点的方法进行重载.像打印预览,重载后完美无缺! 请访问
http://zhangxzh.diy.163.com 下载demo