viết code để khi in ở mổi trang đều có dòng tiêu đề (1 người xem)

[Rùa Con 1080]

Chào Mọi Người, xin giúp em code VBA để khi in nhiều trang thì trên mỗi trang in đều có dòng tiêu đề.
Chào mọi người.

 

[befaint]

Chào Mọi Người, xin giúp em code VBA để khi in nhiều trang thì trên mỗi trang in đều có dòng tiêu đề.
Chào mọi người.

Excel có sẵn rồi.
Rows to repeat at top
Tìm hiểu cái đó.

 

[trung984]

Chào..............ề.
Chào mọi người.

..................................
Nhấn trả lời, nó xoay xoay, nhấn tiếp cái nữa ra 2 bài.

Nên tôi xóa bớt 1 bài.

 

[trung984]

Chào Mọi Người, xin giúp em code VBA để khi in nhiều trang thì trên mỗi trang in đều có dòng tiêu đề.
Chào mọi người.

Bạn hỏi mà không đính kèm file, chẳng ai hiểu bạn hỏi cái gì?


Hay là làm như vầy: Vào Page Setup > sheet click vào Rows to repeat at top rồi click chọn tiêu đề muốn in lâp lại, xong nhấn OK

 

[nmhung49]

Chào Mọi Người, xin giúp em code VBA để khi in nhiều trang thì trên mỗi trang in đều có dòng tiêu đề.
Chào mọi người.

Record macro là có chứ gì

With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$1" ' dong tieu de muon lap lai
End With

 

[Rùa Con 1080]

Tại vì mình có Một Form, trên form có nút "IN" khi nhấn nút đó thì sẽ in "Báo Cáo",nhưng có báo cáo tới nhiều trang, nên mình nhờ mọi người giúp viết code để giữ tiêu đề trên mỗi trang in.(File sưu tầm trên PGE)
code in

'    in bao cao   
 Worksheets("Bao cao").Range("I1:O1").Resize(max_row + 7).PrintOut

.

 

[Rùa Con 1080]

như vầy hả bạn:

With worksheets("Bao cao").PageSetup
         .PrintTitleRange = ("A4:G4")
End With
Worksheets("Bao cao").Range("I1:O1").Resize(max_row + 7).PrintOut

nhưng chưa có máy in, mai mới thử được.

 

[befaint]

Tại vì mình có Một Form, trên form có nút "IN" khi nhấn nút đó thì sẽ in "Báo Cáo",nhưng có báo cáo tới nhiều trang, nên mình nhờ mọi người giúp viết code để giữ tiêu đề trên mỗi trang in.(File sưu tầm trên PGE)
code in

'    in bao cao   
 Worksheets("Bao cao").Range("I1:O1").Resize(max_row + 7).PrintOut

.

Hình như bạn này còn nợ gì đó ở topic này:
http://www.giaiphapexcel.com/forum/showthread.php?119564-lỗi-Date-trong-Userform&p=748192#post748192
-> e rằng chưa có file thì đợi cũng hơi lâu.
Chúc bạn thành công!

 

[nmhung49]

như vầy hả bạn:

With worksheets("Bao cao").PageSetup
         .PrintTitleRange = ("A4:G4")
End With
Worksheets("Bao cao").Range("I1:O1").Resize(max_row + 7).PrintOut

nhưng chưa có máy in, mai mới thử được.

Cài máy in ảo tại đây http://www.cutepdf.com/

.PrintTitleRange = ("A4:G4")

Mới sáng tạo ra đoạn code đó hả ??? Chỉ cần Record macro sẽ ra code muốn tạo in tiêu đề lặp lại

 

[Rùa Con 1080]

Đã thử với máy in. OK
Cám ơn nmhung49, code :
With worksheets("Bao cao").PageSetup
.PrintTitleRows = ("A4:G4")
End With
Worksheets("Bao cao").Range("I1:O1").Resize(max_row + 7).PrintOut

 

[NguyenthiH]

Chào mọi người, em cũng bắt chước code để giữ lại tiêu đề khi qua trang khác sao không được mong mọi người giúp đỡ.
Không có máy in, em chỉ thử xem trong PrintPreview, thì thấy qua trang 2, 3, 4 thì không giữ lại dòng tiêu đề (A4:G4)

Private Sub CommandButton1_Click()
With Worksheets("Sheet1").PageSetup
 .PrintTitleRows = "$4:$4"
 .printtilecolumns = "$A:$G"
End With
    Worksheets("Sheet1").Range("A1:G114").PrintOut
End Sub

File đính kèm.

 

[NguyenthiH]

Em biết sai chổ nào rồi.

.printtilecolumns = "$A:$G"

phải là:

PrintTitleColumns = "$A:$G"

Cám ơn mọi người.