Foxtable(狐表)用户栏目专家坐堂 → 报表输出


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

主题:报表输出

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


加好友 发短信
等级:幼狐 帖子:123 积分:1480 威望:0 精华:0 注册:2017/2/1 10:03:00
报表输出  发帖心情 Post By:2022/10/11 19:33:00 [只看该作者]

老师,

您好!

我用1个excel表格的sheet1, sheet2, sheet3 分别输出表A,表B,表C, 打印出来便是3张纸, 但由于3个表的数据行很少, 非常浪费纸张.

另由于3个表没有关联关系, 无法放在同1sheet里.  想问一下, 有没有其它方法在1张纸里打印3个表?

谢谢!

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105493 积分:536456 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/11 20:24:00 [只看该作者]

生成报表后,把多个sheet内容合并到一个sheet:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=97286&replyID=670470&skin=1

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


加好友 发短信
等级:幼狐 帖子:123 积分:1480 威望:0 精华:0 注册:2017/2/1 10:03:00
  发帖心情 Post By:2022/10/12 20:11:00 [只看该作者]

老师,

您好!
非常感谢你的指点.

我试了以下代码, 可以成功将Excel合并, 但如何将Excel转为PDF输出啊? 之前用Book.savetoPDF直接生成PDF, 现在代码应该怎样写?


'输出报表
Dim Book As New XLS.Book(ProjectPath & "Attachments\生产异常报告.xlsx")
Dim fl As String = ProjectPath & "Reports\生产异常报告.xlsx"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.open(ProjectPath & "Reports\生产异常报告.xlsx")
Dim ws As MSExcel.WorkSheet
ws = Wb.WorkSheets(1)
Dim rg As MSExcel.Range = ws.Cells(ws.UsedRange.Rows.Count + 1, 1)
app.DisplayAlerts = False
For i As Integer = Wb.WorkSheets.Count To 2 Step - 1
    Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets(i)
    Dim Rg2 As MSExcel.Range = Ws2.UsedRange
    rg2.Copy
    rg.PasteSpecial()
    rg = ws.Cells(ws.UsedRange.Rows.Count + 1, 1)
    Ws2.Delete
Next
Wb.Save
App.Quit

Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

End If

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105493 积分:536456 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/13 8:33:00 [只看该作者]

Wb.Save
wb.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF, ProjectPath & "Reports\生产异常报告.pdf", MsExcel.XlFixedFormatQuality.xlQualityStandard, True, False,  System.Reflection.Missing.Value,  System.Reflection.Missing.Value, True,  System.Reflection.Missing.Value)
App.Quit

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


加好友 发短信
等级:幼狐 帖子:123 积分:1480 威望:0 精华:0 注册:2017/2/1 10:03:00
  发帖心情 Post By:2022/10/13 9:27:00 [只看该作者]

太好了!, 谢谢老师, Foxtable真是无所不能!

 回到顶部