将指定单元格的内容设置为页眉页脚

1.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Co**ols.ShapeActionEventArgs)
   
2.                 If e.Shape.Name = "Button 1" Then
   
3.                
   
4.                 With ActiveWorkbook.ActiveWorksheet.PageSetup
   
5.                     .LeftHeader = ""
   
6.                     .CenterHeader = ""
   
7.                     .RightHeader = Range("A1").Text
   
8.                     .LeftFooter = "&B 快表软件 &B"
   
9.                     .CenterFooter = "&D"
   
10.                     .RightFooter = " 第 &P 页"
    
11.                 End With
    
12.                                
    
13.                                 MessageBox.Show("页眉页脚设置完成", "提示", MessageBoxButton.OK)
    
14.                                
    
15.             End If
    
16.        End Sub'按钮/标签点击事件

复制代码

非常好，解决我的大问题

非常好，解决我的大问题