以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  制作窗口和制作报表打印快捷键问题？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=10179)
--  作者：441337802
--  发布时间：2011/5/24 15:54:00
--  制作窗口和制作报表打印快捷键问题？
请问下老大在狐表里要怎么才能才自己制作的窗口里弄一个按键是专门打印报表模板的呢？？？？？？？举例：我有M个报表模板已经制作完成后要通过按键实现，这样的打印顺序，单击按键后直接打印我报表模板的1.2.3.4模板，还有可以自己定义每个模板的打印次数。可以不呢？     希望老大帮忙。如果不用我这种方法，有没有更好的解决办法呢？求解决方法，最好给我制作个例子。多谢了。              最后傻傻的问下，狐表的帮助我看了MMM遍了老是看不懂。麻烦老大给帮助多给些例子。还有请问下怎么才能是我打印的模板在换了打印机还能使打印的位置不变。        
--  作者：易服
--  发布时间：2011/5/24 16:31:00
--  

一键打印多个报表

Dim Names() As String
Names = New String() {"结果分析表","林种统计表","面积统计表","秋季验收表","补助测算表","坡度统计表","权属统计表","设计汇总表","设计统计表","投资测报表","预算汇总表","植被统计表","验收汇总表","二期补助表"}
For Each Name As String In Names
    With Tables("分组统计")
        .Select(0 ,0 ,.Rows.Count - 1, .Cols.Count - 1)
    End With
    Dim Book As New XLS.Book(ProjectPath & "Attachments\\" & Name & ".xls") \'打开模板
    Book.Build() \'生成细节区
    Book.Save("D:\\My Documents\\退耕报表\\"& Name & ".xls") \'保存工作簿
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("D:\\My Documents\\退耕报表\\"& Name & ".xls")
    Dim Wd As MSExcel.Window = Wb.Windows(1)    \'表示当前工作簿窗口
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Wd.DisplayZeros = False                 \'不显示0值
    App.Visible = True
Next
--  作者：blackzhu
--  发布时间：2011/5/24 17:08:00
--  
你究竟是一次打印多个报表,还是一次要打印几份?
--  作者：441337802
--  发布时间：2011/5/25 18:52:00
--  

你好，我是要以此打印多个报表。还有就是在以此打印多个报表的同时要求其中一个报表要打印3次。
--  作者：blackzhu
--  发布时间：2011/6/3 21:14:00
--  
以下是引用易服在2011-5-24 16:31:00的发言：

一键打印多个报表

Dim Names() As String
Names = New String() {"结果分析表","林种统计表","面积统计表","秋季验收表","补助测算表","坡度统计表","权属统计表","设计汇总表","设计统计表","投资测报表","预算汇总表","植被统计表","验收汇总表","二期补助表"}
For Each Name As String In Names
    With Tables("分组统计")
        .Select(0 ,0 ,.Rows.Count - 1, .Cols.Count - 1)
    End With
    Dim Book As New XLS.Book(ProjectPath & "Attachments\\" & Name & ".xls") \'打开模板
    Book.Build() \'生成细节区
    Book.Save("D:\\My Documents\\退耕报表\\"& Name & ".xls") \'保存工作簿
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("D:\\My Documents\\退耕报表\\"& Name & ".xls")
    Dim Wd As MSExcel.Window = Wb.Windows(1)    \'表示当前工作簿窗口
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Wd.DisplayZeros = False                 \'不显示0值
    App.Visible = True
Next

   我们知道利用"CheckedComboBox"控件可以选择多值,如果我利用这个控件选择多个报表,那么代码怎么写?我写来写去还是只能打印一个报表,选择两个就没有反应了.
--  作者：e-png
--  发布时间：2011/6/3 23:11:00
--  

怎么都不提供例子呢，我懒啊，呵呵。