tạo nhãn nhấn in 3 trang mõi trang ở một sheet (1 người xem)

[Tran Mui]

Tôi muốn tạo nhẫn pRINT ở sheet2, khi nhấn in để in được 3 trang mỗi trang ở một sheet
file kèm theo
Mong GPE giúp

 

[Ếch Xanh]

Bạn thử dùng code này xem sao!

Sub Macro1()
  With Application
    .ScreenUpdating = False
    .EnableEvents = False
    Sheet2.Select
    Range("A1:J40").Select
      ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
    Sheet3.Select
    Range("B4:K43").Select
      ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
    Sheet4.Select
    Range("A4:J43").Select
      ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
    Sheet2.Select
    .EnableEvents = True
    .ScreenUpdating = True
  End With
End Sub

 

[Tran Mui]

Mình chưa làm được , bạn có thể xem lại giúp được không

 

[Ếch Xanh]

Mình chưa làm được , bạn có thể xem lại giúp được không

Vậy thử sử dụng code này xem:

Sub Macro1()
  With Application
    .ScreenUpdating = False
    .EnableEvents = False
    Sheet2.Select
      Range("A1:J40").PrintOut Copies:=1, Collate:=True
    Sheet3.Select
      Range("B4:K43").PrintOut Copies:=1, Collate:=True
    Sheet4.Select
      Range("A4:J43").PrintOut Copies:=1, Collate:=True
    Sheet2.Select
    .EnableEvents = True
    .ScreenUpdating = True
  End With
End Sub