doanhoanghai
Thành viên hoạt động
- Tham gia
- 20/12/07
- Bài viết
- 195
- Được thích
- 4
Sub Pinting()
Dim n, DongT, DongS As Integer
Dim cll As Range
ActiveSheet.PageSetup.PrintTitleRows = "$9:$11"
n = Range("A65536").End(xlUp).Row
DongT = 12
For Each cll In Range("A9:A" & n)
If Left(cll, 2) = "KH" Then
DongS = cll.Row
If DongS <> DongT Then
ActiveSheet.PageSetup.PrintArea = Range("A" & DongT & ":N" & DongS - 1).Address
ActiveWindow.SelectedSheets.PrintOut
DongT = DongS
End If
End If
Next
ActiveSheet.PageSetup.PrintArea = Range("A" & DongT & ":N" & n).Address
End Sub
Cảm ơn bạn
Nhưng Bạn ơi có cách nào mà không phải dùng đến macro không vậy ?
Thì bạn cứ thêm vào cuối trang thôi.Bạn ơi mình làm được rồi nhưng cho mình hỏi chút nữa nhé !
Là bây giờ mình muốn in nhưng có cả chân trang giấy thì phải làm thế nào ?
VD :
Hà Nội ngày 12.04.2010
Người lập biểu ký xác nhận :
HẢI