以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  报表预览效果不理想  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=191834)
--  作者：朱女士
--  发布时间：2024/5/10 16:38:00
--  报表预览效果不理想
老师您好！
    我的工艺流程卡的连续打印和预览有问题，我有一个模板，制作的报表，想用鼠标选择记录，然后，一条记录一张报表，我写的代码问题出在：1、只能预览一条记录，不能连续预览选中的记录，2、我不知道用哪条打印命令。3、我想有两种选择：预览/打印，烦请老师给予指教,谢谢！我将选择的记录和预览的效果表拍照了，并且把代码发给您，您参考一下。（照片中我选了两条记录，清单条码：202404280007，202308280009，可是预览结果只能显示第一个。
--  作者：朱女士
--  发布时间：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
--  作者：有点蓝
--  发布时间：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