vb 如何控制EXCEL 页眉字体和下划线?
解决方案 »
- 怎么判断程序是否已经设置了开机启动?
- 求vb做的题库软件源码
- VB中在特定位置调用\显示 EXCEL??????
- 请高手看这样一条语句,执行的时候出错是什么原因(见代码),小弟恳求大家了
- richtextbox
- 有网络编程经验的请进
- 关于DATAGRID在显示之后的问题?
- vb + sql server开发的软件,打包后在最终用户端安装,还需要专门安装sql server 2000吗?
- treeview控件 怎么判断所选的节点是最后的根节点啊
- 我用VB6自带的打包程序做安装程序时,不能把自己想要的文件放在适当的地方...
- 请问 readword()和writeword的含义
- 有偿求助:VB编程,程序设计
Sub Macro1()
'
' Macro1 Macro
' 宏由 h 录制,时间: 2012/1/12
''
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&""宋体,加粗""&20&Edjdejfeiei"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 300
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
End Sub你要的关键在这:
.CenterHeader = "&""宋体,加粗""&20&Edjdejfeiei"