VBA打印代码案例1-2
【分享成果，随喜正能量】一生荣华富贵，却也敌不过旦夕福祸，既然活在当下，珍惜便好。。
VBA系列教程共十套，我已经全部完成，技术工具系列在不断推出。从这些教程及工具中，大家可以看到VBA确实是一门实用技术。正如我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的劳动效率，而且可以提高数据的准确度。
对于学员而言，如果您是入门阶段可以打包选择7.1.3.9教程，第7是入门，第1是入门后的提高，第3字典是必备的VBA之精华，第9是实用的典型案例讲解。如果您有了VBA的一定基础可以根据自己的需要，进行教程的选择及工具的利用，教程提供的程序文件就如一座大型的代码库支持着大家的工作。
工具系列共分两类：一类是容易些的YZ系列，一类是较难些的NZ系列。这些工具是大家学习VBA的好帮手。 对于急用的学员，可以立竿见影解决自己的工作效率问题。其中NZ系列工具还有专门版本资料，提供给已按部就班学习完我所有教程的学员。
VBA是面向对象编程，博大精深，包括我自己也在不断的学习和提高，这里我会分享些一些有用的片段，以弥补我教程的补足。这些片段为了大家更好的领会和掌握，我会用英语和汉语同时发布。今日的内容：VBA打印代码案例1-2
第三章 VBA打印代码示例
VBA Printing Codes Examples
1 添加页眉/页脚日期Add Header/Footer Date
Sub nzDateInHeader() "添加页眉/页脚日期
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&D"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
End Sub
此宏在运行标头时向其添加日期。它只是使用标签“&D”来添加日期。您还可以将其更改为页脚，或通过将“”替换为日期标记来更改侧面。如果您想添加特定日期而不是当前日期，则可以将代码中的“&D”标记替换为该日期。
This macro adds a date to the header when you run it. It simply uses the tag "&D" for adding the date. You can also change it to the footer or change the side by replacing the "" with the date tag. And if you want to add a specific date instead of the current date you can replace the "&D" tag with that date from the code.
2 自定义页眉/页脚Custom Header/Footer
Sub nzCustomHeader() "自定义页眉/页脚
Dim myText As String
myText = "VBA学习"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = myText
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
End Sub
运行此代码时，有六行不同的代码来选择页眉或页脚的位置。假设您要添加左页脚而不是中心页眉，只需将“myText”替换为代码行，方法是从那里替换“”。
When you run this code,you have six different lines of code to choose the place for the header or footer. Let’s say if you want to add left-footer instead of center header simply replace the “myText” to that line of the code by replacing the "" from there.
【分享成果，随喜正能量】
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
【分享成果，随喜正能量】人生的道路总是曲折不平的，遭遇磨难时请不要气馁灰心，因为，人生有寒冷的严冬，也一定有温暖的阳春。。