当前位置:编程学习 > VB >>

高分找专家帮忙解决VB的多列打印问题

想实现下面的效果,请高手指点:     
    学号   姓名     学号     姓名
  00001   张三      00002    李四
现在只能打印一列 
我用的是数据环境DataEnvironmentphototable与
数据报表strphototable
我已经用API实现横向打印,但能打印一列,现在是想打印多列.
http://topic.csdn.net/t/20060929/21/5057772.html在这个地方说太简单了但没有说具体做法,请高手们指点.对了马上给分    --------------------编程问答-------------------- 用 ActiveReport,在 Detail 段落中放一组{学号,姓名}字段,然后设置 Detail 的属性
·ColumnCount 修改为你需要的列数
·ColumnDirection 决定是先列后行还是先行后列的打印次序,自己选 --------------------编程问答-------------------- 上面的帖子我看了下:是利用控件绑定数据库
我猜的
你也可以绑定,就OK了
--------------------编程问答-------------------- ActiveReport这个是不是个打印插件?如果是可不可以发一个给我,邮件jwc_cs@126.com --------------------编程问答-------------------- 安装 VB6 时自动安装 Active Report,在工程中与 Form/Class/Module 等是相同等级,可以通过 Project\Add Data Dynamics ActiveReports 菜单添加。 --------------------编程问答-------------------- 我马上试一下 --------------------编程问答-------------------- 中文是什么意思呀,我没有看到呢 --------------------编程问答-------------------- 下班了,下午正确了再来给你分哈 --------------------编程问答-------------------- DataEnvironmentphototable与 
strphototable 


你这两个是什么控件

DataEnvironment
DataReport
吧? --------------------编程问答--------------------
引用楼主 sckdgzcs 的帖子:
想实现下面的效果,请高手指点:    
    学号  姓名    学号    姓名 
  00001  张三      00002    李四 
现在只能打印一列 
我用的是数据环境DataEnvironmentphototable与 
数据报表strphototable 
我已经用API实现横向打印,但能打印一列,现在是想打印多列. 
http://topic.csdn.net/t/20060929/21/5057772.html在这个地方说太简单了但没有说具体做法,请高手们指点.对了马上给分  

http://topic.csdn.net/t/20060929/21/5057772.html --------------------编程问答--------------------  不明白下面这段话:
安装 VB6 时自动安装 Active Report,在工程中与 Form/Class/Module 等是相同等级,可以通过 Project\Add Data Dynamics ActiveReports 菜单添加。

ActiveReport这个如何加在工程中?这个是不是就是报表哟 --------------------编程问答-------------------- 其他不用管,
1)操作 VB-IDE 菜单 Project\Add Data Dynamics ActiveReports
2)Ctrl+R,看看目录节点 Designers 下是不是多了一个 ActiveReport1
3)双击打开就可以设计了 --------------------编程问答-------------------- IDE菜单是一个什么菜单? --------------------编程问答-------------------- 不知道你的数据报表strphototable 是不是VB里的datareport
如果是的只需要在DETAIL SECTION里放置几个控件并指定字段就可以打印了啊
请告知。。 --------------------编程问答-------------------- 是数据报表
tiger_zhan能否留下一个QQ号,我加你 --------------------编程问答-------------------- tiger_zhao能否留下一个QQ号,我加你 --------------------编程问答-------------------- 搞错了,ActiveReports 是需要单独安装的,网上下载一个版本 1.x 的就可以了。
VB-IDE 就是VB集成环境。
从来不用 QQ。 --------------------编程问答-------------------- 我马上到网上找一找呢,你那里有没有? --------------------编程问答-------------------- ActiveReports这个插件是找到了,可就是不能连接数据库.
提示"无法启动应用程序.工作组信息文件丢失,或是已被其它用户以独占方式打开"
我用的是ADO,数据库中有密码,
1、其中的ConnectionString属性中的内容为:Provider=Microsoft.Jet.OLEDB.4.0;Data Source=& App.Path & "\database.mdb;Jet OLEDB:Database Password=123
2、datasourcename属性的内容为:MS Access Database
3、defaultdatabase属性内容为:& App.Path & "\database.mdb;Persist Security Info=true
4、Provider属性内容为:Microsoft.Jet.OLEDB.4.0
5、password属性内容为:123

与http://topic.csdn.net/t/20051130/17/4429203.html这个地方的错误差不多
这个与ActiveReports这个的破解不知道有没有关系 --------------------编程问答-------------------- 不要用 OLEDB 方式,要用 ODBC 方式连接。
"Driver={Microsoft Access Driver (*.mdb)};Dbq=c:\somepath\mydb.mdb;Uid=admin;Pwd=" --------------------编程问答-------------------- 我用DAO连接成功了,但我还是想用ADO连接.待我重新用ADO连接成功了就给分哈 --------------------编程问答-------------------- 在报表的页眉和页脚的地方有如下一些默认内容:
"copyright 1988,2001 data dynamics.this is an evaluation copy,visit www.datadynamics.com for more.........."
请问如何去掉. --------------------编程问答-------------------- 你用的 ActiveReports 是试用版,你说怎么办? --------------------编程问答-------------------- 哦 --------------------编程问答-------------------- 帮顶! --------------------编程问答-------------------- 手工代码控制打印输出的内容和位置,代码量是会多一点,但是绝对控制阿绝对控制 --------------------编程问答-------------------- datareport也可以....用查询语句返回一个对应的记录集就可以了

比如你学号是连续的:

select a.学号,a.姓名,b.学号,b.姓名
from (select * from tb where (val(学号) mod 2)=1 ) a 
      left join
     (select * from tb where (val(学号) mod 2)=0 ) b
on val(a.学号)+1=val(b.学号)

用这个查询返回的记录集绑定报表数据源就行了 --------------------编程问答--------------------
引用 26 楼 vbman2003 的回复:
datareport也可以....用查询语句返回一个对应的记录集就可以了

比如你学号是连续的:

select a.学号,a.姓名,b.学号,b.姓名
from (select * from tb where (val(学号) mod 2)=1 ) a
      left join
    (select * from tb where (val(学号) mod 2)=0 ) b
on val(a.学号)+1=val(b.学号)

用这个查询返回的记录集绑定报表数据源就行了



字段动态绑定怎么弄呢?
补充:VB ,  数据库(包含打印,安装,报表)
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,