excel报表：想在一张纸内同一订单打两份怎么设置(19楼有解决方案)？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → excel报表：想在一张纸内同一订单打两份怎么设置(19楼有解决方案)？

共有16659人关注过本帖树形打印复制链接主题：excel报表：想在一张纸内同一订单打两份怎么设置(19楼有解决方案)？

迷狐

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：228 积分：2054 威望：0 精华：1 注册：2012/5/24 16:00:00

Post By：2012/11/21 10:10:00 [显示全部帖子]

干脆调用VBA，先做好模板，再复制数据，想打几份就几份

Ws.Rows("1:" & zh).Copy(Ws.Range("a" & p*zh+1)) '复制模板及表数据

迷狐

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：228 积分：2054 威望：0 精华：1 注册：2012/5/24 16:00:00

Post By：2012/11/21 17:29:00 [显示全部帖子]

做好模板

下载信息 [文件大小：下载次数： ]
点击浏览该文件:出库单.xls

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")

Dim fl As String = ProjectPath & "Reports\出库单.xls"

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "Reports\出库单.xls")

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Ws.Range("A2:F16").Copy(Ws.Range("A18") )

wb.save

App.Visible = 1

Ws.PrintPreview

app.quit

此主题相关图片如下：qq截图20121121172906.gif

[此贴子已经被作者于2012-11-22 8:15:51编辑过]

[本帖被加为精华]

迷狐

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：228 积分：2054 威望：0 精华：1 注册：2012/5/24 16:00:00

Post By：2012/11/23 16:38:00 [显示全部帖子]

用报表事件或VBA可参考示例：

' excel——vba合并

下载信息 [文件大小：下载次数： ]
点击浏览该文件:vba单元格合并.xls

Private Sub MergeUnit_Click()

Dim i%, j%

For i = 1 To 9 Step 4

For j = 21 To 4 Step -1

If Cells(j, i) = Cells(j - 1, i) Then

Application.DisplayAlerts = False

Range(Cells(j - 1, i), Cells(j, i)).merge

End If

Next j

Next i

For i = 6 To 2 Step -1

If Cells(26, i) = Cells(26, i - 1) Then

Application.DisplayAlerts = False

Range(Cells(26, i), Cells(26, i - 1)).merge

End If

Next i

End Sub

另试了在模板<End>行某一列加上标记<M>，会自动合并该列的相同内容。
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20121123172108.jpg

[此贴子已经被作者于2012-11-23 17:22:38编辑过]

下一主题 >> << 上一主题

主题：excel报表：想在一张纸内同一订单打两份怎么设置(19楼有解决方案)？