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


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

主题:报表预览效果不理想

美女呀,离线,留言给我吧!
朱女士
  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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望: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

 回到顶部