Tạo trang in trong excel (3 người xem)

[trungdan_nguyen]

Mình có 1 file excel như thế này:
Mình muốn in nội dung này ra ( giấy a5 or a4 j cũng được ), mỗi trang in có chứa duy nhất thông tin của 1 người: ví dụ: trang 1, Bùi Văn Đức và gói khám sức khỏe của ng nàyi; Trang in 2: Nguyễn Văn Thuấn và gói khám sức khỏe.
Hix, mình cứ lọ mọ copy từng nội dung rồi past qua word rồi chỉnh sửa rất cực...Vì nội dung mình cắt bớt, chứ nó còn phía dưới rất nhiều, mà làm theo kiểu của mình chắc chết!
Mong cả nhà giúp đỡ với ạ!
Cám ơn rất rất nhiều!

 

[vu_tuan_manh_linh]

Đặt Page Break cho từng phần là Ok thôi!!
Có thể dùng đoạn code này chạy cho nhanh

Sub SetPageBreak()
Dim i As Integer
Application.ScreenUpdating = False
For i = 2 To Range("A65536").End(xlUp).Row    
If Cells(i, 1).Value <> "" Then        
Range("L" & i).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End If
Next i
Application.ScreenUpdating = True
End Sub

 

[trungdan_nguyen]

Bạn ơi cụ thể giúp với!ko hiểu j cả!Cám ơn nhiều!

 

[vu_tuan_manh_linh]

Bạn mở file ra, bấm chuột phải vào sheet tab, chọn view code, cửa sổ VBA mở ra, bạn Chọn menu Insert --> Module, rồi chép đoạn code trên vào Module. Sau đó Ctrl+S để lưu lại. Đóng cửa sổ VBA, vào lại file excel, bấm Alt+F8, chọn Macro SetPageBreak và bấm Run, chờ nó chạy 1 lúc là xong!!