Foxtable(狐表) → 用户栏目 → 专家坐堂 → 报表预览效果不理想


  共有1524人关注过本帖树形打印复制链接

主题：报表预览效果不理想
美女呀，离线，留言给我吧！
朱女士
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00 		报表预览效果不理想  发帖心情 Post By：2024/5/10 16:38:00 [只看该作者]

老师您好！
    我的工艺流程卡的连续打印和预览有问题，我有一个模板，制作的报表，想用鼠标选择记录，然后，一条记录一张报表，我写的代码问题出在：1、只能预览一条记录，不能连续预览选中的记录，2、我不知道用哪条打印命令。3、我想有两种选择：预览/打印，烦请老师给予指教,谢谢！我将选择的记录和预览的效果表拍照了，并且把代码发给您，您参考一下。（照片中我选了两条记录，清单条码：202404280007，202308280009，可是预览结果只能显示第一个。
 回到顶部
美女呀，离线，留言给我吧！
朱女士
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00 		  发帖心情 Post By：2024/5/10 16:39:00 [只看该作者]

Dim Result As DialogResult
For Each dr As DataRow In DataTables("生产计划明细表").Select("清单条码编码 is not null")
    Dim Book As New XLS.Book(ProjectPath & "Attachments\生产工艺加工流程卡模板.xls")
     Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Dim fl As String = ProjectPath & "Reports\" & dr("清单条码编码") & ".xls"
    
    Book.Build() '生成细节区
    Book.Save(fl)
     Result = MessageBox.Show("报表已生成，要预览还是打印?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
    Dim Proc As New Process 
    Proc.File = fl
    Proc.Start()
   
 End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/5/10 16:44:00 [只看该作者]

上面的代码会打开生成的所有文件的，自行到电脑系统任务栏切换查看


    Book.Build() '生成细节区
    Book.Save(fl)
     Result = MessageBox.Show("报表已生成，要预览还是打印?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
    Dim Proc As New Process 
    Proc.File = fl
    Proc.Start()
   else
    Dim Proc As New Process 
    Proc.File = fl
Proc.Verb = "Print" '指定动作
    Proc.Start()
 End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询