In file excel có "header and footer"

[HUYNHKHANH09]

Các Anh/ Chị/ Em của GPE ơi,
Giúp em cách in một trang excel nhưng nếu in từ 02 tờ trở lên thì ở "header & footer" có thể hiện liên 1, liên 2, liên 3, ....
VD: ủy nhiệm chi cần in 03 liên.

 

[hoangminhtien]

Bạn vào File/ Page Setup, bạn chọn thẻ Header/Footer bạn chọn Custom Header…bạn nhập Liên &[Page] nhấn OK

 

[HUYNHKHANH09]

Bạn vào File/ Page Setup, bạn chọn thẻ Header/Footer bạn chọn Custom Header…bạn nhập Liên &[Page] nhấn OK

Bạn Tiến ơi,
Làm theo cách của bạn thì không đúng theo yêu cầu của mình rồi.
Cách của bạn chỉ để in nhiều trang. Còn mình muốn in chỉ có một trang nhưng in ra nhiều tờ.

Anh chị nào biết giúp mình với nhé.

 

[hoangminhtien]

Bạn thử dùng đoạn code sau xem có được không nhé!

   Sub header_in()
  Dim i, n As Integer
  n = Application.InputBox("Input number of copies:", Type:=1)
  If n = 1 Then
      ActiveSheet.PageSetup.CenterHeader = ""
      ActiveWindow.SelectedSheets.PrintOut
  Else
      For i = 1 To n
          ActiveSheet.PageSetup.CenterHeader = "liên " & i
          ActiveWindow.SelectedSheets.PrintOut
      Next
  End If
  End Sub