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


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

主题:报表输出

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


加好友 发短信
等级:幼狐 帖子:125 积分:1548 威望: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个表?

谢谢!

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


加好友 发短信
等级:幼狐 帖子:125 积分:1548 威望: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

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


加好友 发短信
等级:幼狐 帖子:125 积分:1548 威望:0 精华:0 注册:2017/2/1 10:03:00
  发帖心情 Post By:2022/10/13 9:27:00 [显示全部帖子]

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

 回到顶部