如何从MS Access 2003 VBA处理MS Excel分页符

iceheaven31

我有一个MS Access VBA代码,该代码可生成如下所示的Excel电子表格,并且需要从中进行分页输出: 输出错误

到这个:

假定的输出

在MS Access VBA中以编程方式进行。

我已经尝试了很多代码(请参见下面的代码段),但是它们都以某种方式没有成功,甚至没有丝毫变化。

代码段#1)

ActiveWindow.View = xlPageBreakPreview
ActiveSheet.ResetAllPageBreaks

i = 1
If ActiveSheet.HPageBreaks.Count > 0 Then
    Do
        Set ActiveSheet.HPageBreaks(i).Location = Range("A" & (i * 70) + 1)
        If i = ActiveSheet.HPageBreaks.Count Then Exit Do
            i = i + 1
        Loop
End If
Do Until Cells((i * 70) + 3, 1).Value = ""
    ActiveSheet.HPageBreaks.Add Before:=Range("a" & (i * 73) + 1)
        i = i + 1
    Loop
ActiveWindow.View = xlNormalView

代码段2)

Dim Rng As Excel.Range

Set Rng = xls.Rows("1:75")
Rng(75).PageBreak = -4135

代码段#3)

xls.HPageBreaks.Add Before:=xls.Cells(73, 1)

对此,我们将给予任何帮助。谢谢一群!:)

雷斯塔法里安

我不太了解您的代码段,但是基于屏幕截图,您希望将其打印在包含所有内容的一页上。像这样在excel中将打印区域设置为1页x 1页-

Sub breaks()
Dim rLastCol As Long
Dim rLastRow As Long
With ActiveSheet
rLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
rLastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column

    With .PageSetup
.PrintArea = Range("A1", Cells(rLastRow, rLastCol)).Address
.FitToPagesWide = 1
.FitToPagesTall = False
    End With

End With
End Sub

当然,这使用的是A列和第1行中最后使用的单元格,因此是最右下角的非空白。

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

使用MS Access 2003使用Outlook-VBA

来自分类Dev

MS Access 2003字段值[]

来自分类Dev

如何从其他数据库打开宏-VBA,MS Access 2003

来自分类Dev

如何从其他数据库中打开宏-VBA,MS Access 2003

来自分类Dev

尽管使用非 Excel 2003 函数和文件,但 MS Access 数据导入 65000 行限制的问题

来自分类Dev

移至MS Excel(2003)中的选择结束

来自分类Dev

VBA中的MS Access 2003刷新链接的ODBC表导致膨胀

来自分类Dev

VBA中的MS Access 2003刷新链接的ODBC表导致膨胀

来自分类Dev

使用Java,如何列出和打印MS-Access 2003 mdb文件中的所有查询?

来自分类Dev

代码片段不处理 MS Excel VBA

来自分类Dev

通过Excel VBA打开Access 2003 .mde文件

来自分类Dev

如何使用Access VBA定义要从Excel导出到MS Access表的列数?

来自分类Dev

MS Access VBA:如何清除图像控件?

来自分类Dev

MS Access VBA IF()

来自分类Dev

内联MS Access to Excel

来自分类Dev

MS Access 2003-基于先前的表单域自动填充表单域。

来自分类Dev

使用Ms Access 2003/2013或Sql查询选择与批准的列表/表关联的用户

来自分类Dev

MS Access 2003直接在报表的字段中包括子选择查询

来自分类Dev

如何在MS Word 2003中多次插入相同的引用?

来自分类Dev

将MS Access 2003应用程序移植到VB6 [打印报告]-> MS PowerPack 3

来自分类Dev

groff ms分页符宏

来自分类Dev

使用MS Access在Excel VBA中运行代码

来自分类Dev

在MS Access中使用Excel VBA进行SQL删除

来自分类Dev

MS Access-VBA-创建新的Excel工作簿

来自分类Dev

停止ms Access VBA打开Excel文件只读

来自分类Dev

使用vba将MS Access查询输出到Excel

来自分类Dev

使用MS Access在Excel VBA中运行代码

来自分类Dev

MS Access,VBA-将交叉表导出到Excel

来自分类Dev

如何使用MS Excel建立与读写锁定的MS Access的只读数据连接?

Related 相关文章

  1. 1

    使用MS Access 2003使用Outlook-VBA

  2. 2

    MS Access 2003字段值[]

  3. 3

    如何从其他数据库打开宏-VBA,MS Access 2003

  4. 4

    如何从其他数据库中打开宏-VBA,MS Access 2003

  5. 5

    尽管使用非 Excel 2003 函数和文件,但 MS Access 数据导入 65000 行限制的问题

  6. 6

    移至MS Excel(2003)中的选择结束

  7. 7

    VBA中的MS Access 2003刷新链接的ODBC表导致膨胀

  8. 8

    VBA中的MS Access 2003刷新链接的ODBC表导致膨胀

  9. 9

    使用Java,如何列出和打印MS-Access 2003 mdb文件中的所有查询?

  10. 10

    代码片段不处理 MS Excel VBA

  11. 11

    通过Excel VBA打开Access 2003 .mde文件

  12. 12

    如何使用Access VBA定义要从Excel导出到MS Access表的列数?

  13. 13

    MS Access VBA:如何清除图像控件?

  14. 14

    MS Access VBA IF()

  15. 15

    内联MS Access to Excel

  16. 16

    MS Access 2003-基于先前的表单域自动填充表单域。

  17. 17

    使用Ms Access 2003/2013或Sql查询选择与批准的列表/表关联的用户

  18. 18

    MS Access 2003直接在报表的字段中包括子选择查询

  19. 19

    如何在MS Word 2003中多次插入相同的引用?

  20. 20

    将MS Access 2003应用程序移植到VB6 [打印报告]-> MS PowerPack 3

  21. 21

    groff ms分页符宏

  22. 22

    使用MS Access在Excel VBA中运行代码

  23. 23

    在MS Access中使用Excel VBA进行SQL删除

  24. 24

    MS Access-VBA-创建新的Excel工作簿

  25. 25

    停止ms Access VBA打开Excel文件只读

  26. 26

    使用vba将MS Access查询输出到Excel

  27. 27

    使用MS Access在Excel VBA中运行代码

  28. 28

    MS Access,VBA-将交叉表导出到Excel

  29. 29

    如何使用MS Excel建立与读写锁定的MS Access的只读数据连接?

热门标签

归档