Macro in trang theo điều kiện

[legiangnt]

Em có danh sách gồm nhiều tên. Em muốn số dòng in mỗi trang thay đổi theo tuỳ chọn của mình. Các bác xem hộ file rồi giúp em với. Cám ơn các bác nhiều !

 

[ndu96081631]

Em có danh sách gồm nhiều tên. Em muốn số dòng in mỗi trang thay đổi theo tuỳ chọn của mình. Các bác xem hộ file rồi giúp em với. Cám ơn các bác nhiều !

Chưa hiểu số 15, 20, 9 nghĩa là gì?
Không biết có phải:
-Trang 1 in 15 dòng
-Trang 2 in 20
-Trang 3 in 9 dòng
???

 

[legiangnt]

Đúng vậy bác ạ. Bác nghiên cứu hộ em nha

 

[ndu96081631]

Đúng vậy bác ạ. Bác nghiên cứu hộ em nha

Tiếc là hiện giờ tôi không có máy in để thử, nhưng bạn cứ tham khảo code này xem:

Sub Intrang()
   Dim SoTrang As Range, Rng As Range, VungIn As Range, Temp As Range
   Dim StPage As Long
    Set SoTrang = [E2].CurrentRegion
    Set Rng = [A2].CurrentRegion.Offset(1)
    For i = 1 To SoTrang.Count
      Set Temp = SoTrang.Offset(-1).Resize(i)
      StPage = WorksheetFunction.Sum(Temp)
      Set VungIn = Rng.Offset(StPage).Resize(SoTrang(i))
      With ActiveSheet.PageSetup
        .PrintTitleRows = "$2:$2"
        .PrintArea = VungIn.Address
      End With
      ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Next i
End Sub

Mới thử với Select thấy OK, còn IN thì chưa biết
Có gì trục trặc sẽ bàn tiếp