VB+EXCEL输出的一些细节问题？不够再加，帮顶有分　　　　　80分

1、怎么样能实现将EXCEL页面设置成横幅。
2、怎么样能自动加上页码。
3、怎么样能让文本左右、垂直居中。
感谢感谢，希望给出源代码，越详细越好。
感谢感谢

14 个解决方案

#1

#2

http://blog.csdn.net/xayzmb/archive/2005/01/05/241030.aspx
上面没有的你可以用EXCEL的宏录制功能
把录好的宏稍加修改
就可以在VB中用了.

#3

录制一个宏，参照一些

#4

2、怎么样能自动加上页码。
With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With ActiveSheet.PageSetup
         .CenterFooter = "&P 页"
     End With
3、怎么样能让文本左右、垂直居中。
Range("选中的CELL").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
感谢感谢，希望给出源代码，越详细越好。

#5

加上页码
objExcel.ActiveSheet.PageSetup.RightFooter = " &P of &N" '设置打印页码和总页
右下角显示如下样式:
1 of 20

#6

我一直都是录制宏来操作EXCEL。
因为VBA和VB几乎一样，稍改一下下就好了。

#7

我也要用到，顶

#8

       With xlWs.PageSetup
            .PaperSize = xlPaperA4 'A4纸
            .Orientation = xlLandscape '横向
            .CenterHorizontally = True '水平居中
            .CenterVertically = False  '
            .LeftHeader = Chr(13) & Chr(13) & "&""华文仿宋,加粗""&12部门：" & LoginUserSf
            .CenterHeader = "&""华文仿宋,加粗""&18慧谷公司固定资产登记表"
            .RightHeader = Chr(13) & Chr(13) & "&""华文仿宋,加粗""&12填写：" & Date & "    第 " & "&p 页 "
            .LeftFooter = "&""华文仿宋,加粗""&12行政签名："    '页
            .CenterFooter = "&""华文仿宋,加粗""&12财务签名：                                                部门经理：     "
            .RightFooter = "&""华文仿宋,加粗""&12制表人：         "
            .LeftMargin = Application.InchesToPoints(0.748031496062992)
            .RightMargin = Application.InchesToPoints(0.748031496062992)
            .TopMargin = Application.InchesToPoints(1.18110236220472)
            .BottomMargin = Application.InchesToPoints(0.78740157480315)
            .HeaderMargin = Application.InchesToPoints(0.511811023622047)
            .FooterMargin = Application.InchesToPoints(0.511811023622047)
      End With

#9

感谢各位高手的帮助，我现在已经会录制宏代码了，请问我还需要定义什么变量常量什么的吗？我直接使用好像不能用，（已经引用了EXCEL11）谢谢

#10

Dim ExcelAppX As Excel.Application
Dim ExcelBookX As Excel.Workbook        '定义Excel工作簿对象
Dim ExcelSheetX As Excel.Worksheet      '定义Excel工作表对象

Set ExcelAppX = CreateObject("Excel.Application")    '建立Excel应用程序
Set ExcelBookX = ExcelAppX.Workbooks().Add(App.Path & "\templet\yfjzh.xlt")            Set ExcelSheetX = ExcelBookX.Worksheets("sheet1")      '建立表格sheet1
ExcelAppX.Visible = True

……  '//向excel填充数据

'设置打印信息
ExcelSheetX .PageSetup.CenterHorizontally= 2/0.035   '页面水平居中ExcelSheetX .PageSetup.CenterVertically = 2/0.035   '页面垂直居中
ExcelSheetX.PageSetup.RightFooter = "&""楷体_GB2312,常规""&10第&P页共&N页"    '页角
ExcelSheetX.PageSetup.Orientation = xlLandscape

ExcelAppX.Application.Visible = True
ExcelSheetX.PrintPreview
ExcelAppX.DisplayAlerts = False
ExcelAppX.Quit
Set ExcelAppX = Nothing  '"交还控制给Excel
Set ExcelBookX = Nothing
Set ExcelSheetX = Nothing

#11

blog.csdn.net/cosio

#12

我也遇到此问题
帮忙，顶~！

#13

真的要帮顶了。

#14

#1

#2

http://blog.csdn.net/xayzmb/archive/2005/01/05/241030.aspx
上面没有的你可以用EXCEL的宏录制功能
把录好的宏稍加修改
就可以在VB中用了.

#3

录制一个宏，参照一些

#4

#5

加上页码
objExcel.ActiveSheet.PageSetup.RightFooter = " &P of &N" '设置打印页码和总页
右下角显示如下样式:
1 of 20

#6

我一直都是录制宏来操作EXCEL。
因为VBA和VB几乎一样，稍改一下下就好了。

#7

我也要用到，顶

#8

#9

感谢各位高手的帮助，我现在已经会录制宏代码了，请问我还需要定义什么变量常量什么的吗？我直接使用好像不能用，（已经引用了EXCEL11）谢谢

秒客网

VB+EXCEL输出的一些细节问题？不够再加，帮顶有分　　　　　80分

14 个解决方案

#1

#2

#3

#4

#5

#6

#7

#8

#9

#10

#11

#12

#13

#14

#1

#2

#3

#4

#5

#6

#7

#8

#9

#10

#11

#12

#13

#14

相关文章

VB+EXCEL输出的一些细节问题？不够再加，帮顶有分 80分

14 个解决方案

#1

#2

#3

#4

#5

#6

#7

#8

#9

#10

#11

#12

#13

#14

#1

#2

#3

#4

#5

#6

#7

#8

#9

#10

#11

#12

#13

#14

相关文章

VB+EXCEL输出的一些细节问题？不够再加，帮顶有分　　　　　80分