Foxtable(狐表)用户栏目专家坐堂 → 制作窗口和制作报表打印快捷键问题?


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

主题:制作窗口和制作报表打印快捷键问题?

帅哥哟,离线,有人找我吗?
441337802
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:69 积分:632 威望:0 精华:0 注册:2011/5/17 23:05:00
制作窗口和制作报表打印快捷键问题?  发帖心情 Post By:2011/5/24 15:54:00 [只看该作者]

请问下老大在狐表里要怎么才能才自己制作的窗口里弄一个按键是专门打印报表模板的呢???????举例:我有M个报表模板已经制作完成后要通过按键实现,这样的打印顺序,单击按键后直接打印我报表模板的1.2.3.4模板,还有可以自己定义每个模板的打印次数。可以不呢?     希望老大帮忙。如果不用我这种方法,有没有更好的解决办法呢?求解决方法,最好给我制作个例子。多谢了。              最后傻傻的问下,狐表的帮助我看了MMM遍了老是看不懂。麻烦老大给帮助多给些例子。还有请问下怎么才能是我打印的模板在换了打印机还能使打印的位置不变。        

 回到顶部
帅哥哟,离线,有人找我吗?
易服
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:787 积分:6349 威望:0 精华:0 注册:2008/9/1 8:26:00
  发帖心情 Post By: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
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/5/24 17:08:00 [只看该作者]

你究竟是一次打印多个报表,还是一次要打印几份?

 回到顶部
帅哥哟,离线,有人找我吗?
441337802
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:69 积分:632 威望:0 精华:0 注册:2011/5/17 23:05:00
  发帖心情 Post By:2011/5/25 18:52:00 [只看该作者]

你好,我是要以此打印多个报表。还有就是在以此打印多个报表的同时要求其中一个报表要打印3次。


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By: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
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1695 积分:10725 威望:0 精华:0 注册:2009/10/25 16:45:00
  发帖心情 Post By:2011/6/3 23:11:00 [只看该作者]

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


 回到顶部