关于表格的打印(130分)

  • 主题发起人 主题发起人 百叶窗
  • 开始时间 开始时间

百叶窗

Unregistered / Unconfirmed
GUEST, unregistred user!
 如何把如下表格进行保存、预览、打印:

+------+------+------+------+
     | 序号 | 温度 | 温差 | 备注 |
+------+------+------+------|
| 1 | 0 +------+------|
+------+------| 7 | A |
| 2 | 7 +------+------|
+------+------| 6 | A |
| 3 | 13 +------+------|
+------+------| 2 | B |
| 4 | 15 +------+------|
+------+------| 8 | A |
| 5 | 23 +------+------|
+------+------+------+------+
   本人急用,请前辈写出具体的思路及程式。
 
用报表画一下这样的表不就行啦.又简单又方便.
 
在Printer.Canvas上自己控制打印的内容和格式,可以实现任意的报表格式,不过实现麻烦
一些,还要注意不同打印机的分辨率的问题。
 
用Printer.Canvas什么表格都能打,至于分辨率,可以先取得纸张的大小即可,我的
所有表格(不少于100种),全是用Printer.Canvas打印的。
 
能不能用quickrep来实现打印 预览
 
打印到Excel!
 
你的表格为何要错位打印
用报表控件很容易实现
 
xlgrid,很好,我有心得
 
用Quickreport或者eReport
 
也可以用f1book.
 
用excel 或者 quickreport都可以啊
 
用fastreport很方便
 
最好用printer.canvas 这样比较灵活
 
显然,这是两个问题,一个是如何存储数据,一个是如何显示数据
存储数据:把温差和备注的第一行置为零和空值,其他依次下移,
温差作为一个计算字段,在数据库端实现的方法很多。
以ACCESS举例吧!
dim aa as integer
dim rec as recordset
sql="select * from tablename"
run this sql
rec=result
rec.movefirst
while not rec.eof
aa=rec.fields("temperature")
rec.movenext
rec.fields("d-temp")=rec.fields("temperature")-aa
aa=rec.fields("temperature")
wend
备注自然要手工录入。
显示时,利用EXCEL中合并单元格可以实现错位显示。
不过,在DELPHI中操作EXCEL实在不如VB方便。
 
这个玩意用 eReport 比较合适.(不是王婆卖瓜).
 
1、用Printer.Canvas什么表格都能打,至于分辨率,可以先取得纸张的大小即可
程序叫烦点
2、用控件啊。
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
791
DelphiTeacher的专栏
D
S
回复
0
查看
926
SUNSTONE的Delphi笔记
S
D
回复
0
查看
826
DelphiTeacher的专栏
D
D
回复
0
查看
934
DelphiTeacher的专栏
D
后退
顶部