Header & Footer

[Cá ngừ F1]

Cũng không phải vấn đề gì ghê gớm lắm đâu!
Bước đâu chỉ là: HỌC CÁCH XÀI CODE (quá dễ)... giống như học lái xe cũng chẳng phải chuyện khó (đâu ai bắt bạn phải sửa xe mà lo)

HỌC CÁCH XÀI CODE nghe cứ mung lung thế nào ý anh... anh có thể chi tiết thêm là code học ở đâu, trên GPE thì kiến thức quá lớn, ko biết phải lấy từ đâu... mong a chỉ dẫn...

 

[thoai]

đây là điều bạn cần

Nháy phải vào tabsheet -->VBE xuất hiện --> chọn ThisWorkBook ở bên lề trái, rui dán (paste) code dưới đây vào trang trắng ở bên phải

[GPECODE=vb]
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In Me.Worksheets
With wkSht.PageSetup
.CenterHeader = Sheet1.Range("A1").Value
.CenterFooter = Sheet1.Range("A2").Value
End With
Next wkSht
End Sub
[/GPECODE]


nội dung Header, Footer, lấy từ giá trị ô A1 A2 nhé
nếu là excel 2007 trở lên thì nhớ save file định dạng *.xlms còn trái lại thì cứ *.xls là được,
và nhớ enable macro

Preview có thể chưa thấy, nhưng in ra máy in là có

code này có thể ứng dụng xuất file sang dạng word được khôn bạn